have : a₂ * a₂ ≃ 1 := calc
  a₂ * a₂ ≃ _ := AA.substL (Rel.symm ‹a₁ ≃ a₂›)
  a₁ * a₂ ≃ _ := AA.substR (Rel.symm ‹a₁ ≃ a₂›)
  a₁ * a₁ ≃ _ := ‹Sqrt1 a₁›.elim
  1       ≃ _ := Rel.refl
ℕ : Type
inst✝⁴ : Natural ℕ
ℤ : Type
inst✝³ : Core ℤ
inst✝² : Addition ℤ
inst✝¹ : Multiplication ℤ
inst✝ : Negation ℤ
a₁ a₂ : ℤ
x✝¹ : a₁ ≃ a₂
x✝ : Sqrt1 a₁
⊢ Sqrt1 a₂
ℕ : Type
inst✝⁴ : Natural ℕ
ℤ : Type
inst✝³ : Core ℤ
inst✝² : Addition ℤ
inst✝¹ : Multiplication ℤ
inst✝ : Negation ℤ
a₁ a₂ : ℤ
x✝¹ : a₁ ≃ a₂
x✝ : Sqrt1 a₁
this : a₂ * a₂ ≃ 1
⊢ Sqrt1 a₂