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

Use `iEval ... in ...` somewhere.

parent f197e42d
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/base_logic/lib/boxes.v
+ 1
− 1
View file @ 9e33557c
...@@ -209,7 +209,7 @@ Lemma box_fill E f P : ...@@ -209,7 +209,7 @@ Lemma box_fill E f P :
Proof. Proof.
iIntros (?) "H HP"; iDestruct "H" as (Φ) "[#HeqP Hf]". iIntros (?) "H HP"; iDestruct "H" as (Φ) "[#HeqP Hf]".
iExists Φ; iSplitR; first by rewrite big_opM_fmap. iExists Φ; iSplitR; first by rewrite big_opM_fmap.
rewrite internal_eq_iff later_iff big_opM_commute. iEval (rewrite internal_eq_iff later_iff big_opM_commute) in "HeqP".
iDestruct ("HeqP" with "HP") as "HP". iDestruct ("HeqP" with "HP") as "HP".
iCombine "Hf" "HP" as "Hf". iCombine "Hf" "HP" as "Hf".
rewrite -big_opM_opM big_opM_fmap; iApply (fupd_big_sepM _ _ f). rewrite -big_opM_opM big_opM_fmap; iApply (fupd_big_sepM _ _ f).
......
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