Skip to content
Snippets Groups Projects
Commit fafe68cc authored by Yusuke Matsushita's avatar Yusuke Matsushita
Browse files

Minor fix

parent 6e4c5345
Branches
No related tags found
No related merge requests found
Pipeline #64379 passed
...@@ -286,13 +286,12 @@ Section cell. ...@@ -286,13 +286,12 @@ Section cell.
case x as [[|x|]|]=>//=. rewrite split_mt_uniq_bor. case x as [[|x|]|]=>//=. rewrite split_mt_uniq_bor.
iDestruct "box" as "[[#In ↦uniq] †]". wp_bind Skip. iDestruct "box" as "[[#In ↦uniq] †]". wp_bind Skip.
iApply (wp_cumulative_time_receipt with "TIME"); [done|]. wp_seq. iApply (wp_cumulative_time_receipt with "TIME"); [done|]. wp_seq.
iIntros "⧗". wp_seq. iDestruct "↦uniq" as (?? ξi [? Eq]) "(↦ & Vo & Bor)". iIntros "⧗". iDestruct "↦uniq" as (?? ξi [? Eq]) "(↦ & Vo & Bor)".
move: Eq. set ξ := PrVar _ ξi=> Eq. move: Eq. set ξ := PrVar _ ξi=> Eq.
iMod (lctx_lft_alive_tok α with "E L") as (?) "(α & L & ToL)"; [solve_typing..|]. iMod (lctx_lft_alive_tok α with "E L") as (?) "(α & L & ToL)"; [solve_typing..|].
iMod (bor_acc_cons with "LFT Bor α") as iMod (bor_acc_cons with "LFT Bor α") as
"[(%&%&_& Pc &%& >↦' & %Φ & big) ToBor]"; [done|]. "[(%&%&_& Pc &%& >↦' & %Φ & big) ToBor]"; [done|]. wp_seq.
iMod (bi.later_exist_except_0 with "big") as ( ?) "(>->& >Obs' & >#⧖ & ty)". iDestruct "big" as ( ?->) "(Obs' & #⧖ & ty)". iCombine "Obs Obs'" as "Obs".
iCombine "Obs Obs'" as "Obs".
iMod (cumulative_persistent_time_receipt with "TIME ⧗ ⧖") as "#⧖S"; [done|]. iMod (cumulative_persistent_time_receipt with "TIME ⧗ ⧖") as "#⧖S"; [done|].
iMod (uniq_strip_later with "Vo Pc") as (Eq' <-) "[Vo Pc]". iMod (uniq_strip_later with "Vo Pc") as (Eq' <-) "[Vo Pc]".
have ->: = λ π, (Φ, π ξ). { by rewrite []surjective_pairing_fun Eq Eq'. } have ->: = λ π, (Φ, π ξ). { by rewrite []surjective_pairing_fun Eq Eq'. }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment