diff options
| author | herbelin | 2011-08-30 14:36:03 +0000 |
|---|---|---|
| committer | herbelin | 2011-08-30 14:36:03 +0000 |
| commit | 23bd24966649c87c9c3fcbae13a60d4aa95fa076 (patch) | |
| tree | 15ad6c293fe07186116ca996d081595f8a6d4fff /proofs | |
| parent | e136645178f91b821bb444fa86f615caa1873c1c (diff) | |
Porting Hendrik's 8.3 patch for proof tree visualization under proof
general to trunk (only printing of goal ID done - printing of
instantiated dependent evars not done).
(joint work with Arnaud)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14423 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |