Commit 0c8d2f7f authored by Glen Mével's avatar Glen Mével

`force` is not recursive anymore

parent 54ca2903
......@@ -76,7 +76,7 @@ Section Thunk.
ref (UNEVALUATED "f").
Definition force : val :=
rec: "force" "t" :=
λ: "t",
match: ! "t" with
UNEVALUATED "f" =>
let: "v" := "f" #() in
......@@ -117,7 +117,7 @@ Section Thunk.
iDestruct "Hthunk" as (γ nc) "#[Hthunkinv Hγ◯]".
rewrite (_ : nc - 0 = nc)%nat ; last lia.
iApply wp_fupd.
unlock force ; wp_rec.
unlock force ; wp_lam.
(* reading the thunk *)
iDestruct (na_inv_open p F (thunkN t) with "Hthunkinv Hp")
as ">(Hthunk & Hp & Hclose)" ; [done|done|] ;
......
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