Type tags that turn additive structures into multiplicative, and vice versa

We define two type tags:

• Additive α: turns any multiplicative structure on α into the corresponding additive structure on Additive α;
• Multiplicative α: turns any additive structure on α into the corresponding multiplicative structure on Multiplicative α.

We also define instances Additive.* and Multiplicative.* that actually transfer the structures.

See also

This file is similar to Order.Synonym.

Porting notes

• Since bundled morphism applications that rely on CoeFun currently don't work, they are ported as toFoo a rather than a.toFoo for now. (https://github.com/leanprover/lean4/issues/1910)

def Additive (α : Type u_1) : Type u_1

If α carries some multiplicative structure, then Additive α carries the corresponding additive structure.

Equations

• Additive α = α

def Multiplicative (α : Type u_1) : Type u_1

If α carries some additive structure, then Multiplicative α carries the corresponding multiplicative structure.

Equations

• Multiplicative α = α

def Additive.ofMul {α : Type u} : α ≃ Additive α

Reinterpret x : α as an element of Additive α.

Equations

• Additive.ofMul = { toFun := fun (x : α) => x, invFun := fun (x : Additive α) => x, left_inv := ⋯, right_inv := ⋯ }

def Additive.toMul {α : Type u} : Additive α ≃ α

Reinterpret x : Additive α as an element of α.

Equations

• Additive.toMul = Additive.ofMul.symm

@[simp]

theorem Additive.ofMul_symm_eq {α : Type u} : Additive.ofMul.symm = Additive.toMul

@[simp]

theorem Additive.toMul_symm_eq {α : Type u} : Additive.toMul.symm = Additive.ofMul

@[simp]

theorem Additive.forall {α : Type u} {p : Additive α → Prop} : (∀ (a : Additive α), p a) ↔ ∀ (a : α), p (Additive.ofMul a)

@[simp]

theorem Additive.exists {α : Type u} {p : Additive α → Prop} : (∃ (a : Additive α), p a) ↔ ∃ (a : α), p (Additive.ofMul a)

def Multiplicative.ofAdd {α : Type u} : α ≃ Multiplicative α

Reinterpret x : α as an element of Multiplicative α.

Equations

• Multiplicative.ofAdd = { toFun := fun (x : α) => x, invFun := fun (x : Multiplicative α) => x, left_inv := ⋯, right_inv := ⋯ }

def Multiplicative.toAdd {α : Type u} : Multiplicative α ≃ α

Reinterpret x : Multiplicative α as an element of α.

Equations

• Multiplicative.toAdd = Multiplicative.ofAdd.symm

@[simp]

theorem Multiplicative.ofAdd_symm_eq {α : Type u} : Multiplicative.ofAdd.symm = Multiplicative.toAdd

@[simp]

theorem Multiplicative.toAdd_symm_eq {α : Type u} : Multiplicative.toAdd.symm = Multiplicative.ofAdd

@[simp]

theorem Multiplicative.forall {α : Type u} {p : Multiplicative α → Prop} : (∀ (a : Multiplicative α), p a) ↔ ∀ (a : α), p (Multiplicative.ofAdd a)

@[simp]

theorem Multiplicative.exists {α : Type u} {p : Multiplicative α → Prop} : (∃ (a : Multiplicative α), p a) ↔ ∃ (a : α), p (Multiplicative.ofAdd a)

@[simp]

theorem toAdd_ofAdd {α : Type u} (x : α) : Multiplicative.toAdd (Multiplicative.ofAdd x) = x

@[simp]

theorem ofAdd_toAdd {α : Type u} (x : Multiplicative α) : Multiplicative.ofAdd (Multiplicative.toAdd x) = x

@[simp]

theorem toMul_ofMul {α : Type u} (x : α) : Additive.toMul (Additive.ofMul x) = x

@[simp]

theorem ofMul_toMul {α : Type u} (x : Additive α) : Additive.ofMul (Additive.toMul x) = x

instance instSubsingletonAdditive {α : Type u} [Subsingleton α] : Subsingleton (Additive α)

