Assert false removed (although conceptually correct).

[helm.git] / helm / ocaml / cic_proof_checking / freshNamesGenerator.ml

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