Commit 1ff8a563 authored by Dan Frumin's avatar Dan Frumin

Get rid of an unnecessary box

parent 1188cb70
......@@ -381,7 +381,7 @@ Section masked.
rel_bind_ap e e' "IH" v v' "#IH".
value_case.
iExists (v, v'). simpl; iSplit; eauto.
iAlways. iExists ( τ' Δ).
iExists ( τ' Δ).
iSplit; eauto. iPureIntro. apply _.
by rewrite interp_subst.
Qed.
......
......@@ -96,7 +96,7 @@ Section semtypes.
Program Definition interp_exists
(interp : listC D -n> D) : listC D -n> D := λne Δ ww,
( vv, ww = (PackV (vv.1), PackV (vv.2))
τi : D, ⌜∀ ww, PersistentP (τi ww) interp (τi :: Δ) vv)%I.
τi : D, ⌜∀ ww, PersistentP (τi ww) interp (τi :: Δ) vv)%I.
Solve Obligations with solve_proper.
Program Definition interp_rec1
......
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