Equations

• ⋯ = ⋯

instance instSubsingletonMultiplicative {α : Type u} [Subsingleton α] : Subsingleton (Multiplicative α)

Equations

• ⋯ = ⋯

instance instInhabitedAdditive {α : Type u} [Inhabited α] : Inhabited (Additive α)

Equations

• instInhabitedAdditive = { default := Additive.ofMul default }

instance instInhabitedMultiplicative {α : Type u} [Inhabited α] : Inhabited (Multiplicative α)

Equations

• instInhabitedMultiplicative = { default := Multiplicative.ofAdd default }

instance instUniqueAdditive {α : Type u} [Unique α] : Unique (Additive α)

Equations

• instUniqueAdditive = Equiv.unique Additive.toMul

instance instUniqueMultiplicative {α : Type u} [Unique α] : Unique (Multiplicative α)

Equations

• instUniqueMultiplicative = Equiv.unique Multiplicative.toAdd

instance instFiniteAdditive {α : Type u} [Finite α] : Finite (Additive α)

Equations

• ⋯ = ⋯

instance instFiniteMultiplicative {α : Type u} [Finite α] : Finite (Multiplicative α)

Equations

• ⋯ = ⋯

instance instInfiniteAdditive {α : Type u} [h : Infinite α] : Infinite (Additive α)

Equations

• ⋯ = h

instance instInfiniteMultiplicative {α : Type u} [h : Infinite α] : Infinite (Multiplicative α)

Equations

• ⋯ = h

instance instDecidableEqMultiplicative {α : Type u} [h : DecidableEq α] : DecidableEq (Multiplicative α)

Equations

• instDecidableEqMultiplicative = h

instance instDecidableEqAdditive {α : Type u} [h : DecidableEq α] : DecidableEq (Additive α)

Equations

• instDecidableEqAdditive = h

instance Additive.instNontrivial {α : Type u} [Nontrivial α] : Nontrivial (Additive α)

Equations

• ⋯ = ⋯

instance Multiplicative.instNontrivial {α : Type u} [Nontrivial α] : Nontrivial (Multiplicative α)

Equations

• ⋯ = ⋯

instance Additive.add {α : Type u} [Mul α] : Add (Additive α)

Equations

• Additive.add = { add := fun (x y : Additive α) => Additive.ofMul (Additive.toMul x * Additive.toMul y) }

instance Multiplicative.mul {α : Type u} [Add α] : Mul (Multiplicative α)

Equations

• Multiplicative.mul = { mul := fun (x y : Multiplicative α) => Multiplicative.ofAdd (Multiplicative.toAdd x + Multiplicative.toAdd y) }

@[simp]

theorem ofAdd_add {α : Type u} [Add α] (x : α) (y : α) : Multiplicative.ofAdd (x + y) = Multiplicative.ofAdd x * Multiplicative.ofAdd y

@[simp]

theorem toAdd_mul {α : Type u} [Add α] (x : Multiplicative α) (y : Multiplicative α) : Multiplicative.toAdd (x * y) = Multiplicative.toAdd x + Multiplicative.toAdd y

@[simp]

theorem ofMul_mul {α : Type u} [Mul α] (x : α) (y : α) : Additive.ofMul (x * y) = Additive.ofMul x + Additive.ofMul y

@[simp]

theorem toMul_add {α : Type u} [Mul α] (x : Additive α) (y : Additive α) : Additive.toMul (x + y) = Additive.toMul x * Additive.toMul y

instance Additive.addSemigroup {α : Type u} [Semigroup α] : AddSemigroup (Additive α)

Equations

• Additive.addSemigroup = let __src := Additive.add; AddSemigroup.mk ⋯

instance Multiplicative.semigroup {α : Type u} [AddSemigroup α] : Semigroup (Multiplicative α)

Equations

• Multiplicative.semigroup = let __src := Multiplicative.mul; Semigroup.mk ⋯

instance Additive.addCommSemigroup {α : Type u} [CommSemigroup α] : AddCommSemigroup (Additive α)

Equations

