Reorganize the rules in rules.v

theories/logrel/logrel_binary.v

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