Regrouping a general-profile exact address by ordered grade type
Provedmme_stothers_general_address_group_by_ordered_grade_typesAn exact outer address, regrouped by its ordered grade triples.
Fix a strictly positive integral ten-class profile and a scale . An exact outer address of length , where , is a word in the nine grades in each of the three modes whose ordered grade triple realises each of the possible triples exactly times, where is the joint multiplicity attached to the profile.
The graded block that such an address cuts out of the fourth power is then isomorphic to the ordered Kronecker product of the grade blocks, each raised to its multiplicity:
This is the first regrouping step of the Davie--Stothers extraction: the address block is a product over positions, and one wants a product over grade types, because the value analysis only sees the type of each factor. Since the address is exact, the fibre of the type map over each has exactly elements, and the regrouping is a permutation of the tensor factors.
The statement generalises the published fixed-profile version, which is the special case where is the specific ten-vector of Section 5; nothing in the argument uses those numbers.
Formalization note. The equivalence is any cardinality equivalence; it only fixes an ordering of the factors.
import Mathlib.Tactic import Definitions.Def_mme_induced_word_zeroing import Definitions.Def_mme_stothers_general_outer_profile open MME BigOperators universe u set_option autoImplicit false
theorem mme_stothers_general_address_group_by_ordered_grade_types
{K : Type u} [Field K]
(base : Fin 10 → ℕ) (m : ℕ) (a : MME.StothersFourth.GenExactOuterAddress base m) :
let e : (Fin 3 → Fin 9) ≃ Fin 729 := by
classical
simpa only [Fintype.card_fun, Fintype.card_fin, Nat.reducePow] using
(Fintype.equivFin (Fin 3 → Fin 9))
TensorObj.Isomorphic
(gradedAddressBlock
(MME.StothersFourth.cwFourthCanonicalGrading K 6) a.1)
(TensorObj.kronFin 729 (fun s ↦
((MME.StothersFourth.cwFourthCanonicalGrading K 6).blockSubtensor
(e.symm s)).kronPow
(MME.StothersFourth.genJointMultiplicity base m (e.symm s)))) := by
sorry