code refactoring for paramodulation

[helm.git] / helm / software / components / ng_paramodulation / paramod.mli

diff --git a/helm/software/components/ng_paramodulation/paramod.mli b/helm/software/components/ng_paramodulation/paramod.mli
index 821ac0e2cbb8f08ef0255ec3e6c47771df2bebdb..2664494993095eac6ea96f1464638ffd51930a7a 100644 (file)
--- a/helm/software/components/ng_paramodulation/paramod.mli
+++ b/helm/software/components/ng_paramodulation/paramod.mli
@@ -1,5 +1,23 @@
-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
+(*
+    ||M||  This file is part of HELM, an Hypertextual, Electronic        
+    ||A||  Library of Mathematics, developed at the Computer Science     
+    ||T||  Department, University of Bologna, Italy.                     
+    ||I||                                                                
+    ||T||  HELM is free software; you can redistribute it and/or         
+    ||A||  modify it under the terms of the GNU General Public License   
+    \   /  version 2 or (at your option) any later version.      
+     \ /   This software is distributed as is, NO WARRANTY.     
+      V_______________________________________________________________ *)
+
+(* $Id: orderings.ml 9869 2009-06-11 22:52:38Z denes $ *)
+
+module Paramod ( B : Terms.Blob ) : 
+  sig
+    type bag = B.t Terms.bag * int
+    val mk_passive : bag -> B.t * B.t -> bag * B.t Terms.unit_clause
+    val mk_goal : bag -> B.t * B.t -> bag * B.t Terms.unit_clause
+    val paramod : 
+      bag -> g_passives:B.t Terms.unit_clause list -> 
+      passives:B.t Terms.unit_clause list ->
+       (B.t Terms.bag * int * int list) list
+  end