SepCancel: now less conservative

This commit is contained in:
Adam Chlipala 2016-04-19 19:16:14 -04:00
parent 60c21c07ec
commit c9d7a69287

View file

@ -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.