X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FnCicParamod.mli;h=96eeb71aeda6d8eb2fbfb13e8c1fc017c044702e;hb=277fc8ff21ce3dbd6893b1994c55cf5c06a98355;hp=067235158043fda321e20fecebe08a458ffc8f12;hpb=6332719f74f68beb0501e03f8e8aa6a5e0a78aed;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/nCicParamod.mli b/helm/software/components/ng_paramodulation/nCicParamod.mli
index 067235158..96eeb71ae 100644
--- a/helm/software/components/ng_paramodulation/nCicParamod.mli
+++ b/helm/software/components/ng_paramodulation/nCicParamod.mli
@@ -11,11 +11,33 @@
 
 (* $Id: orderings.ml 9869 2009-06-11 22:52:38Z denes $ *)
 
-module NCicParamod(C : NCicBlob.NCicContext) : Paramod.Paramod
-with type t = NCic.term and type input = NCic.term 
-
 val nparamod :
   #NRstatus.status ->
   NCic.metasenv -> NCic.substitution -> NCic.context -> 
     (NCic.term * NCic.term) -> (NCic.term * NCic.term) list ->
-     (NCic.term * NCic.metasenv * NCic.substitution) list
+     (NCic.term * NCic.term * NCic.metasenv * NCic.substitution) list
+
+type state 
+val empty_state: state
+val forward_infer_step: state -> NCic.term -> NCic.term -> state
+val index_obj: state -> NUri.uri -> state
+val is_equation: NCic.metasenv ->
+           NCic.substitution -> NCic.context -> NCic.term -> bool
+val paramod : 
+  #NRstatus.status ->
+  NCic.metasenv -> NCic.substitution -> NCic.context ->
+  state -> 
+  (NCic.term * NCic.term) -> 
+  (NCic.term * NCic.term * NCic.metasenv * NCic.substitution) list
+val fast_eq_check : 
+  #NRstatus.status ->
+  NCic.metasenv -> NCic.substitution -> NCic.context ->
+  state -> 
+  (NCic.term * NCic.term) -> 
+  (NCic.term * NCic.term * NCic.metasenv * NCic.substitution) list
+val demod : 
+  #NRstatus.status ->
+  NCic.metasenv -> NCic.substitution -> NCic.context ->
+  state -> 
+  (NCic.term * NCic.term) -> 
+  (NCic.term * NCic.term * NCic.metasenv * NCic.substitution) list