@@ -97,61 +97,31 @@ theorem mapMulHom_id : mapMulHom (MulHom.id α) = MonoidHom.id (WithOne α) := b
9797 ext x
9898 induction x <;> rfl
9999
100- @ [deprecated (since := "2025-08-26" )]
101- alias map_id := mapMulHom_id
102- @ [deprecated (since := "2025-08-26" )]
103- alias _root_.WithZero.map_id := WithZero.mapAddHom_id
104-
105100@[to_additive]
106101theorem mapMulHom_injective {f : α →ₙ* β} (hf : Function.Injective f) :
107102 Function.Injective (mapMulHom f)
108103 | none, none, _ => rfl
109104 | (a₁ : α), (a₂ : α), H => by simpa [hf.eq_iff] using H
110105
111- @ [deprecated (since := "2025-08-26" )]
112- alias map_injective := mapMulHom_injective
113- @ [deprecated (since := "2025-08-26" )]
114- alias _root_.WithZero.map_injective := WithZero.mapAddHom_injective
115-
116106@[to_additive]
117107theorem mapMulHom_injective' :
118108 Function.Injective (WithOne.mapMulHom (α := α) (β := β)) :=
119109 fun f g h ↦ MulHom.ext fun x ↦ coe_injective <| by simp only [← mapMulHom_coe, h]
120110
121- @ [deprecated (since := "2025-08-26" )]
122- alias map_injective' := mapMulHom_injective'
123- @ [deprecated (since := "2025-08-26" )]
124- alias _root_.WithZero.map_injective' := WithZero.mapAddHom_injective'
125-
126111@ [to_additive (attr := simp)]
127112theorem mapMulHom_inj {f g : α →ₙ* β} : mapMulHom f = mapMulHom g ↔ f = g :=
128113 mapMulHom_injective'.eq_iff
129114
130- @ [deprecated (since := "2025-08-26" )]
131- alias map_inj := mapMulHom_inj
132- @ [deprecated (since := "2025-08-26" )]
133- alias _root_.WithZero.map_inj := WithZero.mapAddHom_inj
134-
135115@[to_additive]
136116theorem mapMulHom_mapMulHom (f : α →ₙ* β) (g : β →ₙ* γ) (x) :
137117 mapMulHom g (mapMulHom f x) = mapMulHom (g.comp f) x := by
138118 induction x <;> rfl
139119
140- @ [deprecated (since := "2025-08-26" )]
141- alias map_map := mapMulHom_mapMulHom
142- @ [deprecated (since := "2025-08-26" )]
143- alias _root_.WithZero.map_map := WithZero.mapAddHom_mapAddHom
144-
145120@ [to_additive (attr := simp)]
146121theorem mapMulHom_comp (f : α →ₙ* β) (g : β →ₙ* γ) :
147122 mapMulHom (g.comp f) = (mapMulHom g).comp (mapMulHom f) :=
148123 MonoidHom.ext fun x => (mapMulHom_mapMulHom f g x).symm
149124
150- @ [deprecated (since := "2025-08-26" )]
151- alias map_comp := mapMulHom_comp
152- @ [deprecated (since := "2025-08-26" )]
153- alias _root_.WithZero.map_comp := WithZero.mapAddHom_comp
154-
155125/-- A version of `Equiv.optionCongr` for `WithOne`. -/
156126@ [to_additive (attr := simps apply) /-- A version of `Equiv.optionCongr` for `WithZero`. -/ ]
157127def _root_.MulEquiv.withOneCongr (e : α ≃* β) : WithOne α ≃* WithOne β :=
0 commit comments