From: Andrea Asperti <andrea.asperti@unibo.it>
Date: Wed, 20 Jul 2005 07:22:49 +0000 (+0000)
Subject: Assert false removed (although conceptually correct).
X-Git-Tag: V_0_7_2~157
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=4f179a8afdb2f11e669354f8fca4ffd1b0308bd2;p=helm.git

Assert false removed (although conceptually correct).
The problem isgenerating names during the refinement of incomplete terms;
the right solution would be to generate names only AFTER refinement.
---

diff --git a/helm/ocaml/cic_proof_checking/.depend b/helm/ocaml/cic_proof_checking/.depend
index b41b42a93..630876902 100644
--- a/helm/ocaml/cic_proof_checking/.depend
+++ b/helm/ocaml/cic_proof_checking/.depend
@@ -22,9 +22,9 @@ freshNamesGenerator.cmo: cicTypeChecker.cmi cicSubstitution.cmi \
     freshNamesGenerator.cmi 
 freshNamesGenerator.cmx: cicTypeChecker.cmx cicSubstitution.cmx \
     freshNamesGenerator.cmi 
-cicElim.cmo: cicTypeChecker.cmi cicSubstitution.cmi cicReduction.cmi \
-    cicPp.cmi cicEnvironment.cmi cicElim.cmi 
-cicElim.cmx: cicTypeChecker.cmx cicSubstitution.cmx cicReduction.cmx \
-    cicPp.cmx cicEnvironment.cmx cicElim.cmi 
+cicElim.cmo: freshNamesGenerator.cmi cicTypeChecker.cmi cicSubstitution.cmi \
+    cicReduction.cmi cicPp.cmi cicEnvironment.cmi cicElim.cmi 
+cicElim.cmx: freshNamesGenerator.cmx cicTypeChecker.cmx cicSubstitution.cmx \
+    cicReduction.cmx cicPp.cmx cicEnvironment.cmx cicElim.cmi 
 cicRecord.cmo: cicSubstitution.cmi cicEnvironment.cmi cicRecord.cmi 
 cicRecord.cmx: cicSubstitution.cmx cicEnvironment.cmx cicRecord.cmi 
diff --git a/helm/ocaml/cic_proof_checking/freshNamesGenerator.ml b/helm/ocaml/cic_proof_checking/freshNamesGenerator.ml
index 67d213547..58ff7f96e 100755
--- a/helm/ocaml/cic_proof_checking/freshNamesGenerator.ml
+++ b/helm/ocaml/cic_proof_checking/freshNamesGenerator.ml
@@ -51,7 +51,7 @@ let rec guess_a_name context ty =
     Cic.Rel n ->  
       (match List.nth context (n-1) with
 	None -> assert false
-      | Some (Cic.Anonymous,_) -> assert false
+      | Some (Cic.Anonymous,_) -> "eccomi_qua"
       | Some (Cic.Name s,_) -> get_initial s)
   | Cic.Var (uri,_) -> get_initial (UriManager.name_of_uri uri)
   | Cic.Sort _ -> higher_name 0 ty