diff options
| author | Pierre-Marie Pédrot | 2016-10-08 00:10:55 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-10-08 00:56:12 +0200 |
| commit | 9bdd8aff92829aaa7c5a45b6e4e5adfa9e8789df (patch) | |
| tree | 9e335c08004f01cf4016a11f83ffa1ca07b720c1 /ltac/coretactics.ml4 | |
| parent | d93e8a7e7c9ae08cfedaf4a3db00ae3f9240bfe5 (diff) | |
Fix bug #5098: Symmetry broken in HoTT.
We defactorize the in_clause grammar entry to allow parsing of the "symmetry"
tactic when it has no arguments. Beforehand, the clause_dft_concl entry
accepted the empty stream, preventing the definition of symmetry as a mere
identifier.
Diffstat (limited to 'ltac/coretactics.ml4')
| -rw-r--r-- | ltac/coretactics.ml4 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ltac/coretactics.ml4 b/ltac/coretactics.ml4 index de4d589eee..6186667584 100644 --- a/ltac/coretactics.ml4 +++ b/ltac/coretactics.ml4 @@ -151,7 +151,10 @@ END TACTIC EXTEND symmetry [ "symmetry" ] -> [ Tactics.intros_symmetry {onhyps=Some[];concl_occs=AllOccurrences} ] -| [ "symmetry" clause_dft_concl(cl) ] -> [ Tactics.intros_symmetry cl ] +END + +TACTIC EXTEND symmetry_in +| [ "symmetry" "in" in_clause(cl) ] -> [ Tactics.intros_symmetry cl ] END (** Split *) |