mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-09 12:45:48 -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).
27 lines
1.4 KiB
OCaml
27 lines
1.4 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Cubicle *)
|
|
(* Combining model checking algorithms and SMT solvers *)
|
|
(* *)
|
|
(* Mohamed Iguernelala *)
|
|
(* Universite Paris-Sud 11 *)
|
|
(* *)
|
|
(* Copyright 2011. This file is distributed under the terms of the *)
|
|
(* Apache Software License version 2.0 *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
module type S = Solver_intf.S
|
|
|
|
(** Simple case where the proof type is [unit] and the theory is empty *)
|
|
module DummyTheory(F : Formula_intf.S with type proof = unit) :
|
|
Theory_intf.S with type formula = F.t and type proof = unit
|
|
|
|
module Make (F : Formula_intf.S)
|
|
(Th : Theory_intf.S with type formula = F.t and type proof = F.proof)
|
|
(Dummy: sig end) :
|
|
S with type St.formula = F.t
|
|
and type St.proof = F.proof
|
|
(** Functor to create a SMT Solver parametrised by the atomic
|
|
formulas and a theory. *)
|
|
|