have : max p q ≃ q := eqv_trans ‹max p q ≃ p› ‹p ≃ q›
ℕ ℤ ℚ : Type
inst✝¹¹ : Natural ℕ
inst✝¹⁰ : Integer ℤ
inst✝⁹ : Core ℚ
inst✝⁸ : Addition ℚ
inst✝⁷ : Multiplication ℚ
inst✝⁶ : Negation ℚ
inst✝⁵ : Sign ℚ
inst✝⁴ : Subtraction ℚ
inst✝³ : Reciprocation ℚ
inst✝² : Division ℚ
inst✝¹ : Order ℚ
inst✝ : MinMax ℚ
p q : ℚ
x✝ : p ≤ q
this✝² : Ordered.max p q ≃ p ∨ Ordered.max p q ≃ q
h✝ : Ordered.max p q ≃ p
this✝¹ : q ≤ Ordered.max p q
this✝ : q ≤ p
this : p ≃ q
⊢ Ordered.max p q ≃ q
ℕ ℤ ℚ : Type
inst✝¹¹ : Natural ℕ
inst✝¹⁰ : Integer ℤ
inst✝⁹ : Core ℚ
inst✝⁸ : Addition ℚ
inst✝⁷ : Multiplication ℚ
inst✝⁶ : Negation ℚ
inst✝⁵ : Sign ℚ
inst✝⁴ : Subtraction ℚ
inst✝³ : Reciprocation ℚ
inst✝² : Division ℚ
inst✝¹ : Order ℚ
inst✝ : MinMax ℚ
p q : ℚ
x✝ : p ≤ q
this✝³ : Ordered.max p q ≃ p ∨ Ordered.max p q ≃ q
h✝ : Ordered.max p q ≃ p
this✝² : q ≤ Ordered.max p q
this✝¹ : q ≤ p
this✝ : p ≃ q
this : Ordered.max p q ≃ q
⊢ Ordered.max p q ≃ q