Skip to content
Snippets Groups Projects
Commit 647c4a36 authored by Ralf Jung's avatar Ralf Jung
Browse files

remove True from lft_init

parent 51da41c6
No related branches found
No related tags found
No related merge requests found
Pipeline #
......@@ -155,5 +155,5 @@ Module Type lifetime_sig.
Global Declare Instance subG_lftPreG Σ : subG lftΣ Σ lftPreG Σ.
Parameter lft_init : `{invG Σ, !lftPreG Σ} E, lftN E
True ={E}= _ : lftG Σ, lft_ctx.
(|={E}=> _ : lftG Σ, lft_ctx)%I.
End lifetime_sig.
......@@ -36,7 +36,7 @@ Section type_soundness.
{ split. by eapply adequate_nonracing.
intros. by eapply (adequate_safe (main [exit_cont]%E)). }
apply: lrust_adequacy=>?. iIntros "_".
iMod (lft_init with "[//]") as (?) "#LFT". done.
iMod lft_init as (?) "#LFT". done.
iMod na_alloc as (tid) "Htl". set (Htype := TypeG _ _ _ _ _).
wp_bind (of_val main). iApply (wp_wand with "[Htl]").
iApply (Hmain _ [] [] $! tid with "LFT [] Htl [] []").
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment