X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Flibrary%2FcicCoercion.ml;h=7e36ac1aa5000d5c7ff2bb7dbc7627aa3d496e70;hb=3cc1aec78e4c51aa766127487f19a3d38a4b56ae;hp=40def823834c65c256f4b6b0752d465aecaba343;hpb=185bfc8f9c9ba49308477ee6769701f3e2977115;p=helm.git

diff --git a/helm/software/components/library/cicCoercion.ml b/helm/software/components/library/cicCoercion.ml
index 40def8238..7e36ac1aa 100644
--- a/helm/software/components/library/cicCoercion.ml
+++ b/helm/software/components/library/cicCoercion.ml
@@ -109,7 +109,7 @@ let generate_composite_closure rt c1 c2 univ =
     let rec aux = function
         | Cic.Lambda (_, Cic.Meta (i,_), t) when  
           List.exists (fun (j,_,_) -> j = i) metasenv ->
-            CicSubstitution.subst (Cic.Rel ~-100) t
+            aux (CicSubstitution.subst (Cic.Rel ~-100) t)
         | Cic.Lambda (name, s, t) -> 
             Cic.Lambda (name, s, aux t)
         | t -> t