Full paired witness lists and scalar recipe equations
Lax342547.PairedWitnesses · concepts/Lax342547/PairedWitnesses.lean · lax-342547
No public endorsements yet.
Loading review…
Sign in with ORCIDNatural Language Statement
Lemma
Four cross pairs carry matched lists of one to seven actual point atoms. Freshness holds across both lists at each endpoint. The scalar recipe records odd diagonal sums, role parity, both effective-space equations, and both coupled endpoint equations, using the actual contractions.
Concept map
Evidence
Lean source view on GitHub
| 1 | import Lax342547.WitnessAtoms |
| 2 | import Lax342547.RawContractions |
| 3 | import Mathlib.Data.Fintype.Sigma |
| 4 | |
| 5 | /-! |
| 6 | --- |
| 7 | title: Full paired witness lists and scalar recipe equations |
| 8 | type: lemma |
| 9 | --- |
| 10 | Four cross pairs carry matched lists of one to seven actual point atoms. |
| 11 | Freshness holds across both lists at each endpoint. The scalar recipe |
| 12 | records odd diagonal sums, role parity, both effective-space equations, |
| 13 | and both coupled endpoint equations, using the actual contractions. |
| 14 | -/ |
| 15 | |
| 16 | namespace Lax342547.PairedWitnesses |
| 17 | |
| 18 | open Lax342547.MomentSpace Lax342547.TagGeometry Lax342547.ConcreteGeometry |
| 19 | open Lax342547.ConcreteCut Lax342547.CutProfiles Lax342547.Atoms Lax342547.WitnessAtoms |
| 20 | open Lax342547.RawFrames Lax342547.ExactPins Lax342547.ProjectedPins |
| 21 | open Lax342547.SmallTables Lax342547.TableContractions |
| 22 | |
| 23 | def diagonalBit {k n b degree r : ℕ} (hr : 2 * r ≤ n) (x : PointAtom k n b degree) : Binary := |
| 24 | eta hr (pointMoment (selectorEval (degree := degree)) x.label x.base) |
| 25 | |
| 26 | structure Lists (k n b degree r : ℕ) (hr : 2 * r ≤ n) where |
| 27 | length : Fin 2 → Fin 2 → ℕ |
| 28 | positive : ∀ i z, 1 ≤ length i z |
| 29 | short : ∀ i z, length i z ≤ 7 |
| 30 | left : ∀ i z, Fin (length i z) → PointAtom k n b degree |
| 31 | right : ∀ i z, Fin (length i z) → PointAtom k n b degree |
| 32 | same_tag : ∀ i z t, (left i z t).tag = (right i z t).tag |
| 33 | same_diagonal : ∀ i z t, diagonalBit hr (left i z t) = diagonalBit hr (right i z t) |
| 34 | left_fresh : ∀ i, Function.Injective (fun t : Σ z, Fin (length i z) => (left i t.1 t.2).label) |
| 35 | right_fresh : ∀ z, Function.Injective (fun t : Σ i, Fin (length i z) => (right t.1 z t.2).label) |
| 36 | |
| 37 | def other (i : Fin 2) : Fin 2 := ⟨1 - i.val, by omega⟩ |
| 38 | |
| 39 | variable {k n b degree r : ℕ} {hr : 2 * r ≤ n} |
| 40 | |
| 41 | noncomputable def leftRepresentation (W : Lists k n b degree r hr) (i z : Fin 2) : |
| 42 | Representation k n b degree := |
| 43 | ∑ t, atomRepresentation (W.left i z t).tag (W.left i z t).label |
| 44 | (W.left i z t).base (W.left i z t).supported |
| 45 | |
| 46 | noncomputable def rightRepresentation (W : Lists k n b degree r hr) (i z : Fin 2) : |
| 47 | Representation k n b degree := |
| 48 | ∑ t, atomRepresentation (W.right i z t).tag (W.right i z t).label |
| 49 | (W.right i z t).base (W.right i z t).supported |
| 50 | |
| 51 | noncomputable def leftWitness (W : Lists k n b degree r hr) (i z : Fin 2) : Profile k n b degree := |
| 52 | ∑ t, (W.left i z t).profile |
| 53 | |
| 54 | noncomputable def rightWitness (W : Lists k n b degree r hr) (i z : Fin 2) : Profile k n b degree := |
| 55 | ∑ t, (W.right i z t).profile |
| 56 | |
| 57 | def FreshAgainst (W : Lists k n b degree r hr) (A B : Fin 2 → Finset (Fin b → Binary)) : Prop := |
| 58 | (∀ i z t, (W.left i z t).label ∉ A i) ∧ (∀ i z t, (W.right i z t).label ∉ B z) |
| 59 | |
| 60 | variable {H N : Type} [Fintype H] [Fintype N] |
| 61 | {E : Moment k n b degree} |
| 62 | |
| 63 | abbrev Unit := Fin 2 → Component (Tag k) → Frame (Coordinate k n b degree) H N E |
| 64 | |
| 65 | noncomputable def ownContraction (o : Unit (H := H) (N := N) (E := E)) (i : Fin 2) : |
| 66 | Profile k n b degree →ₗ[Binary] Binary := |
| 67 | (profileContraction (o (other i))).comp ((profileMap (o i)).comp (Profile k n b degree).subtype) |
| 68 | |
| 69 | def MatchedKeys (W : Lists k n b degree r hr) (oA oB : Unit (H := H) (N := N) (E := E)) : Prop := |
| 70 | ∀ i z t (e : Component (Tag k)), (W.left i z t).tag ∈ e.val → |
| 71 | (oA i e).P.mulVec (W.left i z t).vector = (oB z e).P.mulVec (W.right i z t).vector ∧ |
| 72 | (oA i e).Q.mulVec (W.left i z t).vector = (oB z e).Q.mulVec (W.right i z t).vector |
| 73 | |
| 74 | structure ScalarRecipe (W : Lists k n b degree r hr) |
| 75 | (D : Testers (k := k) (b := b) (degree := degree) hr) {copies : ℕ} |
| 76 | (L R : Fin copies → Component (Tag k) → Component (Tag k) → Moment k n b degree) |
| 77 | (oA oB : Unit (H := H) (N := N) (E := E)) |
| 78 | {P Q : Pin (Component (Tag k) × Bool) (Fin 2 × (Coordinate k n b degree ⊕ H)) N} |
| 79 | (T : Table P Q) (A B : Fin 2 → Finset (Fin b → Binary)) : Prop where |
| 80 | fresh : FreshAgainst W A B |
| 81 | odd : ∀ i z, (∑ t, diagonalBit hr (W.left i z t)) = 1 |
| 82 | roles : ∀ i z, D.role (leftWitness W i z) + D.role (rightWitness W i z) = 1 |
| 83 | effectiveLeft : ∀ i z (x : effective (Profile k n b degree) P i), |
| 84 | gradient D L R (leftWitness W i z) x.val = D.role x.val + |
| 85 | starContraction T (Profile k n b degree) i z x |
| 86 | effectiveRight : ∀ i z (x : effective (Profile k n b degree) Q z), |
| 87 | gradient D L R (rightWitness W i z) x.val = D.role x.val + |
| 88 | starContraction (flipTable T) (Profile k n b degree) z i x |
| 89 | coupledLeft : ∀ i z, |
| 90 | (ownContraction oA i + D.role) (leftWitness W i z) = |
| 91 | (ownContraction oA (other i) + D.role) (leftWitness W (other i) z) |
| 92 | coupledRight : ∀ i z, |
| 93 | (ownContraction oB z + D.role) (rightWitness W i z) = |
| 94 | (ownContraction oB (other z) + D.role) (rightWitness W i (other z)) |
| 95 | |
| 96 | axiom list_budgets (W : Lists k n b degree r hr) : |
| 97 | (∀ i, Fintype.card (Σ z, Fin (W.length i z)) ≤ 14) ∧ |
| 98 | ∀ z, Fintype.card (Σ i, Fin (W.length i z)) ≤ 14 |
| 99 | |
| 100 | axiom diagonal_sums (W : Lists k n b degree r hr) (i z : Fin 2) : |
| 101 | chiStar hr (leftRepresentation W i z) = ∑ t, diagonalBit hr (W.left i z t) ∧ |
| 102 | chiStar hr (rightRepresentation W i z) = ∑ t, diagonalBit hr (W.left i z t) |
| 103 | |
| 104 | axiom tensor_sharing (W : Lists k n b degree r hr) |
| 105 | (oA oB : Unit (H := H) (N := N) (E := E)) (hkeys : MatchedKeys W oA oB) (i z : Fin 2) : |
| 106 | profileMap (oA i) (leftWitness W i z).val = profileMap (oB z) (rightWitness W i z).val |
| 107 | |
| 108 | end Lax342547.PairedWitnesses |
| 109 |
Discussion
Ask a question or add context. Endorsements and structured flags are kept in the review panel above.
0 comments