Commit 82563700 authored by Dan Frumin's avatar Dan Frumin

a wee cleanup

parent 616906bb
......@@ -656,7 +656,7 @@ Section flock.
iDestruct (own_valid_2 with "Haprops HI")
as %[Hfoo _]%auth_valid_discrete_2.
(* TODO: RK, please take a look at this horrific script *)
(* TODO: RK, can this proof script be simplified? The idea is not complicated. *)
(* We are going to separate the active resources I out of the fp map *)
pose (I'' := fmap res_name I).
assert ( P', P' ## I'' fp P' I'') as [P' HP'].
......@@ -36,7 +36,7 @@ Section tests_vcg.
intros. vcg. iExists (n). repeat iSplit; eauto.
{ iPureIntro. lia. }
iIntros (l) "? Hl". assert ( m, n = S m) as [k ->]. exists (pred n). lia.
iDestruct "Hl" as "[Hl Hls]". (* TODO: this looks ridiculous *)
iDestruct "Hl" as "[Hl Hls]".
vcg_continue. eauto 42 with iFrame.
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