X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FfoSubst.ml;h=aab2401684238b0d3e59ed3bc9c141c846a776d0;hb=d3d800c2489ea484c5e9891f494ca8b07a681c15;hp=2d63d34afca2372e1c49f9dcea9c1f44959b17b7;hpb=fa01419bafd483b5a043a93a2f812a98cf178e22;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/foSubst.ml b/helm/software/components/ng_paramodulation/foSubst.ml
index 2d63d34af..aab240168 100644
--- 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 *)