SepCancel: adapt for Coq versions

This commit is contained in:
Adam Chlipala 2016-04-20 08:36:48 -04:00
parent 2dc04da2b9
commit 47fd9a8abf

View file

@ -308,8 +308,24 @@ Module Make(Import S : SEP).
reflexivity. reflexivity.
Qed. Qed.
Module Type TRY_ME_FIRST.
Parameter try_me_first : hprop -> Prop.
Axiom try_me_first_easy : forall p, try_me_first p.
End TRY_ME_FIRST.
Module TMF : TRY_ME_FIRST.
Definition try_me_first (_ : hprop) := True. Definition try_me_first (_ : hprop) := True.
Theorem try_me_first_easy : forall p, try_me_first p.
Proof.
constructor.
Qed.
End TMF.
Import TMF.
Export TMF.
Ltac cancel1 := Ltac cancel1 :=
match goal with match goal with
| [ |- ?p ===> ?q ] => | [ |- ?p ===> ?q ] =>