Skip to content
Snippets Groups Projects
Commit 855014ca authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

ElimModal instance for □.

parent 634fdbb6
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
proofmode/class_instances.v
+ 3
− 0
View file @ 855014ca
...@@ -381,6 +381,9 @@ Proof. ...@@ -381,6 +381,9 @@ Proof.
rewrite /ElimModal=> H. apply forall_intro=> a. by rewrite (forall_elim a). rewrite /ElimModal=> H. apply forall_intro=> a. by rewrite (forall_elim a).
Qed. Qed.
Global Instance elim_modal_always P Q : ElimModal (□ P) P Q Q.
Proof. intros. by rewrite /ElimModal always_elim wand_elim_r. Qed.
Global Instance elim_modal_bupd P Q : ElimModal (|==> P) P (|==> Q) (|==> Q). Global Instance elim_modal_bupd P Q : ElimModal (|==> P) P (|==> Q) (|==> Q).
Proof. by rewrite /ElimModal bupd_frame_r wand_elim_r bupd_trans. Qed. Proof. by rewrite /ElimModal bupd_frame_r wand_elim_r bupd_trans. Qed.
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment