diff options
| author | herbelin | 2013-07-09 22:32:52 +0000 |
|---|---|---|
| committer | herbelin | 2013-07-09 22:32:52 +0000 |
| commit | 84ee4d12817c45d4c299cb0359e066b275360982 (patch) | |
| tree | d193f928f8853f6eaaa5403ceeaf5a159e6df549 /parsing | |
| parent | 92c45e641b0c8fda5fffb2cf543f886188fe772d (diff) | |
Revising r16550 about providing intro patterns for applying injection:
- Introduction of a specific notation for injection intropatterns: [= pats]
- Use of this specific pattern also to apply discriminate on the fly
Note: The automatic injection of dependent tuples over a same first
component (introduced in r10180) still not integrated to the main
parts of injection and its variant (indeed, it applies only for a root
dependent tuple in sigT).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16621 85f007b7-540e-0410-9357-904b9bb8a0f7
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 5c0996c944..13e422b54f 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -285,7 +285,9 @@ GEXTEND Gram let rec pairify = function | ([]|[_]|[_;_]) as l -> IntroOrAndPattern [l] | t::q -> IntroOrAndPattern [[t;(loc_of_ne_list q,pairify q)]] - in !@loc,pairify (si::tc) ] ] + in !@loc,pairify (si::tc) + | "[="; tc = intropatterns; "]" -> !@loc,IntroInjection tc + ] ] ; naming_intropattern: [ [ prefix = pattern_ident -> !@loc, IntroFresh prefix |