• Additive.addCommSemigroup = let __src := Additive.addSemigroup; AddCommSemigroup.mk ⋯

instance Multiplicative.commSemigroup {α : Type u} [AddCommSemigroup α] : CommSemigroup (Multiplicative α)

Equations

• Multiplicative.commSemigroup = let __src := Multiplicative.semigroup; CommSemigroup.mk ⋯

instance Additive.isLeftCancelAdd {α : Type u} [Mul α] [IsLeftCancelMul α] : IsLeftCancelAdd (Additive α)

Equations

• ⋯ = ⋯

instance Multiplicative.isLeftCancelMul {α : Type u} [Add α] [IsLeftCancelAdd α] : IsLeftCancelMul (Multiplicative α)

Equations

• ⋯ = ⋯

instance Additive.isRightCancelAdd {α : Type u} [Mul α] [IsRightCancelMul α] : IsRightCancelAdd (Additive α)

Equations

• ⋯ = ⋯

instance Multiplicative.isRightCancelMul {α : Type u} [Add α] [IsRightCancelAdd α] : IsRightCancelMul (Multiplicative α)

Equations

• ⋯ = ⋯

instance Additive.isCancelAdd {α : Type u} [Mul α] [IsCancelMul α] : IsCancelAdd (Additive α)

Equations

• ⋯ = ⋯

instance Multiplicative.isCancelMul {α : Type u} [Add α] [IsCancelAdd α] : IsCancelMul (Multiplicative α)

Equations

• ⋯ = ⋯

instance Additive.addLeftCancelSemigroup {α : Type u} [LeftCancelSemigroup α] : AddLeftCancelSemigroup (Additive α)

Equations

• Additive.addLeftCancelSemigroup = let __src := Additive.addSemigroup; let __src_1 := ⋯; AddLeftCancelSemigroup.mk ⋯

instance Multiplicative.leftCancelSemigroup {α : Type u} [AddLeftCancelSemigroup α] : LeftCancelSemigroup (Multiplicative α)

Equations

• Multiplicative.leftCancelSemigroup = let __src := Multiplicative.semigroup; let __src_1 := ⋯; LeftCancelSemigroup.mk ⋯

instance Additive.addRightCancelSemigroup {α : Type u} [RightCancelSemigroup α] : AddRightCancelSemigroup (Additive α)

Equations

• Additive.addRightCancelSemigroup = let __src := Additive.addSemigroup; let __src_1 := ⋯; AddRightCancelSemigroup.mk ⋯

instance Multiplicative.rightCancelSemigroup {α : Type u} [AddRightCancelSemigroup α] : RightCancelSemigroup (Multiplicative α)

Equations

• Multiplicative.rightCancelSemigroup = let __src := Multiplicative.semigroup; let __src_1 := ⋯; RightCancelSemigroup.mk ⋯

instance instZeroAdditive {α : Type u} [One α] : Zero (Additive α)

Equations

• instZeroAdditive = { zero := Additive.ofMul 1 }

@[simp]

theorem ofMul_one {α : Type u} [One α] : Additive.ofMul 1 = 0

@[simp]

theorem ofMul_eq_zero {A : Type u_1} [One A] {x : A} : Additive.ofMul x = 0 ↔ x = 1

@[simp]

theorem toMul_zero {α : Type u} [One α] : Additive.toMul 0 = 1

instance instOneMultiplicative {α : Type u} [Zero α] : One (Multiplicative α)

Equations

• instOneMultiplicative = { one := Multiplicative.ofAdd 0 }

@[simp]

theorem ofAdd_zero {α : Type u} [Zero α] : Multiplicative.ofAdd 0 = 1

@[simp]

theorem ofAdd_eq_one {A : Type u_1} [Zero A] {x : A} : Multiplicative.ofAdd x = 1 ↔ x = 0

@[simp]

theorem toAdd_one {α : Type u} [Zero α] : Multiplicative.toAdd 1 = 0

instance Additive.addZeroClass {α : Type u} [MulOneClass α] : AddZeroClass (Additive α)

