mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-07 19:55:41 -05:00
19 lines
484 B
OCaml
19 lines
484 B
OCaml
|
|
module type S = Backend_intf.S
|
|
|
|
module type Arg = sig
|
|
|
|
type lemma
|
|
type proof
|
|
type formula
|
|
|
|
val print : Format.formatter -> formula -> unit
|
|
val prove : Format.formatter -> lemma -> unit
|
|
val context : Format.formatter -> proof -> unit
|
|
end
|
|
|
|
module Make :
|
|
functor(S : Res.S) ->
|
|
functor(A : Arg with type formula := S.St.formula and type proof := S.proof) ->
|
|
S with type t := S.proof
|
|
(** Functor to generate a backend to output proofs for the dedukti type checker. *)
|