parameter sintax added to axiom statement

[helm.git] / helm / software / components / ng_paramodulation / foUnif.ml

diff --git a/helm/software/components/ng_paramodulation/foUnif.ml b/helm/software/components/ng_paramodulation/foUnif.ml
index cb3045c1918e9b0c9682e68c939440eb061d5c10..0946873b9af5c11fea237022b2394a40393e3de6 100644 (file)
--- a/helm/software/components/ng_paramodulation/foUnif.ml
+++ b/helm/software/components/ng_paramodulation/foUnif.ml
@@ -81,6 +81,7 @@ module Founif (B : Orderings.Blob) = struct
     subst
 ;;
 
+(* Sets of variables in s and t are assumed to be disjoint  *)
   let alpha_eq s t =
     let rec equiv subst s t =
       let s = match s with Terms.Var i -> Subst.lookup i subst | _ -> s
@@ -106,5 +107,6 @@ module Founif (B : Orderings.Blob) = struct
     in
       equiv Subst.id_subst s t
 ;;
+       
 
 end