Equations

• Additive.addZeroClass = AddZeroClass.mk ⋯ ⋯

instance Multiplicative.mulOneClass {α : Type u} [AddZeroClass α] : MulOneClass (Multiplicative α)

Equations

• Multiplicative.mulOneClass = MulOneClass.mk ⋯ ⋯

instance Additive.addMonoid {α : Type u} [h : Monoid α] : AddMonoid (Additive α)

Equations

• Additive.addMonoid = let __src := Additive.addZeroClass; let __src_1 := Additive.addSemigroup; AddMonoid.mk ⋯ ⋯ Monoid.npow ⋯ ⋯

instance Multiplicative.monoid {α : Type u} [h : AddMonoid α] : Monoid (Multiplicative α)

Equations

• Multiplicative.monoid = let __src := Multiplicative.mulOneClass; let __src_1 := Multiplicative.semigroup; Monoid.mk ⋯ ⋯ AddMonoid.nsmul ⋯ ⋯

@[simp]

theorem ofMul_pow {α : Type u} [Monoid α] (n : ℕ) (a : α) : Additive.ofMul (a ^ n) = n • Additive.ofMul a

@[simp]

theorem toMul_nsmul {α : Type u} [Monoid α] (n : ℕ) (a : Additive α) : Additive.toMul (n • a) = Additive.toMul a ^ n

@[simp]

theorem ofAdd_nsmul {α : Type u} [AddMonoid α] (n : ℕ) (a : α) : Multiplicative.ofAdd (n • a) = Multiplicative.ofAdd a ^ n

@[simp]

theorem toAdd_pow {α : Type u} [AddMonoid α] (a : Multiplicative α) (n : ℕ) : Multiplicative.toAdd (a ^ n) = n • Multiplicative.toAdd a

instance Additive.addLeftCancelMonoid {α : Type u} [LeftCancelMonoid α] : AddLeftCancelMonoid (Additive α)

Equations

• Additive.addLeftCancelMonoid = let __src := Additive.addMonoid; let __src_1 := Additive.addLeftCancelSemigroup; AddLeftCancelMonoid.mk ⋯ ⋯ AddMonoid.nsmul ⋯ ⋯

instance Multiplicative.leftCancelMonoid {α : Type u} [AddLeftCancelMonoid α] : LeftCancelMonoid (Multiplicative α)

Equations

• Multiplicative.leftCancelMonoid = let __src := Multiplicative.monoid; let __src_1 := Multiplicative.leftCancelSemigroup; LeftCancelMonoid.mk ⋯ ⋯ Monoid.npow ⋯ ⋯

instance Additive.addRightCancelMonoid {α : Type u} [RightCancelMonoid α] : AddRightCancelMonoid (Additive α)

Equations

• Additive.addRightCancelMonoid = let __src := Additive.addMonoid; let __src_1 := Additive.addRightCancelSemigroup; AddRightCancelMonoid.mk ⋯ ⋯ AddMonoid.nsmul ⋯ ⋯

instance Multiplicative.rightCancelMonoid {α : Type u} [AddRightCancelMonoid α] : RightCancelMonoid (Multiplicative α)

Equations

• Multiplicative.rightCancelMonoid = let __src := Multiplicative.monoid; let __src_1 := Multiplicative.rightCancelSemigroup; RightCancelMonoid.mk ⋯ ⋯ Monoid.npow ⋯ ⋯

instance Additive.addCommMonoid {α : Type u} [CommMonoid α] : AddCommMonoid (Additive α)

Equations

• Additive.addCommMonoid = let __src := Additive.addMonoid; let __src_1 := Additive.addCommSemigroup; AddCommMonoid.mk ⋯

instance Multiplicative.commMonoid {α : Type u} [AddCommMonoid α] : CommMonoid (Multiplicative α)

Equations

• Multiplicative.commMonoid = let __src := Multiplicative.monoid; let __src_1 := Multiplicative.commSemigroup; CommMonoid.mk ⋯

instance Additive.neg {α : Type u} [Inv α] : Neg (Additive α)

