Actual-mass averaging over retained record-cell pairs
Lax342547.CellAveraging · concepts/Lax342547/CellAveraging.lean · lax-342547
No public endorsements yet.
Loading review…
Sign in with ORCIDNatural Language Statement
Lemma
The product of conditional cell laws recovers each original rectangle after multiplication by both cell masses. Disjoint record partitions sum these rectangle estimates without counting an orientation pair more than once.
Concept map
Evidence
This concept declares 5 statements. Each proof establishes one of them relative to its assumptions.
1 conditional_rectangle_lower proven
2 conditional_rectangle_mass proven
3 pair_event_mass_nonneg proven
4 partition_rectangle_mass proven
5 retained_cell_pair_lower proven
Lean source view on GitHub
| 1 | import Lax342547.RealCellLaws |
| 2 | import Lax342547.KeyMeasures |
| 3 | import Lax342547.CollisionPruning |
| 4 | |
| 5 | /-! |
| 6 | --- |
| 7 | title: Actual-mass averaging over retained record-cell pairs |
| 8 | type: lemma |
| 9 | --- |
| 10 | The product of conditional cell laws recovers each original rectangle after multiplication by both cell masses. Disjoint record partitions sum these rectangle estimates without counting an orientation pair more than once. |
| 11 | -/ |
| 12 | |
| 13 | namespace Lax342547.CellAveraging |
| 14 | |
| 15 | open Lax342547.RetainedImages Lax342547.CollisionPruning |
| 16 | |
| 17 | noncomputable def pairEventMass {ΩA ΩB : Type} [Fintype ΩA] [Fintype ΩB] |
| 18 | (α : ΩA → ℝ) (β : ΩB → ℝ) (H : ΩA → ΩB → Prop) : ℝ := by |
| 19 | classical |
| 20 | exact ∑ a, ∑ b, if H a b then α a * β b else 0 |
| 21 | |
| 22 | noncomputable def rectangleMass {ΩA ΩB : Type} [Fintype ΩA] [Fintype ΩB] |
| 23 | (α : ΩA → ℝ) (β : ΩB → ℝ) (C : ΩA → Prop) (D : ΩB → Prop) |
| 24 | (H : ΩA → ΩB → Prop) : ℝ := pairEventMass α β (fun a b => C a ∧ D b ∧ H a b) |
| 25 | |
| 26 | axiom conditional_rectangle_mass {ΩA ΩB : Type} [Fintype ΩA] [Fintype ΩB] |
| 27 | (α : ΩA → ℝ) (β : ΩB → ℝ) (C : ΩA → Prop) (D : ΩB → Prop) |
| 28 | (H : ΩA → ΩB → Prop) : |
| 29 | pairEventMass (conditionalLaw α C) (conditionalLaw β D) H = |
| 30 | rectangleMass α β C D H / (cellMass α C * cellMass β D) |
| 31 | |
| 32 | axiom conditional_rectangle_lower {ΩA ΩB : Type} [Fintype ΩA] [Fintype ΩB] |
| 33 | (α : ΩA → ℝ) (β : ΩB → ℝ) (C : ΩA → Prop) (D : ΩB → Prop) |
| 34 | (H : ΩA → ΩB → Prop) (ε : ℝ) |
| 35 | (hC : 0 < cellMass α C) (hD : 0 < cellMass β D) |
| 36 | (h : ε ≤ pairEventMass (conditionalLaw α C) (conditionalLaw β D) H) : |
| 37 | ε * (cellMass α C * cellMass β D) ≤ rectangleMass α β C D H |
| 38 | |
| 39 | axiom partition_rectangle_mass {ΩA ΩB C D : Type} |
| 40 | [Fintype ΩA] [Fintype ΩB] [Fintype C] [Fintype D] |
| 41 | (α : ΩA → ℝ) (β : ΩB → ℝ) (recordA : ΩA → C) (recordB : ΩB → D) |
| 42 | (acceptA : ΩA → Prop) (acceptB : ΩB → Prop) (valid : C → D → Prop) |
| 43 | (H : ΩA → ΩB → Prop) : by |
| 44 | classical |
| 45 | exact (∑ c, ∑ d, if valid c d then |
| 46 | rectangleMass α β (fun a => acceptA a ∧ recordA a = c) |
| 47 | (fun b => acceptB b ∧ recordB b = d) H else 0) = |
| 48 | pairEventMass α β (fun a b => acceptA a ∧ acceptB b ∧ valid (recordA a) (recordB b) ∧ H a b) |
| 49 | |
| 50 | noncomputable def recordMass {Ω C : Type} [Fintype Ω] |
| 51 | (ρ : Ω → ℝ) (record : Ω → C) (accept : Ω → Prop) (c : C) : ℝ := |
| 52 | cellMass ρ (fun ω => accept ω ∧ record ω = c) |
| 53 | |
| 54 | noncomputable def retainedPairs {C D : Type} [Fintype C] [Fintype D] |
| 55 | (massA : C → ℝ) (massB : D → ℝ) (valid : C → D → Prop) (τ : ℝ) : ℝ := by |
| 56 | classical |
| 57 | exact ∑ c, ∑ d, if valid c d ∧ τ ≤ massA c ∧ τ ≤ massB d then massA c * massB d else 0 |
| 58 | |
| 59 | axiom pair_event_mass_nonneg {ΩA ΩB : Type} [Fintype ΩA] [Fintype ΩB] |
| 60 | (α : ΩA → ℝ) (β : ΩB → ℝ) (H : ΩA → ΩB → Prop) |
| 61 | (hα : ∀ a, 0 ≤ α a) (hβ : ∀ b, 0 ≤ β b) : 0 ≤ pairEventMass α β H |
| 62 | |
| 63 | axiom retained_cell_pair_lower {ΩA ΩB C D : Type} |
| 64 | [Fintype ΩA] [Fintype ΩB] [Fintype C] [Fintype D] |
| 65 | (α : ΩA → ℝ) (β : ΩB → ℝ) (recordA : ΩA → C) (recordB : ΩB → D) |
| 66 | (acceptA : ΩA → Prop) (acceptB : ΩB → Prop) (valid : C → D → Prop) |
| 67 | (H : ΩA → ΩB → Prop) (τ ε : ℝ) |
| 68 | (hα : ∀ a, 0 ≤ α a) (hβ : ∀ b, 0 ≤ β b) (hτ : 0 < τ) |
| 69 | (hloc : ∀ c d, valid c d → τ ≤ recordMass α recordA acceptA c → |
| 70 | τ ≤ recordMass β recordB acceptB d → ε ≤ |
| 71 | pairEventMass (conditionalLaw α (fun a => acceptA a ∧ recordA a = c)) |
| 72 | (conditionalLaw β (fun b => acceptB b ∧ recordB b = d)) H) : |
| 73 | ε * retainedPairs (recordMass α recordA acceptA) (recordMass β recordB acceptB) valid τ ≤ |
| 74 | pairEventMass α β H |
| 75 | |
| 76 | end Lax342547.CellAveraging |
| 77 |
Discussion
Ask a question or add context. Endorsements and structured flags are kept in the review panel above.
0 comments