X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FnCicProof.mli;h=2aa0a8dd81ef565a9ae2109b8e8ba7c001b3f0c1;hb=2d3494c5c68a48b663eed55c1ac55f3c8f832820;hp=0c65b5793f8d696bb49cd4209fc408165be05b9a;hpb=5587716849ea45d539c26b6aaeeba00bf16f00be;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/nCicProof.mli b/helm/software/components/ng_paramodulation/nCicProof.mli
index 0c65b5793..2aa0a8dd8 100644
--- a/helm/software/components/ng_paramodulation/nCicProof.mli
+++ b/helm/software/components/ng_paramodulation/nCicProof.mli
@@ -11,7 +11,16 @@
 
 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
 
+type eq_sig_type = Eq | EqInd_l | EqInd_r | Refl
+
 val set_reference_of_oxuri: (UriManager.uri -> NReference.reference) -> unit
 val set_default_sig: unit -> unit
+val get_sig: eq_sig_type -> NCic.term
 
-val mk_proof:NCic.term Terms.bag -> Terms.M.key -> Terms.M.key list -> NCic.term
+val mk_proof:
+  ?demod:bool
+  -> NCic.term Terms.bag 
+  -> Terms.M.key 
+  -> NCic.term Terms.substitution
+  -> Terms.M.key list 
+  -> NCic.term * NCic.term (* proof, type *)