diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-08-21 12:23:06 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-12 10:47:28 +0200 |
commit | d542746c848d4795d4af97874a30fa5e98c8a6b2 (patch) | |
tree | fb9c4e64abbe558f7b217c9f9b5c513ad78095ac /proofs/goal.ml | |
parent | b006f10e7d591417844ffa1f04eeb926d6092d7b (diff) |
Use evar name to print goal.
Diffstat (limited to 'proofs/goal.ml')
-rw-r--r-- | proofs/goal.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index dc55c8179..55de87261 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 |