diff options
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 = |