Get rid of an unnecessary box

theories/logrel/fundamental_binary.v

@@ -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.

theories/logrel/semtypes.v

@@ -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