Equations

• Additive.neg = { neg := fun (x : Additive α) => Multiplicative.ofAdd (Additive.toMul x)⁻¹ }

@[simp]

theorem ofMul_inv {α : Type u} [Inv α] (x : α) : Additive.ofMul x⁻¹ = -Additive.ofMul x

@[simp]

theorem toMul_neg {α : Type u} [Inv α] (x : Additive α) : Additive.toMul (-x) = (Additive.toMul x)⁻¹

instance Multiplicative.inv {α : Type u} [Neg α] : Inv (Multiplicative α)

Equations

• Multiplicative.inv = { inv := fun (x : Multiplicative α) => Additive.ofMul (-Multiplicative.toAdd x) }

@[simp]

theorem ofAdd_neg {α : Type u} [Neg α] (x : α) : Multiplicative.ofAdd (-x) = (Multiplicative.ofAdd x)⁻¹

@[simp]

theorem toAdd_inv {α : Type u} [Neg α] (x : Multiplicative α) : Multiplicative.toAdd x⁻¹ = -Multiplicative.toAdd x

instance Additive.sub {α : Type u} [Div α] : Sub (Additive α)

Equations

• Additive.sub = { sub := fun (x y : Additive α) => Additive.ofMul (Additive.toMul x / Additive.toMul y) }

instance Multiplicative.div {α : Type u} [Sub α] : Div (Multiplicative α)

Equations

• Multiplicative.div = { div := fun (x y : Multiplicative α) => Multiplicative.ofAdd (Multiplicative.toAdd x - Multiplicative.toAdd y) }

@[simp]

theorem ofAdd_sub {α : Type u} [Sub α] (x : α) (y : α) : Multiplicative.ofAdd (x - y) = Multiplicative.ofAdd x / Multiplicative.ofAdd y

@[simp]

theorem toAdd_div {α : Type u} [Sub α] (x : Multiplicative α) (y : Multiplicative α) : Multiplicative.toAdd (x / y) = Multiplicative.toAdd x - Multiplicative.toAdd y

@[simp]

theorem ofMul_div {α : Type u} [Div α] (x : α) (y : α) : Additive.ofMul (x / y) = Additive.ofMul x - Additive.ofMul y

@[simp]

theorem toMul_sub {α : Type u} [Div α] (x : Additive α) (y : Additive α) : Additive.toMul (x - y) = Additive.toMul x / Additive.toMul y

instance Additive.involutiveNeg {α : Type u} [InvolutiveInv α] : InvolutiveNeg (Additive α)

Equations

• Additive.involutiveNeg = let __src := Additive.neg; InvolutiveNeg.mk ⋯

instance Multiplicative.involutiveInv {α : Type u} [InvolutiveNeg α] : InvolutiveInv (Multiplicative α)

Equations

• Multiplicative.involutiveInv = let __src := Multiplicative.inv; InvolutiveInv.mk ⋯

instance Additive.subNegMonoid {α : Type u} [DivInvMonoid α] : SubNegMonoid (Additive α)

Equations

• Additive.subNegMonoid = let __src := Additive.neg; let __src_1 := Additive.sub; let __src_2 := Additive.addMonoid; SubNegMonoid.mk ⋯ DivInvMonoid.zpow ⋯ ⋯ ⋯

instance Multiplicative.divInvMonoid {α : Type u} [SubNegMonoid α] : DivInvMonoid (Multiplicative α)

Equations

• Multiplicative.divInvMonoid = let __src := Multiplicative.inv; let __src_1 := Multiplicative.div; let __src_2 := Multiplicative.monoid; DivInvMonoid.mk ⋯ SubNegMonoid.zsmul ⋯ ⋯ ⋯

@[simp]

theorem ofMul_zpow {α : Type u} [DivInvMonoid α] (z : ℤ) (a : α) : Additive.ofMul (a ^ z) = z • Additive.ofMul a

@[simp]

theorem toMul_zsmul {α : Type u} [DivInvMonoid α] (z : ℤ) (a : Additive α) : Additive.toMul (z • a) = Additive.toMul a ^ z

