mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-10 05:03:59 -05:00
b6effe691c
Some functors lacked a dummy argument, and thus could introduce some problems if duplicated (because they would share the same internal state).
20 lines
408 B
OCaml
20 lines
408 B
OCaml
(*
|
|
MSAT is free software, using the Apache license, see file LICENSE
|
|
Copyright 2014 Guillaume Bury
|
|
Copyright 2014 Simon Cruanes
|
|
*)
|
|
|
|
module Make (E : Expr_intf.S)
|
|
(Th : Plugin_intf.S with type term = E.Term.t and type formula = E.Formula.t and type proof = E.proof)
|
|
(Dummy: sig end) = struct
|
|
|
|
module St = Solver_types.McMake(E)
|
|
|
|
module M = Internal.Make(St)(Th)()
|
|
|
|
include St
|
|
|
|
include M
|
|
|
|
end
|
|
|