{ exact le_of_lt (Nat.pair_lt_pair_right a₁ hb) }
case inr.inl
n a₁ b₁ b₂ : ℕ
hb✝ : b₁ ≤ b₂
ha : a₁ ≤ a₁
hb : b₁ < b₂
⊢ a₁.pair b₁ ≤ a₁.pair b₂

case inr.inr
n a₁ b₁ : ℕ
ha : a₁ ≤ a₁
hb : b₁ ≤ b₁
⊢ a₁.pair b₁ ≤ a₁.pair b₁
case inr.inr
n a₁ b₁ : ℕ
ha : a₁ ≤ a₁
hb : b₁ ≤ b₁
⊢ a₁.pair b₁ ≤ a₁.pair b₁