diff options
| author | Pierre-Marie Pédrot | 2018-04-14 13:46:05 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-04-14 13:46:05 +0200 |
| commit | 2384fcb98640dbd9aeee4e8e43965d499e594815 (patch) | |
| tree | c7aaa89a76405ab8695d26590d76a971a170c850 /proofs/pfedit.ml | |
| parent | 4f6681a4835758a27aaade3c18c21a5fe6d283c5 (diff) | |
| parent | e158df83522215b7699879c38906471598217866 (diff) | |
Merge PR #7136: Evar maps contain econstrs.
Diffstat (limited to 'proofs/pfedit.ml')
| -rw-r--r-- | proofs/pfedit.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index 8725f51cd7..abda04ff1b 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -233,7 +233,7 @@ let apply_implicit_tactic tac = (); fun env sigma evk -> (Environ.named_context env) -> let tac = Proofview.tclTHEN tac (Proofview.tclEXTEND [] (Proofview.tclZERO (CErrors.UserError (None,Pp.str"Proof is not complete."))) []) in (try - let c = Evarutil.nf_evars_universes sigma evi.evar_concl in + let c = Evarutil.nf_evars_universes sigma (EConstr.Unsafe.to_constr evi.evar_concl) in let c = EConstr.of_constr c in if Evarutil.has_undefined_evars sigma c then raise Exit; let (ans, _, ctx) = |