@[simp]

theorem ofAdd_zsmul {α : Type u} [SubNegMonoid α] (z : ℤ) (a : α) : Multiplicative.ofAdd (z • a) = Multiplicative.ofAdd a ^ z

@[simp]

theorem toAdd_zpow {α : Type u} [SubNegMonoid α] (a : Multiplicative α) (z : ℤ) : Multiplicative.toAdd (a ^ z) = z • Multiplicative.toAdd a

instance Additive.subtractionMonoid {α : Type u} [DivisionMonoid α] : SubtractionMonoid (Additive α)

Equations

• Additive.subtractionMonoid = let __src := Additive.subNegMonoid; let __src_1 := Additive.involutiveNeg; SubtractionMonoid.mk ⋯ ⋯ ⋯

instance Multiplicative.divisionMonoid {α : Type u} [SubtractionMonoid α] : DivisionMonoid (Multiplicative α)

Equations

• Multiplicative.divisionMonoid = let __src := Multiplicative.divInvMonoid; let __src_1 := Multiplicative.involutiveInv; DivisionMonoid.mk ⋯ ⋯ ⋯

instance Additive.subtractionCommMonoid {α : Type u} [DivisionCommMonoid α] : SubtractionCommMonoid (Additive α)

Equations

• Additive.subtractionCommMonoid = let __src := Additive.subtractionMonoid; let __src_1 := Additive.addCommSemigroup; SubtractionCommMonoid.mk ⋯

instance Multiplicative.divisionCommMonoid {α : Type u} [SubtractionCommMonoid α] : DivisionCommMonoid (Multiplicative α)

Equations

• Multiplicative.divisionCommMonoid = let __src := Multiplicative.divisionMonoid; let __src_1 := Multiplicative.commSemigroup; DivisionCommMonoid.mk ⋯

instance Additive.addGroup {α : Type u} [Group α] : AddGroup (Additive α)

Equations

• Additive.addGroup = let __src := Additive.subNegMonoid; AddGroup.mk ⋯

instance Multiplicative.group {α : Type u} [AddGroup α] : Group (Multiplicative α)

Equations

• Multiplicative.group = let __src := Multiplicative.divInvMonoid; Group.mk ⋯

instance Additive.addCommGroup {α : Type u} [CommGroup α] : AddCommGroup (Additive α)

Equations

• Additive.addCommGroup = let __src := Additive.addGroup; let __src_1 := Additive.addCommMonoid; AddCommGroup.mk ⋯

instance Multiplicative.commGroup {α : Type u} [AddCommGroup α] : CommGroup (Multiplicative α)

Equations

• Multiplicative.commGroup = let __src := Multiplicative.group; let __src_1 := Multiplicative.commMonoid; CommGroup.mk ⋯

@[simp]

theorem AddMonoidHom.toMultiplicative_apply_apply {α : Type u} {β : Type v} [AddZeroClass α] [AddZeroClass β] (f : α →+ β) (a : Multiplicative α) : (AddMonoidHom.toMultiplicative f) a = Multiplicative.ofAdd (f (Multiplicative.toAdd a))

@[simp]

theorem AddMonoidHom.toMultiplicative_symm_apply_apply {α : Type u} {β : Type v} [AddZeroClass α] [AddZeroClass β] (f : Multiplicative α →* Multiplicative β) (a : α) : (AddMonoidHom.toMultiplicative.symm f) a = Multiplicative.toAdd (f (Multiplicative.ofAdd a))

def AddMonoidHom.toMultiplicative {α : Type u} {β : Type v} [AddZeroClass α] [AddZeroClass β] : (α →+ β) ≃ (Multiplicative α →* Multiplicative β)

Reinterpret α →+ β as Multiplicative α →* Multiplicative β.

Equations

• One or more equations did not get rendered due to their size.

@[simp]

