Joint retained-cell characters across all components
Lax342547.ComponentCharacters · concepts/Lax342547/ComponentCharacters.lean · lax-342547
No public endorsements yet.
Loading review…
Sign in with ORCIDNatural Language Statement
Lemma
Componentwise quotient projections and rank factors combine into one joint Walsh image. No independence between components or nominal orientations is imposed; rank sums control the complete character.
Concept map
Evidence
This concept declares 5 statements. Each proof establishes one of them relative to its assumptions.
1 block_factor_pair proven
2 block_factor_phase proven
3 block_image_dimension proven
4 component_character_bound proven
5 retained_component_character_dichotomy proven
Lean source view on GitHub
| 1 | import Lax342547.RetainedCharacters |
| 2 | |
| 3 | /-! |
| 4 | --- |
| 5 | title: Joint retained-cell characters across all components |
| 6 | type: lemma |
| 7 | --- |
| 8 | Componentwise quotient projections and rank factors combine into one joint Walsh image. No independence between components or nominal orientations is imposed; rank sums control the complete character. |
| 9 | -/ |
| 10 | |
| 11 | namespace Lax342547.ComponentCharacters |
| 12 | |
| 13 | open Lax342547.ConcreteGeometry |
| 14 | open Lax342547.MomentSpace Lax342547.Walsh Lax342547.CoefficientPhase |
| 15 | open Lax342547.PushforwardWalsh Lax342547.RetainedCharacters |
| 16 | |
| 17 | noncomputable def blockImage {Axis N : Type} {I R : Axis → Type} |
| 18 | [Fintype N] [∀ a, Fintype (I a)] |
| 19 | (A : ∀ a, Matrix (I a) (R a) Binary) (X : ∀ a, Matrix N (I a) Binary) : |
| 20 | ((Σ a, R a) × N) → Binary := fun v => factorImage (A v.1.1) (X v.1.1) (v.1.2,v.2) |
| 21 | |
| 22 | axiom block_factor_pair {Axis N : Type} {I R : Axis → Type} |
| 23 | [Fintype Axis] [Fintype N] [∀ a, Fintype (I a)] [∀ a, Fintype (R a)] |
| 24 | (A B : ∀ a, Matrix (I a) (R a) Binary) (X Y : ∀ a, Matrix N (I a) Binary) : |
| 25 | (∑ a, coefficientPair (A a * (B a).transpose) (X a) (Y a)) = |
| 26 | dotProduct (blockImage A X) (blockImage B Y) |
| 27 | |
| 28 | axiom block_factor_phase {Axis N : Type} {I R : Axis → Type} |
| 29 | [Fintype Axis] [Fintype N] [∀ a, Fintype (I a)] [∀ a, Fintype (R a)] |
| 30 | (A B : ∀ a, Matrix (I a) (R a) Binary) (X Y : ∀ a, Matrix N (I a) Binary) : |
| 31 | sign (∑ a, coefficientPair (A a * (B a).transpose) (X a) (Y a)) = |
| 32 | phase (blockImage A X) (blockImage B Y) |
| 33 | |
| 34 | axiom block_image_dimension {Axis N : Type} {R : Axis → Type} |
| 35 | [Fintype Axis] [Fintype N] [∀ a, Fintype (R a)] : |
| 36 | Fintype.card ((Σ a, R a) × N) = (∑ a, Fintype.card (R a)) * Fintype.card N |
| 37 | |
| 38 | axiom component_character_bound {ΩA ΩB Axis N : Type} {I R : Axis → Type} |
| 39 | [Fintype ΩA] [Fintype ΩB] [Fintype Axis] [Fintype N] |
| 40 | [∀ a, Fintype (I a)] [∀ a, Fintype (R a)] |
| 41 | (α : ΩA → ℝ) (β : ΩB → ℝ) |
| 42 | (X : ΩA → ∀ a, Matrix N (I a) Binary) (Y : ΩB → ∀ a, Matrix N (I a) Binary) |
| 43 | (A B : ∀ a, Matrix (I a) (R a) Binary) (c : Binary) |
| 44 | (hα : ∀ x, 0 ≤ α x) (hβ : ∀ y, 0 ≤ β y) |
| 45 | (hαsum : ∑ x, α x ≤ 1) (hβsum : ∑ y, β y ≤ 1) |
| 46 | (hcapA : ∀ x, push α (fun ω => blockImage A (X ω)) x ≤ |
| 47 | (2 : ℝ)^(-(95/100 : ℝ)*((∑ a, Fintype.card (R a))*Fintype.card N))) |
| 48 | (hcapB : ∀ y, push β (fun ω => blockImage B (Y ω)) y ≤ |
| 49 | (2 : ℝ)^(-(95/100 : ℝ)*((∑ a, Fintype.card (R a))*Fintype.card N))) : |
| 50 | |∑ x, ∑ y, α x * β y * sign ((∑ a, |
| 51 | coefficientPair (A a * (B a).transpose) (X x a) (Y y a)) + c)| ≤ |
| 52 | (2 : ℝ)^(-(45/100 : ℝ)*((∑ a, Fintype.card (R a))*Fintype.card N)) |
| 53 | |
| 54 | axiom retained_component_character_dichotomy {ΩA ΩB Axis N : Type} {I : Axis → Type} |
| 55 | [Fintype ΩA] [Fintype ΩB] [Fintype Axis] [Fintype N] [∀ a, Fintype (I a)] |
| 56 | (α : ΩA → ℝ) (β : ΩB → ℝ) |
| 57 | (X : ΩA → ∀ a, Matrix N (I a) Binary) (Y : ΩB → ∀ a, Matrix N (I a) Binary) |
| 58 | (D E : ∀ a, Submodule Binary (I a → Binary)) |
| 59 | (T : ∀ a, LinearMap.BilinForm Binary (I a → Binary)) |
| 60 | (hα : ∀ x, 0 ≤ α x) (hβ : ∀ y, 0 ≤ β y) |
| 61 | (hαsum : ∑ x, α x = 1) (hβsum : ∑ y, β y = 1) |
| 62 | (hD : ∀ x y a v, v ∈ D a → ∀ w, actualForm (X x a) (Y y a) v w = T a v w) |
| 63 | (hE : ∀ x y a v w, w ∈ E a → actualForm (X x a) (Y y a) v w = T a v w) |
| 64 | (hcapA : ∀ (r : Axis → ℕ) (A : ∀ a, Matrix (I a) (Fin (r a)) Binary), |
| 65 | (∀ a, Function.Injective ((D a).mkQ.comp (A a).mulVecLin)) → |
| 66 | ∀ x, push α (fun ω => blockImage A (X ω)) x ≤ |
| 67 | (2 : ℝ)^(-(95/100 : ℝ)*((∑ a, r a)*Fintype.card N))) |
| 68 | (hcapB : ∀ (r : Axis → ℕ) (B : ∀ a, Matrix (I a) (Fin (r a)) Binary), |
| 69 | (∀ a, Function.Injective ((E a).mkQ.comp (B a).mulVecLin)) → |
| 70 | ∀ y, push β (fun ω => blockImage B (Y ω)) y ≤ |
| 71 | (2 : ℝ)^(-(95/100 : ℝ)*((∑ a, r a)*Fintype.card N))) |
| 72 | (C : ∀ a, Matrix (I a) (I a) Binary) : by |
| 73 | classical |
| 74 | let mean := ∑ x, ∑ y, α x * β y * sign (∑ a, |
| 75 | (coefficientPair (C a) (X x a) (Y y a) + |
| 76 | matrixPair (LinearMap.BilinForm.toMatrix' (T a)) (C a))) |
| 77 | exact mean = 1 ∨ |mean| ≤ (2 : ℝ)^(-(45/100 : ℝ)*Fintype.card N) |
| 78 | |
| 79 | end Lax342547.ComponentCharacters |
| 80 |
Builds on
From Mathlib
none
Discussion
Ask a question or add context. Endorsements and structured flags are kept in the review panel above.
0 comments