mirror of
https://github.com/achlipala/frap.git
synced 2024-11-10 00:07:51 +00:00
Add missing parentheses in SepCancel's normalize2 tactic
Before this change, "Print normalize2" prints: Ltac Frap.SepCancel.Make.normalize2 := match goal with | |- context [ (?p * lift) (?P /\ ?Q) ] => rewrite (lift_uncombine p P Q) | |- context [ ?p * (?q * ?r) ] => rewrite (star_assoc p q r) end After, it prints: Ltac Frap.SepCancel.Make.normalize2 := match goal with | |- context [ ?p * [|?P /\ ?Q|] ] => rewrite (lift_uncombine p P Q) | |- context [ ?p * (?q * ?r) ] => rewrite (star_assoc p q r) end
This commit is contained in:
parent
d1ace360eb
commit
0a55c03aa0
1 changed files with 1 additions and 1 deletions
|
@ -252,7 +252,7 @@ Module Make(Import S : SEP).
|
|||
|
||||
Ltac normalize2 :=
|
||||
match goal with
|
||||
| [ |- context[star ?p lift (?P /\ ?Q)] ] => rewrite (lift_uncombine p P Q)
|
||||
| [ |- context[star ?p (lift (?P /\ ?Q))] ] => rewrite (lift_uncombine p P Q)
|
||||
| [ |- context[star ?p (star ?q ?r)] ] => rewrite (star_assoc p q r)
|
||||
end.
|
||||
|
||||
|
|
Loading…
Reference in a new issue