mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-08 04:05:43 -05:00
f88a5dd514
This ensures that the same solver_types module is not reused for two different solvers, which would be problematic. Marked minor because of the low use of multiple instances of a solver.
20 lines
430 B
OCaml
20 lines
430 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)(struct end)
|
|
|
|
module M = Internal.Make(St)(Th)(struct end)
|
|
|
|
include St
|
|
|
|
include M
|
|
|
|
end
|
|
|