mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-06 03:05:31 -05:00
16 lines
474 B
OCaml
16 lines
474 B
OCaml
|
|
module type S = Backend_intf.S
|
|
|
|
module type Arg = sig
|
|
type proof
|
|
type formula
|
|
val prove : Format.formatter -> formula list -> unit
|
|
val context : Format.formatter -> proof -> unit
|
|
val translate : Format.formatter -> formula -> unit
|
|
end
|
|
|
|
module Make :
|
|
functor(S : Res.S) ->
|
|
functor(A : Arg with type formula := S.atom and type proof := S.proof) ->
|
|
S with type t := S.proof
|
|
(** Functor to generate a backend to output proofs for the dedukti type checker. *)
|