diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-10-31 15:49:09 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2015-11-02 15:46:40 +0100 |
commit | 4e643d134f02cfa9a73754c3cf48048541324834 (patch) | |
tree | 54a8d34fb69fd23b1d5034f13c2cafb20fcc3e0f /parsing | |
parent | 69be6a29cf9f774cb4afe94d76b157ba50984c1d (diff) |
Adding syntax "Show id" to show goal named id (shelved or not).
Diffstat (limited to 'parsing')
-rw-r--r-- | parsing/g_proofs.ml4 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/g_proofs.ml4 b/parsing/g_proofs.ml4 index 7f5459bfa..017f0ea50 100644 --- a/parsing/g_proofs.ml4 +++ b/parsing/g_proofs.ml4 @@ -73,8 +73,10 @@ GEXTEND Gram | IDENT "Unfocused" -> VernacUnfocused | IDENT "Show" -> VernacShow (ShowGoal OpenSubgoals) | IDENT "Show"; n = natural -> VernacShow (ShowGoal (NthGoal n)) + | IDENT "Show"; id = ident -> VernacShow (ShowGoal (GoalId id)) + | IDENT "Show"; IDENT "Goal" -> VernacShow (ShowGoal (GoalId (Names.Id.of_string "Goal"))) | IDENT "Show"; IDENT "Goal"; n = string -> - VernacShow (ShowGoal (GoalId n)) + VernacShow (ShowGoal (GoalUid n)) | IDENT "Show"; IDENT "Implicit"; IDENT "Arguments"; n = OPT natural -> VernacShow (ShowGoalImplicitly n) | IDENT "Show"; IDENT "Node" -> VernacShow ShowNode |