Commit 8ec7cd1e authored by Dan Frumin's avatar Dan Frumin

Reorganize the rules in rules.v

parent 16fd1249
......@@ -222,24 +222,6 @@ Section related_facts.
by iMod "HL".
Qed.
Lemma bin_log_related_weaken_2 τi Δ Γ e1 e2 (τ : type) :
{Δ;Γ} e1 log e2 : τ -
{τi::Δ;⤉Γ} e1 log e2 : τ.[ren (+1)].
Proof.
rewrite bin_log_related_eq /bin_log_related_def.
iIntros "Hlog" (vvs ρ) "#Hs #HΓ".
iSpecialize ("Hlog" $! vvs with "Hs [HΓ]").
{ by rewrite interp_env_ren. }
unfold interp_expr.
iIntros (j K) "Hj /=".
iMod ("Hlog" with "Hj") as "Hlog".
iApply (wp_mono with "Hlog").
iIntros (v). simpl.
iDestruct 1 as (v') "[Hj Hτ]".
iExists v'. iFrame.
by rewrite -interp_ren.
Qed.
End related_facts.
(** Monadic-like operations on logrel *)
......
This diff is collapsed.
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