diff options
| author | Hugo Herbelin | 2014-11-02 17:02:32 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2014-11-02 19:58:03 +0100 |
| commit | 78717e3cdc53fda4f41bfa41f13872083413abc0 (patch) | |
| tree | 2e69726fd968a34c03f88a99d7f4207cd6c77d99 /parsing | |
| parent | eb863af14628cd13ceb455c406937c717c8d3ee5 (diff) | |
Supporting "at occs" as a short-hand for "in |- * at occs" in "destruct".
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_tactic.ml4 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index a57720755a..e6f2af32ba 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -395,7 +395,9 @@ GEXTEND Gram | -> {onhyps=None; concl_occs=AllOccurrences} ] ] ; opt_clause: - [ [ "in"; cl = in_clause -> Some cl | -> None ] ] + [ [ "in"; cl = in_clause -> Some cl + | "at"; occs = occs_nums -> Some {onhyps=Some[]; concl_occs=occs} + | -> None ] ] ; concl_occ: [ [ "*"; occs = occs -> occs |