theorem AddMonoidHom.coe_toMultiplicative {α : Type u} {β : Type v} [AddZeroClass α] [AddZeroClass β] (f : α →+ β) : ⇑(AddMonoidHom.toMultiplicative f) = ⇑Multiplicative.ofAdd ∘ ⇑f ∘ ⇑Multiplicative.toAdd

@[simp]

theorem MonoidHom.toAdditive_symm_apply_apply {α : Type u} {β : Type v} [MulOneClass α] [MulOneClass β] (f : Additive α →+ Additive β) (a : α) : (MonoidHom.toAdditive.symm f) a = Additive.toMul (f (Additive.ofMul a))

@[simp]

theorem MonoidHom.toAdditive_apply_apply {α : Type u} {β : Type v} [MulOneClass α] [MulOneClass β] (f : α →* β) (a : Additive α) : (MonoidHom.toAdditive f) a = Additive.ofMul (f (Additive.toMul a))

def MonoidHom.toAdditive {α : Type u} {β : Type v} [MulOneClass α] [MulOneClass β] : (α →* β) ≃ (Additive α →+ Additive β)

Reinterpret α →* β as Additive α →+ Additive β.

Equations

• One or more equations did not get rendered due to their size.

@[simp]

theorem MonoidHom.coe_toMultiplicative {α : Type u} {β : Type v} [MulOneClass α] [MulOneClass β] (f : α →* β) : ⇑(MonoidHom.toAdditive f) = ⇑Additive.ofMul ∘ ⇑f ∘ ⇑Additive.toMul

@[simp]

theorem AddMonoidHom.toMultiplicative'_apply_apply {α : Type u} {β : Type v} [MulOneClass α] [AddZeroClass β] (f : Additive α →+ β) (a : α) : (AddMonoidHom.toMultiplicative' f) a = Multiplicative.ofAdd (f (Additive.ofMul a))

@[simp]

theorem AddMonoidHom.toMultiplicative'_symm_apply_apply {α : Type u} {β : Type v} [MulOneClass α] [AddZeroClass β] (f : α →* Multiplicative β) (a : Additive α) : (AddMonoidHom.toMultiplicative'.symm f) a = Multiplicative.toAdd (f (Additive.toMul a))

def AddMonoidHom.toMultiplicative' {α : Type u} {β : Type v} [MulOneClass α] [AddZeroClass β] : (Additive α →+ β) ≃ (α →* Multiplicative β)

Reinterpret Additive α →+ β as α →* Multiplicative β.

Equations

• One or more equations did not get rendered due to their size.

@[simp]

theorem AddMonoidHom.coe_toMultiplicative' {α : Type u} {β : Type v} [MulOneClass α] [AddZeroClass β] (f : Additive α →+ β) : ⇑(AddMonoidHom.toMultiplicative' f) = ⇑Multiplicative.ofAdd ∘ ⇑f ∘ ⇑Additive.ofMul

@[simp]

theorem MonoidHom.toAdditive'_symm_apply_apply {α : Type u} {β : Type v} [MulOneClass α] [AddZeroClass β] : ∀ (a : Additive α →+ β) (a_1 : α), (MonoidHom.toAdditive'.symm a) a_1 = Multiplicative.ofAdd (a (Additive.ofMul a_1))

@[simp]

theorem MonoidHom.toAdditive'_apply_apply {α : Type u} {β : Type v} [MulOneClass α] [AddZeroClass β] : ∀ (a : α →* Multiplicative β) (a_1 : Additive α), (MonoidHom.toAdditive' a) a_1 = Multiplicative.toAdd (a (Additive.toMul a_1))

def MonoidHom.toAdditive' {α : Type u} {β : Type v} [MulOneClass α] [AddZeroClass β] : (α →* Multiplicative β) ≃ (Additive α →+ β)

Reinterpret α →* Multiplicative β as Additive α →+ β.

Equations

• MonoidHom.toAdditive' = AddMonoidHom.toMultiplicative'.symm

@[simp]

theorem MonoidHom.coe_toAdditive' {α : Type u} {β : Type v} [MulOneClass α] [AddZeroClass β] (f : α →* Multiplicative β) : ⇑(MonoidHom.toAdditive' f) = ⇑Multiplicative.toAdd ∘ ⇑f ∘ ⇑Additive.toMul

