diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/goal.ml | 2 | ||||
| -rw-r--r-- | proofs/goal.mli | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index 0f10c7f84b..b2e05a5241 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -23,6 +23,8 @@ 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 uid {content = e} = string_of_int e + let pr_goal {content = e} = str "GOAL:" ++ Pp.int e (* access primitive *) diff --git a/proofs/goal.mli b/proofs/goal.mli index 69b2693f7e..c36b359ed6 100644 --- a/proofs/goal.mli +++ b/proofs/goal.mli @@ -15,6 +15,10 @@ type goal sort of communication pipes. But I find it heavy. *) val build : Evd.evar -> goal +(* Gives a unique identifier to each goal. The identifier is + guaranteed to contain no space. *) +val uid : goal -> string + (* Debugging help *) val pr_goal : goal -> Pp.std_ppcmds |