have : a ≃ -s * coe n := calc
  a              ≃ _ := Rel.symm neg_involutive
  (-(-a))        ≃ _ := AA.subst₁ ‹-a ≃ s * coe n›
  (-(s * coe n)) ≃ _ := AA.scompatL
  (-s) * coe n   ≃ _ := Rel.refl
ℕ : Type
inst✝⁴ : Natural ℕ
ℤ : Type
inst✝³ : Core ℤ
inst✝² : Addition ℤ
inst✝¹ : Multiplication ℤ
inst✝ : Negation ℤ
a s : ℤ
x✝ : Sqrt1 s
n : ℕ
pos✝ : Positive n
eqv✝ : -a ≃ s * coe n
⊢ NonzeroWithSign a (-s)
ℕ : Type
inst✝⁴ : Natural ℕ
ℤ : Type
inst✝³ : Core ℤ
inst✝² : Addition ℤ
inst✝¹ : Multiplication ℤ
inst✝ : Negation ℤ
a s : ℤ
x✝ : Sqrt1 s
n : ℕ
pos✝ : Positive n
eqv✝ : -a ≃ s * coe n
this : a ≃ -s * coe n
⊢ NonzeroWithSign a (-s)