diff --git a/theories/logrel/subtyping_rules.v b/theories/logrel/subtyping_rules.v
index eee85cf00ebde5f63c6ec6df73a324b408497086..d27f1875f3b1a6980b3dc7862807e9d9ebdf27ae 100644
--- a/theories/logrel/subtyping_rules.v
+++ b/theories/logrel/subtyping_rules.v
@@ -351,10 +351,9 @@ Section subtyping_rules.
   Lemma lty_le_swap_branch_select (Ss1 Ss2 : (gmap Z (gmap Z (lsty Σ)))) :
     (∀ i j Ss1' Ss2',
         Ss1 !! i = Some Ss1' → Ss2 !! j = Some Ss2' →
-        (is_Some (Ss1' !! j) ∧ is_Some (Ss2' !! i) ∧
-        Ss1' !! j = Ss2' !! i)) →
-    ⊢ lty_branch ((λ Ss, lty_select Ss) <$> Ss1) <:
-      lty_select ((λ Ss, lty_branch Ss) <$> Ss2).
+        is_Some (Ss1' !! j) ∧ is_Some (Ss2' !! i) ∧
+        Ss1' !! j = Ss2' !! i) →
+    ⊢ lty_branch (lty_select <$> Ss1) <: lty_select (lty_branch <$> Ss2).
   Proof.
     intros Hin.
     iIntros "!>" (v1 v2).