X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_proof_checking%2FfreshNamesGenerator.ml;h=113edd1ff229ad00aecde38451ecb42339ff89a2;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=67d21354776883c0707a93d2aec92bfc8ad6e1f4;hpb=e5108fbb1b112d713e611f7dbcd8a2ab8002e9a5;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/freshNamesGenerator.ml b/helm/ocaml/cic_proof_checking/freshNamesGenerator.ml
index 67d213547..113edd1ff 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
@@ -256,7 +256,7 @@ let clean_dummy_dependent_types t =
             C.Anonymous ->
              if List.mem k rels2 then
 (
-              debug_print "If this happens often, we can do something about it (i.e. we can generate a new fresh name; problem: we need the metasenv and context ;-(. Alternative solution: mk_implicit does not generate entries for the elements in the context that have no name" ;
+              debug_print (lazy "If this happens often, we can do something about it (i.e. we can generate a new fresh name; problem: we need the metasenv and context ;-(. Alternative solution: mk_implicit does not generate entries for the elements in the context that have no name") ;
               C.Anonymous
 )
              else