@[simp]

theorem AddMonoidHom.toMultiplicative''_apply_apply {α : Type u} {β : Type v} [AddZeroClass α] [MulOneClass β] (f : α →+ Additive β) (a : Multiplicative α) : (AddMonoidHom.toMultiplicative'' f) a = Additive.toMul (f (Multiplicative.toAdd a))

@[simp]

theorem AddMonoidHom.toMultiplicative''_symm_apply_apply {α : Type u} {β : Type v} [AddZeroClass α] [MulOneClass β] (f : Multiplicative α →* β) (a : α) : (AddMonoidHom.toMultiplicative''.symm f) a = Additive.ofMul (f (Multiplicative.ofAdd a))

def AddMonoidHom.toMultiplicative'' {α : Type u} {β : Type v} [AddZeroClass α] [MulOneClass β] : (α →+ Additive β) ≃ (Multiplicative α →* β)

Reinterpret α →+ Additive β as Multiplicative α →* β.

Equations

• One or more equations did not get rendered due to their size.

@[simp]

theorem AddMonoidHom.coe_toMultiplicative'' {α : Type u} {β : Type v} [AddZeroClass α] [MulOneClass β] (f : α →+ Additive β) : ⇑(AddMonoidHom.toMultiplicative'' f) = ⇑Additive.toMul ∘ ⇑f ∘ ⇑Multiplicative.toAdd

@[simp]

theorem MonoidHom.toAdditive''_symm_apply_apply {α : Type u} {β : Type v} [AddZeroClass α] [MulOneClass β] : ∀ (a : α →+ Additive β) (a_1 : Multiplicative α), (MonoidHom.toAdditive''.symm a) a_1 = Additive.toMul (a (Multiplicative.toAdd a_1))

@[simp]

theorem MonoidHom.toAdditive''_apply_apply {α : Type u} {β : Type v} [AddZeroClass α] [MulOneClass β] : ∀ (a : Multiplicative α →* β) (a_1 : α), (MonoidHom.toAdditive'' a) a_1 = Additive.ofMul (a (Multiplicative.ofAdd a_1))

def MonoidHom.toAdditive'' {α : Type u} {β : Type v} [AddZeroClass α] [MulOneClass β] : (Multiplicative α →* β) ≃ (α →+ Additive β)

Reinterpret Multiplicative α →* β as α →+ Additive β.

Equations

• MonoidHom.toAdditive'' = AddMonoidHom.toMultiplicative''.symm

@[simp]

theorem MonoidHom.coe_toAdditive'' {α : Type u} {β : Type v} [AddZeroClass α] [MulOneClass β] (f : Multiplicative α →* β) : ⇑(MonoidHom.toAdditive'' f) = ⇑Additive.ofMul ∘ ⇑f ∘ ⇑Multiplicative.ofAdd

instance Additive.coeToFun {α : Type u_1} {β : α → Sort u_2} [CoeFun α β] : CoeFun (Additive α) fun (a : Additive α) => β (Additive.toMul a)

If α has some multiplicative structure and coerces to a function, then Additive α should also coerce to the same function.

This allows Additive to be used on bundled function types with a multiplicative structure, which is often used for composition, without affecting the behavior of the function itself.

Equations

• Additive.coeToFun = { coe := fun (a : Additive α) => CoeFun.coe (Additive.toMul a) }

instance Multiplicative.coeToFun {α : Type u_1} {β : α → Sort u_2} [CoeFun α β] : CoeFun (Multiplicative α) fun (a : Multiplicative α) => β (Multiplicative.toAdd a)

If α has some additive structure and coerces to a function, then Multiplicative α should also coerce to the same function.

This allows Multiplicative to be used on bundled function types with an additive structure, which is often used for composition, without affecting the behavior of the function itself.

Equations

• Multiplicative.coeToFun = { coe := fun (a : Multiplicative α) => CoeFun.coe (Multiplicative.toAdd a) }