match this with
| Or.inl (_ : min q r ≃ q) =>
  have : p ≤ min q r := le_substR_eqv (eqv_symm ‹min q r ≃ q›) ‹p ≤ q›
  exact this
| Or.inr (_ : min q r ≃ r) =>
  have : p ≤ min q r := le_substR_eqv (eqv_symm ‹min q r ≃ r›) ‹p ≤ r›
  exact this
ℕ ℤ ℚ : 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 r : ℚ
x✝¹ : p ≤ q
x✝ : p ≤ r
this : Ordered.min q r ≃ q ∨ Ordered.min q r ≃ r
⊢ p ≤ Ordered.min q r
no goals