Orbit augmentation kernel and rank formula
ProvedLegacyAlgebra.orbitAugmentationLet a group G act on a finite set X over any field k. The subspace spanned by e_(g·x) − e_x is exactly the kernel of the map that sums coefficients separately on each G-orbit. Its dimension is |X| − |X/G|. No transitivity or characteristic assumption is imposed, and the acting group need not be finite.
import Mathlib import Definitions.Def_legacyOrbitAugmentation set_option autoImplicit false
theorem LegacyAlgebra.orbitAugmentation
(k G X : Type*) [Field k] [Group G] [MulAction G X] [Fintype X] :
legacyOrbitAugmentation k G X =
LinearMap.ker (Finsupp.lmapDomain k k
(Quotient.mk (MulAction.orbitRel G X))) ∧
Module.finrank k (legacyOrbitAugmentation k G X) =
Fintype.card X - Nat.card (MulAction.orbitRel.Quotient G X) := by
sorry
Read-back
What the Lean code literally says, in plain math · Codex independent blind auditor; exact model identifier unavailable
For every field , every group , and every finite type equipped with a left -action and a finite enumeration, let be the span of over all and , where is the vector space of finitely supported functions and has value at and elsewhere. Let be the quotient of by the equivalence relation if for some , and let send each to , so that the coefficient of an orbit in is the sum of the coefficients of over that orbit. The assertion is the conjunction and , where the right-hand subtraction is natural-number subtraction, truncated at zero, and denotes the finite cardinality of the orbit quotient. The group may be infinite, the field has arbitrary characteristic, and may be empty, in which case both subspaces and both cardinalities are zero.
Confirmed by the mission captain (proposal self-audit).