diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/goal.ml | 3 | ||||
| -rw-r--r-- | proofs/goal.mli | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index dc55c8179a..55de872612 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -31,9 +31,10 @@ type goal = { (* spiwack: I don't deal with the tags, yet. It is a worthy discussion whether we do want some tags displayed besides the goal or not. *) - let pr_goal {content = e} = str "GOAL:" ++ Pp.int (Evar.repr e) +let goal_ident sigma {content = e} = Evd.evar_ident e sigma + (* access primitive *) (* invariant : [e] must exist in [em] *) let content evars { content = e } = Evd.find evars e diff --git a/proofs/goal.mli b/proofs/goal.mli index 4d3361b0e3..4b85ec20b1 100644 --- a/proofs/goal.mli +++ b/proofs/goal.mli @@ -25,6 +25,8 @@ val get_by_uid : string -> goal (* Debugging help *) val pr_goal : goal -> Pp.std_ppcmds +val goal_ident : Evd.evar_map -> goal -> Names.Id.t + (* [advance sigma g] returns [Some g'] if [g'] is undefined and is the current avatar of [g] (for instance [g] was changed by [clear] into [g']). It returns [None] if [g] has been (partially) solved. *) |