apply and auto.equational_case call saturation.solve_narrowing

[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 d16c9e28a8aa9f8653b149c82b8c03fd025f5e5c..d890a719d6a8a403c693e86591b401aebc02e980 100644 (file)
--- a/helm/software/components/tactics/paramodulation/saturation.mli
+++ b/helm/software/components/tactics/paramodulation/saturation.mli
@@ -25,44 +25,46 @@
 
 (* $Id$ *)
 
-val saturate : (* FIXME: should be exported a a tactic *)
-  bool ->
-  HMysql.dbd ->
-  ?full:bool ->
-  ?depth:int ->
-  ?width:int ->
-  ?timeout:float ->
-  ?auto:Equality_retrieval.auto_type ->
-  ProofEngineTypes.status ->
-  ProofEngineTypes.proof * ProofEngineTypes.goal list
+type passive_table
+type active_table = Equality.equality list * Indexing.Index.t
+
+val reset_refs : unit -> unit
 
-type active_table 
-type passive_table 
 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 find_equalities:
-  HMysql.dbd ->
-  ProofEngineTypes.status ->
-  bool -> (* smart_flag *)
-  ?auto:Equality_retrieval.auto_type -> 
-  AutoCache.cache ->
-  Equality.equality_bag *
-    Equality.equality list * AutoCache.cache * int
-val saturate_more: 
+val simplify_equalities : 
+  Equality.equality_bag ->
+  UriManager.uri ->
+  Utils.environment -> 
+  Equality.equality list -> 
+  Equality.equality_bag * Equality.equality list
+val pump_actives :
+  Cic.context ->
   Equality.equality_bag ->
   active_table ->
-  int -> (* maxmeta *)
+  passive_table -> 
+  int -> 
+  float -> 
+  active_table * passive_table * Equality.equality_bag
+val all_subsumed :
+  Equality.equality_bag ->
   ProofEngineTypes.status ->
-  bool -> (* smart flag *)
-  ?auto:Equality_retrieval.auto_type ->
-  AutoCache.cache ->
-    Equality.equality_bag * Equality.equality list * AutoCache.cache * int
-
+  active_table ->
+  passive_table -> 
+  (Cic.substitution * 
+     ProofEngineTypes.proof * 
+     ProofEngineTypes.goal list) list
 val given_clause: 
   Equality.equality_bag ->
-  int -> (* maxmeta *)
   ProofEngineTypes.status ->
   active_table ->
   passive_table -> 
@@ -70,30 +72,15 @@ val given_clause:
     (Cic.substitution * 
      ProofEngineTypes.proof * 
      ProofEngineTypes.goal list) option * 
-    active_table * passive_table * int
+    active_table * passive_table * Equality.equality_bag
 
-val demodulate_tac: dbd:HMysql.dbd ->  ProofEngineTypes.tactic
-
-val superposition_tac: 
-  target:string -> table:string -> subterms_only:bool ->
-  demod_table:string ->  ProofEngineTypes.proof * ProofEngineTypes.goal ->
-   ProofEngineTypes.proof * ProofEngineTypes.goal list
-
-val get_stats: unit -> string
-  
-(* this is used only in saturate_main: MUST BE REMOVED!  *)
-val weight_age_ratio : int ref
-val weight_age_counter: int ref
-val symbols_ratio: int ref
-val symbols_counter: int ref
-val use_fullred: bool ref
-val time_limit: float ref
-val maxwidth: int ref
-val maxdepth: int ref
-val retrieve_and_print: 
-  HMysql.dbd -> Cic.term -> Cic.conjecture list -> 'a -> unit
-val main_demod_equalities: HMysql.dbd ->
-    Cic.term -> Cic.conjecture list -> CicUniv.universe_graph -> unit
-val main: HMysql.dbd ->
-    bool -> Cic.term -> Cic.conjecture list -> CicUniv.universe_graph -> unit
-(* eof *)
+val solve_narrowing: 
+  Equality.equality_bag ->
+  ProofEngineTypes.status ->
+  active_table ->
+  passive_table -> 
+  int -> 
+    (Cic.substitution * 
+     ProofEngineTypes.proof * 
+     ProofEngineTypes.goal list) option * 
+    active_table * passive_table * Equality.equality_bag