diff options
author | 2010-06-29 08:27:03 +0000 | |
---|---|---|
committer | 2010-06-29 08:27:03 +0000 | |
commit | 7e2f953c3c19904616c43990fada92e762aadec9 (patch) | |
tree | 8268d6e2b66ccdcce69df129ed98703e87f141b0 /toplevel/lemmas.ml | |
parent | ee711f8994d5e2e94cc61292ac6aab125c23df1c (diff) |
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
Diffstat (limited to 'toplevel/lemmas.ml')
-rw-r--r-- | toplevel/lemmas.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/lemmas.ml b/toplevel/lemmas.ml index 01cfd22e8..efb0595ab 100644 --- a/toplevel/lemmas.ml +++ b/toplevel/lemmas.ml @@ -320,7 +320,7 @@ let start_proof_com kind thms hook = Sign.iter_rel_context (check_evars env Evd.empty !evdref) ctx; let ids = List.map pi1 ctx in (compute_proof_name (fst kind) sopt, - (nf_isevar !evdref (it_mkProd_or_LetIn t' ctx), + (nf_evar !evdref (it_mkProd_or_LetIn t' ctx), (ids, imps @ lift_implicits (List.length ids) imps'), guard))) thms in |