From 7e2f953c3c19904616c43990fada92e762aadec9 Mon Sep 17 00:00:00 2001 From: herbelin Date: Tue, 29 Jun 2010 08:27:03 +0000 Subject: Made tclABSTRACT normalize evars before saying it does not support them. This was the cause of the failure of compilation of CyclicAxioms after "replace" starting supporting open constrs (r13206). Seized the opportunity to clean a little bit things around nf_evar, whd_evar, check_evars, etc. Removed obsolete printer mod_self_id from dev/db. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13214 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/subtac/subtac_cases.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'plugins/subtac/subtac_cases.ml') diff --git a/plugins/subtac/subtac_cases.ml b/plugins/subtac/subtac_cases.ml index 29ce9d3d4..491b44fbb 100644 --- a/plugins/subtac/subtac_cases.ml +++ b/plugins/subtac/subtac_cases.ml @@ -1894,7 +1894,7 @@ let liftn_rel_context n k sign = liftrec (k + rel_context_length sign) sign let nf_evars_env sigma (env : env) : env = - let nf t = nf_isevar sigma t in + let nf t = nf_evar sigma t in let env0 : env = reset_context env in let f e (na, b, t) e' : env = Environ.push_named (na, Option.map nf b, nf t) e' @@ -1912,7 +1912,7 @@ let prepare_predicate_from_rettyp loc typing_fun isevars env tomatchs sign tycon match rtntyp with | Some rtntyp -> let predcclj = typing_fun (mk_tycon (new_Type ())) newenv rtntyp in - let predccl = (j_nf_isevar !isevars predcclj).uj_val in + let predccl = (j_nf_evar !isevars predcclj).uj_val in Some (build_initial_predicate true allnames predccl) | None -> match valcon_of_tycon tycon with @@ -1993,7 +1993,7 @@ let compile_cases loc style (typing_fun, isevars) (tycon : Evarutil.type_constra let body = it_mkLambda_or_LetIn (applistc j.uj_val args) lets in let j = { uj_val = it_mkLambda_or_LetIn body tomatchs_lets; - uj_type = nf_isevar !isevars tycon; } + uj_type = nf_evar !isevars tycon; } in j else (* We build the elimination predicate if any and check its consistency *) -- cgit v1.2.3