Theorem 2.1, p. 11 — the crossed product is an initial object of ΓC and a final object of CΓ
ProvedCrossedProductGroups.Classification.theorem_2_1Let be a normalized crossed system and a group. Write , , and .
- Initial object. is an object of the category : is a group morphism and , (18) hold for , . Moreover, for every group morphism and every map satisfying (18), there is a unique group morphism with and .
- Final object. is an object of : is a group morphism and
holds for , . Moreover, for every group morphism and every map satisfying (19), there is a unique group morphism with and .
So the crossed product is characterized by two universal properties of different nature, one for maps out of it and one for maps into it.
Formalization Note. The categories and are not built; "initial" and "final" are unfolded into existence and uniqueness of the morphism to (from) every object, and the claims "it can be checked that … is an object" (p. 11) are included. A group morphism out of or into the crossed product is a map preserving the multiplication (8); the group is a universally quantified parameter of the theorem.
import Mathlib import Definitions.Def_CrossedProductGroups_Classification_CrossedSystem
namespace CrossedProductGroups.Classification
theorem theorem_2_1 {H G : Type*} [Group H] [Group G] (α : G → MulAut H) (f : G → G → H)
(hc : IsCrossedSystem α f) (hn : f 1 1 = 1) (X : Type*) [Group X] :
-- (1) `(H #^f_α G, (i_H, i_G))` is an object of `_ΓC` ...
((∀ h₁ h₂ : H, crossedMul α f (h₁, 1) (h₂, 1) = (h₁ * h₂, 1)) ∧
(∀ g₁ g₂ : G, crossedMul α f (1, g₁) (1, g₂) = crossedMul α f (f g₁ g₂, 1) (1, g₁ * g₂)) ∧
(∀ g : G, ∀ h : H, crossedMul α f (1, g) (h, 1) = crossedMul α f (α g h, 1) (1, g))) ∧
-- ... and it is initial: a unique morphism to every object `(X, (u, v))` of `_ΓC`
(∀ (u : H →* X) (v : G → X),
(∀ g₁ g₂ : G, v g₁ * v g₂ = u (f g₁ g₂) * v (g₁ * g₂)) →
(∀ g : G, ∀ h : H, v g * u h = u (α g h) * v g) →
∃! w : H × G → X, (∀ x y : H × G, w (crossedMul α f x y) = w x * w y) ∧
(∀ h : H, w (h, 1) = u h) ∧ ∀ g : G, w (1, g) = v g) ∧
-- (2) `(H #^f_α G, (π_H, π_G))` is an object of `C_Γ` ...
((∀ x y : H × G, (crossedMul α f x y).2 = x.2 * y.2) ∧
(∀ x y : H × G, (crossedMul α f x y).1 = x.1 * α x.2 y.1 * f x.2 y.2)) ∧
-- ... and it is final: a unique morphism from every object `(X, (u, v))` of `C_Γ`
(∀ (v : X →* G) (u : X → H),
(∀ x y : X, u (x * y) = u x * α (v x) (u y) * f (v x) (v y)) →
∃! w : X → H × G, (∀ x y : X, w (x * y) = crossedMul α f (w x) (w y)) ∧
(∀ x : X, (w x).1 = u x) ∧ ∀ x : X, (w x).2 = v x) := by sorry
end CrossedProductGroups.Classification
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.