diff options
| author | Hugo Herbelin | 2020-10-21 16:17:32 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-11-17 07:36:01 +0100 |
| commit | f1e1f8155b552e9359fe60864f46155fca28a81b (patch) | |
| tree | cdbbd36a579782bca099a210d4071c07063a808a /plugins/ltac | |
| parent | 04b25a7635e796ad05ef7db537883594a5144a56 (diff) | |
Fixes #13235: remove fragile tolerance for degenerate in-hyps clause.
Co-Authored-By: Jim Fehrle <jim.fehrle@gmail.com>
Diffstat (limited to 'plugins/ltac')
| -rw-r--r-- | plugins/ltac/g_tactic.mlg | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/plugins/ltac/g_tactic.mlg b/plugins/ltac/g_tactic.mlg index 236de65462..4b2d31ae4a 100644 --- a/plugins/ltac/g_tactic.mlg +++ b/plugins/ltac/g_tactic.mlg @@ -379,9 +379,11 @@ GRAMMAR EXTEND Gram { {onhyps=None; concl_occs=occs} } | "*"; "|-"; occs=concl_occ -> { {onhyps=None; concl_occs=occs} } - | hl=LIST0 hypident_occ SEP","; "|-"; occs=concl_occ -> + | "|-"; occs=concl_occ -> + { {onhyps=Some []; concl_occs=occs} } + | hl = LIST1 hypident_occ SEP ","; "|-"; occs=concl_occ -> { {onhyps=Some hl; concl_occs=occs} } - | hl=LIST0 hypident_occ SEP"," -> + | hl = LIST1 hypident_occ SEP "," -> { {onhyps=Some hl; concl_occs=NoOccurrences} } ] ] ; clause_dft_concl: |