From 4f179a8afdb2f11e669354f8fca4ffd1b0308bd2 Mon Sep 17 00:00:00 2001 From: Andrea Asperti Date: Wed, 20 Jul 2005 07:22:49 +0000 Subject: [PATCH] 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. --- helm/ocaml/cic_proof_checking/.depend | 8 ++++---- helm/ocaml/cic_proof_checking/freshNamesGenerator.ml | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) 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 -- 2.39.2