X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_procedural%2FproceduralConversion.ml;h=324141af46b0783c535ab07eab7720dbdb801663;hb=f5dfc6c24a393a4717a7b40689df768d271d9ac0;hp=b3a247b02c448ca53aa7070a677d8f4574f97ef6;hpb=84b0d9386906e5bf13bf3d0e6ea736e05ac9e8b8;p=helm.git

diff --git a/helm/software/components/acic_procedural/proceduralConversion.ml b/helm/software/components/acic_procedural/proceduralConversion.ml
index b3a247b02..324141af4 100644
--- a/helm/software/components/acic_procedural/proceduralConversion.ml
+++ b/helm/software/components/acic_procedural/proceduralConversion.ml
@@ -210,9 +210,9 @@ let get_clears c p xtypes =
 	    else 
 	       hd, names, v
 	 in
-	 let p = C.LetIn (n, v, assert false, p) in
-	 let it = C.LetIn (n, v, assert false, it) in
-	 let et = C.LetIn (n, v, assert false, et) in
+	 let p = C.LetIn (n, v, x, p) in
+	 let it = C.LetIn (n, v, x, it) in
+	 let et = C.LetIn (n, v, x, et) in
 	 aux (hd :: c) names p it et tl
       | Some (C.Anonymous as n, C.Decl v) as hd :: tl     ->
 	 let p = C.Lambda (n, meta, p) in
@@ -220,9 +220,9 @@ let get_clears c p xtypes =
 	 let et = C.Lambda (n, meta, et) in
 	 aux (hd :: c) names p it et tl
       | Some (C.Anonymous as n, C.Def (v, _)) as hd :: tl ->
-	 let p = C.LetIn (n, meta, assert false, p) in
-	 let it = C.LetIn (n, meta, assert false, it) in
-	 let et = C.LetIn (n, meta, assert false, et) in
+	 let p = C.LetIn (n, meta, meta, p) in
+	 let it = C.LetIn (n, meta, meta, it) in
+	 let et = C.LetIn (n, meta, meta, et) in
 	 aux (hd :: c) names p it et tl
       | None :: tl                                        -> assert false
    in