elim_modal_at instance.

0236daec · Jacques-Henri Jourdan · 7c1a6c43 · 0236daec
Commit 0236daec authored Sep 09, 2019 by Jacques-Henri Jourdan
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

theories/proofmode/monpred.v theories/proofmode/monpred.v +7 -0

No files found.
--- a/theories/proofmode/monpred.v
+++ b/theories/proofmode/monpred.v
@@ -440,6 +440,13 @@ Global Instance elim_modal_at_bupd_hyp `{BiBUpd PROP} φ p p' P 𝓟 𝓟' 𝓠
  ElimModal φ p p' (|==> 𝓟) 𝓟' 𝓠 𝓠' →
  ElimModal φ p p' ((|==> P) i) 𝓟' 𝓠 𝓠'.
 Proof. by rewrite /MakeMonPredAt /ElimModal monPred_at_bupd=><-. Qed.
+Global Instance elim_modal_at φ p p' 𝓟 𝓟' P P' V:
+  ElimModal φ p p' ⎡𝓟⎤ ⎡𝓟'⎤ P P' → ElimModal φ p p' 𝓟 𝓟' (P V) (P' V).
+Proof.
+  rewrite /ElimModal -!embed_intuitionistically_if.
+  iIntros (HH Hφ) "[? HP]". iApply HH; [done|]. iFrame. iIntros (? <-) "?".
+  by iApply "HP".
+Qed.

 Global Instance add_modal_at_bupd_goal `{BiBUpd PROP} φ 𝓟 𝓟' Q i :
  AddModal 𝓟 𝓟' (|==> Q i)%I → AddModal 𝓟 𝓟' ((|==> Q) i).