mirror of
https://github.com/achlipala/frap.git
synced 2024-11-10 00:07:51 +00:00
SepCancel: now less conservative
This commit is contained in:
parent
60c21c07ec
commit
c9d7a69287
1 changed files with 1 additions and 1 deletions
|
@ -277,7 +277,7 @@ Module Make(Import S : SEP).
|
||||||
|
|
||||||
Ltac forAllAtoms p k :=
|
Ltac forAllAtoms p k :=
|
||||||
match p with
|
match p with
|
||||||
| ?q * ?r => (forAllAtoms q k || forAllAtoms r k) || fail 2
|
| ?q * ?r => forAllAtoms q k || forAllAtoms r k
|
||||||
| _ => k p
|
| _ => k p
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue