LocalFieldTheory.DiscreteValuationField.CompleteDVF.higherPrincipalUnitGroup.Internal.principalUnitQuotientCarrierTransitionAdd
Additive form of a transition between principal-unit quotients.
Source context 6 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
namespace LocalFieldTheory.DiscreteValuationField.CompleteDVF.higherPrincipalUnitGroup
open ValuationTheory.DiscreteValuationField
open Internal
universe u v
variable {K : Type u} [Field K]Lean source · full declaration
def Internal.principalUnitQuotientCarrierTransitionAdd
(F : CompleteDVF.{u, v} K) {m n : ℕ} (hmn : m ≤ n) :
Additive (Internal.principalUnitQuotientCarrier F n) →+
Additive (Internal.principalUnitQuotientCarrier F m) where
toFun x := Additive.ofMul
(principalUnitQuotientCarrierTransition F hmn (Additive.toMul x))
map_zero' := by
change Additive.ofMul
(principalUnitQuotientCarrierTransition F hmn 1) = Additive.ofMul 1
rw [map_one]
map_add' x y := by
change Additive.ofMul
(principalUnitQuotientCarrierTransition F hmn
(Additive.toMul x * Additive.toMul y)) =
Additive.ofMul
(principalUnitQuotientCarrierTransition F hmn (Additive.toMul x) *
principalUnitQuotientCarrierTransition F hmn (Additive.toMul y))
rw [map_mul]