have : Sqrt1 a := AA.substFn (Rel.symm ‹a ≃ -1›) ‹Sqrt1 (-1 : ℤ)›
ℕ : Type
inst✝⁵ : Natural ℕ
ℤ : Type
inst✝⁴ : Core ℤ
inst✝³ : Addition ℤ
inst✝² : Multiplication ℤ
inst✝¹ : Negation ℤ
inst✝ : Sign ℤ
a : ℤ
x✝ : a ≃ 1 ∨ a ≃ -1
h✝ : a ≃ -1
this : Sqrt1 (-1)
⊢ Sqrt1 a
ℕ : Type
inst✝⁵ : Natural ℕ
ℤ : Type
inst✝⁴ : Core ℤ
inst✝³ : Addition ℤ
inst✝² : Multiplication ℤ
inst✝¹ : Negation ℤ
inst✝ : Sign ℤ
a : ℤ
x✝ : a ≃ 1 ∨ a ≃ -1
h✝ : a ≃ -1
this✝ : Sqrt1 (-1)
this : Sqrt1 a
⊢ Sqrt1 a