diff options
| author | Pierre-Marie Pédrot | 2018-07-06 18:32:44 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-07-06 18:32:44 +0200 |
| commit | fa8008b476b61da46a7bd6cc80ab4f0204c3b26e (patch) | |
| tree | 89d261270efd90b1dc0b0c3498a3e64b49d62284 | |
| parent | ec96efa8c10effb890c79ef3479ea4390ed8796e (diff) | |
| parent | 6afce6741c5436307116559820de96c672b4c501 (diff) | |
Merge PR #7821: [refine] obey the use_unification_heuristics flag
| -rw-r--r-- | plugins/ltac/extratactics.ml4 | 2 | ||||
| -rw-r--r-- | proofs/pfedit.mli | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/plugins/ltac/extratactics.ml4 b/plugins/ltac/extratactics.ml4 index 660e29ca82..f24ab2bddb 100644 --- a/plugins/ltac/extratactics.ml4 +++ b/plugins/ltac/extratactics.ml4 @@ -293,7 +293,7 @@ open Vars let constr_flags () = { Pretyping.use_typeclasses = true; - Pretyping.solve_unification_constraints = true; + Pretyping.solve_unification_constraints = Pfedit.use_unification_heuristics (); Pretyping.use_hook = Pfedit.solve_by_implicit_tactic (); Pretyping.fail_evar = false; Pretyping.expand_evars = true } diff --git a/proofs/pfedit.mli b/proofs/pfedit.mli index 7b79732249..e02b5ab956 100644 --- a/proofs/pfedit.mli +++ b/proofs/pfedit.mli @@ -85,6 +85,9 @@ val solve : ?with_end_tac:unit Proofview.tactic -> val by : unit Proofview.tactic -> bool +(** Option telling if unification heuristics should be used. *) +val use_unification_heuristics : unit -> bool + (** [instantiate_nth_evar_com n c] instantiate the [n]th undefined existential variable of the current focused proof by [c] or raises a UserError if no proof is focused or if there is no such [n]th |