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 b41b42a931d749ac004a76ff940e81a481be0881..630876902740c65b59de778382da1a7949e1015d 100644 (file)
--- 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 67d21354776883c0707a93d2aec92bfc8ad6e1f4..58ff7f96efebf0a0c7de7fcf7d230be6640e9c0d 100755 (executable)
--- 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