mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-07 11:45:41 -05:00
22 lines
542 B
OCaml
22 lines
542 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 lemma := S.lemma
|
|
and type proof := S.proof) ->
|
|
S with type t := S.proof
|
|
(** Functor to generate a backend to output proofs for the dedukti type checker. *)
|