@@ -50,6 +50,8 @@ lemma isSquare_iff_exists_mul_self (a : α) : IsSquare a ↔ ∃ r, a = r * r :=
5050
5151@ [to_additive (attr := simp)] lemma IsSquare.mul_self (a : α) : IsSquare (a * a) := ⟨a, rfl⟩
5252
53+ @ [to_additive, deprecated (since := "2024-08-27" )] alias isSquare_mul_self := IsSquare.mul_self
54+
5355@[to_additive]
5456lemma isSquare_op_iff {a : α} : IsSquare (op a) ↔ IsSquare a :=
5557 ⟨fun ⟨c, hc⟩ ↦ ⟨unop c, congr_arg unop hc⟩, fun ⟨c, hc⟩ ↦ ⟨op c, congr_arg op hc⟩⟩
@@ -90,6 +92,8 @@ end Add
9092@ [to_additive (attr := simp)]
9193lemma IsSquare.one [MulOneClass α] : IsSquare (1 : α) := ⟨1 , (mul_one _).symm⟩
9294
95+ @ [to_additive, deprecated (since := "2024-12-27" )] alias isSquare_one := IsSquare.one
96+
9397section MonoidHom
9498variable [MulOneClass α] [MulOneClass β] [FunLike F α β] [MonoidHomClass F α β]
9599
@@ -119,6 +123,10 @@ attribute [to_additive Even.exists_two_nsmul
119123@ [to_additive (attr := simp) Even.two_nsmul]
120124lemma IsSquare.sq (a : α) : IsSquare (a ^ 2 ) := ⟨a, pow_two _⟩
121125
126+ @ [deprecated (since := "2024-12-27" )] alias even_two_nsmul := Even.two_nsmul
127+
128+ @ [deprecated (since := "2024-12-27" )] alias IsSquare_sq := IsSquare.sq
129+
122130@ [to_additive (attr := aesop unsafe 20 % apply)]
123131lemma IsSquare.pow (n : ℕ) : IsSquare a → IsSquare (a ^ n) := by
124132 rintro ⟨r, rfl⟩; exact ⟨r ^ n, (Commute.refl _).mul_pow _⟩
@@ -127,6 +135,8 @@ lemma IsSquare.pow (n : ℕ) : IsSquare a → IsSquare (a ^ n) := by
127135lemma Even.isSquare_pow : Even n → ∀ a : α, IsSquare (a ^ n) := by
128136 rintro ⟨m, rfl⟩ a; exact ⟨a ^ m, pow_add _ _ _⟩
129137
138+ @ [deprecated (since := "2024-01-07" )] alias Even.nsmul' := Even.even_nsmul
139+
130140end Monoid
131141
132142@ [to_additive (attr := aesop unsafe 90 % apply)]
@@ -159,11 +169,6 @@ lemma IsSquare.div [DivisionCommMonoid α] {a b : α} (ha : IsSquare a) (hb : Is
159169lemma Even.isSquare_zpow [Group α] {n : ℤ} : Even n → ∀ a : α, IsSquare (a ^ n) := by
160170 rintro ⟨n, rfl⟩ a; exact ⟨a ^ n, zpow_add _ _ _⟩
161171
162- @ [to_additive, deprecated (since := "2024-08-27" )] alias isSquare_mul_self := IsSquare.mul_self
163- @ [to_additive, deprecated (since := "2024-12-27" )] alias isSquare_one := IsSquare.one
164- @ [deprecated (since := "2024-12-27" )] alias IsSquare_sq := IsSquare.sq
165- @ [deprecated (since := "2024-12-27" )] alias even_two_nsmul := Even.two_nsmul
166- @ [deprecated (since := "2024-01-07" )] alias Even.nsmul' := Even.even_nsmul
167172@ [deprecated (since := "2024-01-07" )] alias Even.zsmul' := Even.even_zsmul
168173
169174example {G : Type *} [CommGroup G] {a b c d e : G} (ha : IsSquare a) {n : ℕ} {k : ℤ} (hk : Even k) :
0 commit comments