diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-10-09 15:58:48 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-10-16 10:23:29 +0200 |
| commit | aadc5aee48fc0ddb01e3ae0b743a0b66edf2ff4a (patch) | |
| tree | 75f4928dd5b5087dd517f379b5b21f11a8055975 /proofs/goal.ml | |
| parent | 4c339d5e9efce992bae3c88598d04250946fcdd2 (diff) | |
Proofview.Refine: delay the marking of new evars as goals from [new_evar] to [refine].
This makes [new_evar] closer to be a mere wrapper around [Evarutil.new_evars]. Will allow restructuring of the refinement interface.
Diffstat (limited to 'proofs/goal.ml')
| -rw-r--r-- | proofs/goal.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index 4a1b6bfc0..ea0d534c1 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -49,6 +49,11 @@ let build e = cache = Evd.empty; } +let mark_as_goal evd { content } = + let info = Evd.find evd content in + let info = { info with Evd.evar_source = (fst (info.Evd.evar_source),Evar_kinds.GoalEvar) } in + let info = Typeclasses.mark_unresolvable info in + Evd.add evd content info let uid {content = e} = string_of_int (Evar.repr e) let get_by_uid u = |