mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-10 05:03:59 -05:00
34 lines
740 B
OCaml
34 lines
740 B
OCaml
(*
|
|
MSAT is free software, using the Apache license, see file LICENSE
|
|
Copyright 2014 Guillaume Bury
|
|
Copyright 2014 Simon Cruanes
|
|
*)
|
|
|
|
(** Deduki backend for proofs
|
|
|
|
Work in progress...
|
|
*)
|
|
|
|
open Msat
|
|
|
|
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.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. *)
|