From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Sat, 18 Feb 2006 18:20:02 +0000 (+0000)
Subject: Trivial bug fixed in the merging of polymorphic coercions.
X-Git-Tag: 0.4.95@7852~1653
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=07e0107cb4a981be6089dc3f63f775fd31bbfe0d;p=helm.git

Trivial bug fixed in the merging of polymorphic coercions.
---

diff --git a/components/library/cicCoercion.ml b/components/library/cicCoercion.ml
index 40def8238..7e36ac1aa 100644
--- a/components/library/cicCoercion.ml
+++ b/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