diff --git a/theories/proofmode/class_instances.v b/theories/proofmode/class_instances.v index beb49c8a06ffb004dc1f11617735dbbb8c639890..1203e90a4a4fe8124c4ac0c4cfaa5c1c9268f88b 100644 --- a/theories/proofmode/class_instances.v +++ b/theories/proofmode/class_instances.v @@ -777,6 +777,12 @@ Proof. intros. by rewrite /ElimModal always_elim wand_elim_r. Qed. 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. +Global Instance elim_modal_bupd_plain_goal P Q : PlainP Q → ElimModal (|==> P) P Q Q. +Proof. intros. by rewrite /ElimModal bupd_frame_r wand_elim_r bupd_plain. Qed. + +Global Instance elim_modal_bupd_plain P Q : PlainP P → ElimModal (|==> P) P Q Q. +Proof. intros. by rewrite /ElimModal bupd_plain wand_elim_r. Qed. + Global Instance elim_modal_except_0 P Q : IsExcept0 Q → ElimModal (◇ P) P Q Q. Proof. intros. rewrite /ElimModal (except_0_intro (_ -∗ _)).