diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-07 00:56:12 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-07 00:56:12 +0200 |
| commit | 82f18a32e4740c1429ac62506faff83955423417 (patch) | |
| tree | fa1fba2891811139dfa30c1df7cfaad0581fb4d0 /proofs/pfedit.ml | |
| parent | 6748d06e9618a91a63cd09b4809e67b665818acd (diff) | |
| parent | 31a35fe712a836c90562edebc01bfcf3d1c6646a (diff) | |
Merge PR #6874: [econstr] Some minor tweaks
Diffstat (limited to 'proofs/pfedit.ml')
| -rw-r--r-- | proofs/pfedit.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index 03c0969fa..678c3ea3f 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -200,8 +200,7 @@ let refine_by_tactic env sigma ty tac = | [c, _] -> c | _ -> assert false in - let ans = Reductionops.nf_evar sigma ans in - let ans = EConstr.Unsafe.to_constr ans in + let ans = EConstr.to_constr ~abort_on_undefined_evars:false sigma ans in (** [neff] contains the freshly generated side-effects *) let neff = Evd.eval_side_effects sigma in (** Reset the old side-effects *) |