demodulate takes an extra argument 'all', if present it attempts to solve

[helm.git] / helm / software / components / tactics / paramodulation / saturation.mli

diff --git a/helm/software/components/tactics/paramodulation/saturation.mli b/helm/software/components/tactics/paramodulation/saturation.mli
index 20b564f4bc7590ca05c0f581cb4ff652415adde0..71764cddd2ce619c35a1b291248f6b5cc1f7c267 100644 (file)
--- a/helm/software/components/tactics/paramodulation/saturation.mli
+++ b/helm/software/components/tactics/paramodulation/saturation.mli
@@ -33,35 +33,38 @@ val reset_refs : unit -> unit
 val make_active: Equality.equality list -> active_table
 val make_passive: Equality.equality list -> passive_table
 val add_to_passive: Equality.equality list -> passive_table -> passive_table
+val add_to_active: 
+      Equality.equality_bag -> 
+      active_table -> passive_table ->
+      Utils.environment -> Cic.term (* ty *) -> Cic.term -> Cic.metasenv ->
+          active_table * passive_table * Equality.equality_bag 
 val list_of_passive: passive_table -> Equality.equality list
+val list_of_active: active_table -> Equality.equality list
 
 val simplify_equalities : 
   Equality.equality_bag ->
   UriManager.uri ->
   Utils.environment -> 
   Equality.equality list -> 
-  Equality.equality list
+  Equality.equality_bag * Equality.equality list
 val pump_actives :
   Cic.context ->
   Equality.equality_bag ->
-  int ->
   active_table ->
   passive_table -> 
   int -> 
   float -> 
-  active_table * passive_table * int
+  active_table * passive_table * Equality.equality_bag
 val all_subsumed :
   Equality.equality_bag ->
-  int ->
   ProofEngineTypes.status ->
   active_table ->
   passive_table -> 
   (Cic.substitution * 
      ProofEngineTypes.proof * 
-     ProofEngineTypes.goal list) list * int
+     ProofEngineTypes.goal list) list
 val given_clause: 
   Equality.equality_bag ->
-  int -> (* maxmeta *)
   ProofEngineTypes.status ->
   active_table ->
   passive_table -> 
@@ -69,5 +72,5 @@ val given_clause:
     (Cic.substitution * 
      ProofEngineTypes.proof * 
      ProofEngineTypes.goal list) option * 
-    active_table * passive_table * int
+    active_table * passive_table * Equality.equality_bag