exact le_of_lt (pair_lt_pair_right a lt)
case inr
M : Type u_1
inst✝⁶ : Zero M
inst✝⁵ : One M
inst✝⁴ : Add M
inst✝³ : Mul M
inst✝² : LT M
inst✝¹ : M ⊧ₘ* 𝐏𝐀⁻
inst✝ : M ⊧ₘ* 𝐈open
a b₁ b₂ : M
lt : b₁ < b₂
⊢ ⟪a, b₁⟫ ≤ ⟪a, b₂⟫
no goals