have : sgn p ≄ -1 := AA.neqv_substL this ‹sgn (p - 0) ≄ -1›
ℕ ℤ ℚ : Type
inst✝¹⁰ : Natural ℕ
inst✝⁹ : Integer ℤ
inst✝⁸ : Core ℚ
inst✝⁷ : Addition ℚ
inst✝⁶ : Multiplication ℚ
inst✝⁵ : Negation ℚ
inst✝⁴ : Sign ℚ
inst✝³ : Subtraction ℚ
inst✝² : Reciprocation ℚ
inst✝¹ : Division ℚ
inst✝ : Order ℚ
p : ℚ
x✝ : p ≥ 0
this✝ : sgn (p - 0) ≄ -1
this : sgn (p - 0) ≃ sgn p
⊢ sgn p ≄ -1
ℕ ℤ ℚ : Type
inst✝¹⁰ : Natural ℕ
inst✝⁹ : Integer ℤ
inst✝⁸ : Core ℚ
inst✝⁷ : Addition ℚ
inst✝⁶ : Multiplication ℚ
inst✝⁵ : Negation ℚ
inst✝⁴ : Sign ℚ
inst✝³ : Subtraction ℚ
inst✝² : Reciprocation ℚ
inst✝¹ : Division ℚ
inst✝ : Order ℚ
p : ℚ
x✝ : p ≥ 0
this✝¹ : sgn (p - 0) ≄ -1
this✝ : sgn (p - 0) ≃ sgn p
this : sgn p ≄ -1
⊢ sgn p ≄ -1