Commit 9e33557c authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

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

parent f197e42d
...@@ -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).
......
Markdown is supported
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