"flat" function (subst unfolding)

From: asperti <asperti@c2b2084f-9a08-0410-b176-e24b037a169a>

diff --git a/helm/software/components/ng_paramodulation/foSubst.ml b/helm/software/components/ng_paramodulation/foSubst.ml
index 2d63d34afca2372e1c49f9dcea9c1f44959b17b7..aab2401684238b0d3e59ed3bc9c141c846a776d0 100644 (file)
--- a/helm/software/components/ng_paramodulation/foSubst.ml
+++ b/helm/software/components/ng_paramodulation/foSubst.ml
@@ -57,6 +57,10 @@
        Terms.Node (List.map (fun t -> apply_subst subst t) l)
 ;;
 
+  let flat subst =
+    List.map (fun (x,t) -> (x, apply_subst subst t)) subst
+;;
+
   let concat x y = x @ y;;
   
 (* end *)

diff --git a/helm/software/components/ng_paramodulation/foSubst.mli b/helm/software/components/ng_paramodulation/foSubst.mli
index 29516c57f8fb9d6095802baf869141d41889a06f..36a4c12eacced72efdcba914daaa4935b248cd85 100644 (file)
--- a/helm/software/components/ng_paramodulation/foSubst.mli
+++ b/helm/software/components/ng_paramodulation/foSubst.mli
@@ -26,6 +26,8 @@ module Subst (B : Terms.Blob) :
           'a Terms.substitution -> 'a Terms.foterm -> 'a Terms.foterm
     val apply_subst : 
           'a Terms.substitution -> 'a Terms.foterm -> 'a Terms.foterm
+    val flat: 
+          'a Terms.substitution -> 'a Terms.substitution
     val concat: 
           'a Terms.substitution -> 'a Terms.substitution -> 
             'a Terms.substitution