Pith. sign in

IndisputableMonolith.Gravity.QuantumChannel.BMVFalsifierBand

IndisputableMonolith/Gravity/QuantumChannel/BMVFalsifierBand.lean · 472 lines · 35 declarations

show as:
view math explainer →

open module explainer GitHub source

Explainer status: pending

   1import Mathlib
   2import IndisputableMonolith.Gravity.QuantumChannel.BMVPositive
   3import IndisputableMonolith.Gravity.QuantumChannel.NoClassicalMediator
   4import IndisputableMonolith.Gravity.QuantumChannel.SubstrateLocalAccess
   5
   6/-!
   7# BMV Falsifier Band: the certified entanglement witness and the falsifier floor
   8
   9## Panel framing (binding)
  10
  11BMV entanglement is predicted by ANY quantum mediator, so this package is
  12permanently EXCLUDED from the pillar-3 discriminator slot. It cannot
  13distinguish RS from GR+QFT or from any other quantum-mediator model that
  14produces the same four branch phases (see
  15`same_branch_phases_same_BMV_witness` below, which records exactly why).
  16
  17Instead, this package is the FALSIFIER FLOOR. What a clean null
  18formally refutes is stated exactly here, with no inflation:
  19
  20* THEOREM (this file): under the package {Newtonian weak-field phase
  21  model (`BMVPositive.weakFieldPhase`, a MODEL input) + the named
  22  geometry (MODEL inputs of Section 1)}, the joint state is non-product
  23  (nonzero amplitude-matrix determinant), with the invariant certified
  24  in `[1/2, 7/10]`, bounded away from `0 mod 2 pi`. A measured product
  25  state at this geometry therefore contradicts THAT PACKAGE:
  26  `clean_null_refutes_rs` (model-point form) and
  27  `bmv_band_entanglement` (band-robust form).
  28* MODEL/OPEN (not formalized here or upstream): the premise that the
  29  RS gravitational channel produces the Newtonian weak-field phases at
  30  this geometry with this magnitude. The Track 2.C/2.D forcing theorems
  31  cited in `rs_amplitude_channel_unique` force the CHANNEL to be
  32  amplitude-linear under their named structural premises; they say
  33  nothing formal about the MAGNITUDE of the branch phases. The two
  34  halves of this module do not touch formally. Only with that
  35  unformalized premise added does "clean null refutes the package"
  36  extend to "clean null refutes the framework". The framework-level
  37  falsification reading is therefore MODEL/OPEN, not THEOREM.
  38
  39## Honest tier
  40
  41* THEOREM: all the algebra and the certified numeric bands in this file
  42  (kernel-checked, `norm_num` on exact rational literals; zero sorry,
  43  zero new axioms, no `native_decide`). The entanglement statement
  44  proved is exactly `det != 0`, the non-product criterion for the pure
  45  two-qubit branch state; no entanglement-entropy statement is used or
  46  claimed anywhere in this module.
  47* MODEL: the Newtonian weak-field phase formula, the choice of
  48  experimental geometry (masses, coherence time, branch separations),
  49  and the CODATA values of G and hbar, which are measured inputs, not
  50  RS derivations.
  51* MODEL/OPEN: the bridge premise that the RS channel reproduces the
  52  Newtonian weak-field phase magnitudes at this geometry (see above).
  53* The amplitude-channel forcing statement carries the exact structural
  54  premises of the existing Track 2.C/2.D modules; see the docstring of
  55  `rs_amplitude_channel_unique` for the honest premise list. Nothing is
  56  axiomatized here.
  57
  58## Contents
  59
  601. `rs_bmv_witness_band`: at one named representative geometry
  61   (Bose-et-al-2017-style mass and time scales in a parallel
  62   two-interferometer configuration; see Section 1), the entangling
  63   invariant
  64   `dPhi = (G m1 m2 T / hbar)(1/r_LL + 1/r_RR - 1/r_LR - 1/r_RL)`
  65   equals the exact rational `26696 / 47475` (about `0.5623` rad), lies
  66   in the certified band `[1/2, 7/10]` with `0 < 1/2` and
  67   `7/10 < 2 pi`, and therefore the joint two-mass state at this
  68   geometry is non-product (nonzero amplitude-matrix determinant), via
  69   `BMVPositive.entangled_of_branchPhase_in_open_period`.
  702. `rs_amplitude_channel_unique`: the strongest honest composition of
  71   the existing AmplitudeLinearForced* results tying the RS
  72   gravitational channel to the amplitude-linear one.
  733. `bmv_band_entanglement`: the band-robust falsifier. ANY four branch
  74   phases whose entangling invariant lands in `[1/2, 7/10]` give a
  75   non-product state; `clean_null_refutes_rs` is its model-point
  76   instantiation at the exact rational geometry values.
  774. `same_branch_phases_same_BMV_witness`: the non-discrimination
  78   disclosure. Any mediator model producing the same four branch phases
  79   yields the same amplitude matrix, determinant, and witness.
  805. `BMVFalsifierStatus`: documentation status record, including the
  81   permanent pillar-3 exclusion flag.
  82-/
  83
  84namespace IndisputableMonolith
  85namespace Gravity
  86namespace QuantumChannel
  87namespace BMVFalsifierBand
  88
  89noncomputable section
  90
  91/-! ## Section 1. Named experimental geometry and physical constants
  92
  93All values are exact rational literals in SI units so that `norm_num`
  94can certify every band without floating point or `native_decide`.
  95-/
  96
  97/-- CODATA Newtonian constant of gravitation,
  98`G = 6.674e-11 m^3 kg^-1 s^-2`, as the exact rational `6674 / 10^14`.
  99Provenance: CODATA recommended value, rounded to four significant
 100figures. MEASURED input, not an RS derivation. -/
 101def G_SI : ℝ := 6674 / 10 ^ 14
 102
 103/-- Reduced Planck constant `hbar = 1.055e-34 J s`, as the exact
 104rational `1055 / 10^37`. Provenance: CODATA (exact SI hbar is
 1051.054571817e-34 J s), rounded to four significant figures. MEASURED
 106input, not an RS derivation. -/
 107def hbar_SI : ℝ := 1055 / 10 ^ 37
 108
 109/-- MODEL: representative parallel two-interferometer geometry, mass 1.
 110`m1 = 1e-14 kg`, a Bose-et-al-2017-style microdiamond mass scale. -/
 111def m1_SI : ℝ := 1 / 10 ^ 14
 112
 113/-- MODEL: representative parallel two-interferometer geometry, mass 2.
 114`m2 = 1e-14 kg`, equal test masses. -/
 115def m2_SI : ℝ := 1 / 10 ^ 14
 116
 117/-- MODEL: representative parallel two-interferometer geometry,
 118interaction (coherence) time `T = 2.5 s`. -/
 119def T_SI : ℝ := 5 / 2
 120
 121/-- MODEL: representative parallel two-interferometer geometry,
 122branch-pair distance `r_LL = 250e-6 m` (the inter-interferometer
 123distance; the LL and RR pairs sit directly across from each other).
 124
 125Configuration note: `r_LL = r_RR = 250 um` with `r_LR = r_RL = 450 um`
 126violates the collinear-adjacent identity `r_LL + r_RR = r_LR + r_RL`,
 127so this is NOT the adjacent linear Bose et al. 2017 configuration. It
 128is realizable as the parallel two-interferometer BMV variant:
 129inter-interferometer distance `d = 250 um`, in-interferometer branch
 130separation `sqrt(450^2 - 250^2) um`, approximately `374 um`, so that
 131the cross pairs sit at `sqrt(d^2 + dx^2) = 450 um`. -/
 132def r_LL_SI : ℝ := 250 / 10 ^ 6
 133
 134/-- MODEL: representative parallel two-interferometer geometry,
 135branch-pair distance `r_RR = 250e-6 m` (directly-across pair; see the
 136configuration note on `r_LL_SI`). -/
 137def r_RR_SI : ℝ := 250 / 10 ^ 6
 138
 139/-- MODEL: representative parallel two-interferometer geometry,
 140branch-pair distance `r_LR = 450e-6 m` (diagonal cross pair; see the
 141configuration note on `r_LL_SI`). -/
 142def r_LR_SI : ℝ := 450 / 10 ^ 6
 143
 144/-- MODEL: representative parallel two-interferometer geometry,
 145branch-pair distance `r_RL = 450e-6 m` (diagonal cross pair; see the
 146configuration note on `r_LL_SI`). -/
 147def r_RL_SI : ℝ := 450 / 10 ^ 6
 148
 149/-! ## Section 2. The four weak-field branch phases and the invariant -/
 150
 151/-- The weak-field branch phase `phi_LL` at the named geometry. -/
 152def phase_LL : ℝ :=
 153  BMVPositive.weakFieldPhase G_SI hbar_SI m1_SI m2_SI T_SI r_LL_SI
 154
 155/-- The weak-field branch phase `phi_LR` at the named geometry. -/
 156def phase_LR : ℝ :=
 157  BMVPositive.weakFieldPhase G_SI hbar_SI m1_SI m2_SI T_SI r_LR_SI
 158
 159/-- The weak-field branch phase `phi_RL` at the named geometry. -/
 160def phase_RL : ℝ :=
 161  BMVPositive.weakFieldPhase G_SI hbar_SI m1_SI m2_SI T_SI r_RL_SI
 162
 163/-- The weak-field branch phase `phi_RR` at the named geometry. -/
 164def phase_RR : ℝ :=
 165  BMVPositive.weakFieldPhase G_SI hbar_SI m1_SI m2_SI T_SI r_RR_SI
 166
 167/-- The entangling invariant
 168`dPhi = (G m1 m2 T / hbar)(1/r_LL + 1/r_RR - 1/r_LR - 1/r_RL)`
 169evaluated at the named geometry, via the weak-field formula of
 170`BMVPositive`. -/
 171def deltaPhi : ℝ :=
 172  BMVPositive.weakFieldBranchInvariant G_SI hbar_SI m1_SI m2_SI T_SI
 173    r_LL_SI r_LR_SI r_RL_SI r_RR_SI
 174
 175/-- The `BMVPositive.branchPhaseInvariant` of the four named phases is
 176definitionally the weak-field invariant `deltaPhi`. -/
 177theorem branchPhaseInvariant_eq_deltaPhi :
 178    BMVPositive.branchPhaseInvariant phase_LL phase_LR phase_RL phase_RR
 179      = deltaPhi := rfl
 180
 181/-! ## Section 3. The certified value and band (THEOREM) -/
 182
 183/-- **Exact value.** At the named geometry the entangling invariant is
 184the exact rational `26696 / 47475`, approximately `0.562317` rad.
 185Kernel-checked rational arithmetic: the prefactor is
 186`G m1 m2 T / hbar = 16685 / 105500000 m = 1.5815e-4 m` (dimensions of
 187length: `[m^3 kg^-1 s^-2][kg][kg][s] / [kg m^2 s^-1] = m`) and the
 188geometric bracket is `2/(250e-6) - 2/(450e-6) = 32000/9 m^-1`. -/
 189theorem deltaPhi_eq_rat : deltaPhi = 26696 / 47475 := by
 190  unfold deltaPhi BMVPositive.weakFieldBranchInvariant
 191    BMVPositive.weakFieldPhase G_SI hbar_SI m1_SI m2_SI T_SI
 192    r_LL_SI r_LR_SI r_RL_SI r_RR_SI
 193  norm_num
 194
 195/-- Certified lower band edge: `1/2 <= deltaPhi`. -/
 196theorem deltaPhi_ge_half : (1 / 2 : ℝ) ≤ deltaPhi := by
 197  rw [deltaPhi_eq_rat]; norm_num
 198
 199/-- Certified upper band edge: `deltaPhi <= 7/10`. -/
 200theorem deltaPhi_le_seven_tenths : deltaPhi ≤ (7 / 10 : ℝ) := by
 201  rw [deltaPhi_eq_rat]; norm_num
 202
 203/-- Strict positivity of the invariant. -/
 204theorem deltaPhi_pos : (0 : ℝ) < deltaPhi := by
 205  rw [deltaPhi_eq_rat]; norm_num
 206
 207/-- The upper band edge is strictly below one period:
 208`7/10 < 2 pi` (using `3 < pi`). -/
 209theorem seven_tenths_lt_two_pi : (7 / 10 : ℝ) < 2 * Real.pi := by
 210  have h := Real.pi_gt_three
 211  linarith
 212
 213/-- The invariant is strictly inside the open period `(0, 2 pi)`. -/
 214theorem deltaPhi_lt_two_pi : deltaPhi < 2 * Real.pi :=
 215  lt_of_le_of_lt deltaPhi_le_seven_tenths seven_tenths_lt_two_pi
 216
 217/-- **Not congruent to zero mod 2 pi.** For every integer `n`, the
 218invariant differs from `n * (2 pi)`: the band `[1/2, 7/10]` excludes
 219`n <= 0` (those multiples are nonpositive) and `n >= 1` (those are at
 220least `2 pi > 6`). This is the formal content of "bounded away from 0
 221mod 2 pi". -/
 222theorem deltaPhi_not_congruent_zero (n : ℤ) :
 223    deltaPhi ≠ (n : ℝ) * (2 * Real.pi) := by
 224  intro h
 225  have hπ := Real.pi_gt_three
 226  have hlo := deltaPhi_ge_half
 227  have hhi := deltaPhi_le_seven_tenths
 228  rcases le_or_gt n 0 with hn | hn
 229  · have hn' : (n : ℝ) ≤ 0 := by exact_mod_cast hn
 230    have hmul : (n : ℝ) * (2 * Real.pi) ≤ 0 :=
 231      mul_nonpos_of_nonpos_of_nonneg hn' (by positivity)
 232    rw [h] at hlo
 233    linarith
 234  · have hn1 : (1 : ℝ) ≤ (n : ℝ) := by exact_mod_cast hn
 235    have hmul : 2 * Real.pi ≤ (n : ℝ) * (2 * Real.pi) :=
 236      le_mul_of_one_le_left (by positivity) hn1
 237    rw [h] at hhi
 238    linarith
 239
 240/-! ## Section 4. Target 1: the certified witness band (THEOREM) -/
 241
 242/-- **RS BMV witness band.** At the named representative geometry
 243(MODEL inputs of Section 1), the entangling invariant lies in the
 244certified band `0 < 1/2 <= deltaPhi <= 7/10 < 2 pi`, and consequently
 245the joint two-mass state is entangled: the branch amplitude matrix has
 246nonzero determinant (non-product state), by
 247`BMVPositive.entangled_of_branchPhase_in_open_period`.
 248
 249The band is THEOREM-grade (exact rational arithmetic, kernel checked);
 250the geometry itself is a MODEL choice. The witness magnitude is
 251`deltaPhi = 26696 / 47475`, approximately `0.562` rad. -/
 252theorem rs_bmv_witness_band :
 253    ((0 : ℝ) < 1 / 2 ∧ (1 / 2 : ℝ) ≤ deltaPhi ∧
 254      deltaPhi ≤ (7 / 10 : ℝ) ∧ (7 / 10 : ℝ) < 2 * Real.pi) ∧
 255    Matrix.det
 256      (BMVPositive.branchAmplitudeMatrix
 257        phase_LL phase_LR phase_RL phase_RR) ≠ 0 := by
 258  refine ⟨⟨by norm_num, deltaPhi_ge_half, deltaPhi_le_seven_tenths,
 259    seven_tenths_lt_two_pi⟩, ?_⟩
 260  apply BMVPositive.entangled_of_branchPhase_in_open_period
 261  · rw [branchPhaseInvariant_eq_deltaPhi]
 262    exact deltaPhi_pos
 263  · rw [branchPhaseInvariant_eq_deltaPhi]
 264    exact deltaPhi_lt_two_pi
 265
 266/-- Convenience extraction: the joint state at the named geometry is
 267entangled (nonzero determinant of the branch amplitude matrix). -/
 268theorem rs_bmv_geometry_entangled :
 269    Matrix.det
 270      (BMVPositive.branchAmplitudeMatrix
 271        phase_LL phase_LR phase_RL phase_RR) ≠ 0 :=
 272  rs_bmv_witness_band.2
 273
 274/-! ## Section 5. Target 2: the amplitude channel is the RS channel -/
 275
 276/-- **RS amplitude channel unique (honest composition).** The strongest
 277statement available from the existing Track 2.C/2.D modules that the RS
 278gravitational channel is the amplitude-linear one. Exact premises:
 279
 2801. Clauses 1 and 2 are conditional on a
 281   `NoClassicalMediator.T0T8ConsistentSubstrate`, which is by
 282   definition an `AmplitudeLinearForced.RecognitionCoupledFactorization`:
 283   the joint substrate is the binary tensor product
 284   `Signal8 (x)[C] Signal8`, the joint operator is `C`-linear and
 285   factorizes on pure tensors (the named factor-product STRUCTURAL
 286   hypothesis of Track 2.C), and the matter side equals the substrate
 287   recognition update `cyclic_shift` (the T0-T8 forcing-chain input).
 288   Under those premises the channel response is forced amplitude-linear
 289   (clause 1) and any density-only (CPTP-classical) response collapses
 290   to the zero response (clause 2). Source:
 291   `NoClassicalMediator.channel_forced_amplitude_linear_under_T0T8` and
 292   `NoClassicalMediator.no_classical_mediator_under_T0T8`.
 2932. Clause 3 replaces global pure-tensor factorization by the substrate
 294   measurement-access premise (`ArisesFromSubstrateAccess`: the channel
 295   response is a nonzero matter-section readout of a `C`-linear joint
 296   operator). Honesty disclosure: `SubstrateSemanticsUnconditional`
 297   proves `IsAmplitudeLinear R_C <-> EXISTS R_J,
 298   ArisesFromSubstrateAccess R_J R_C`, so this premise is provably
 299   equivalent to the conclusion; clause 3 is one direction of that iff
 300   and adds NO forcing content beyond the factor-product clauses 1-2.
 301   It is recorded because it is the semantic reading of
 302   amplitude-linearity used by the source modules, not as extra
 303   evidence. Source:
 304   `AmplitudeLinearForced.isAmplitudeLinear_channel_of_arisesFromSubstrateAccess`.
 305
 306This is a STRUCTURAL THEOREM, conditional exactly on the listed named
 307structural premises. Nothing new is axiomatized here; the unconditional
 308lift (arbitrary joint operators, no access principle) remains open in
 309the source modules and is not claimed. -/
 310theorem rs_amplitude_channel_unique :
 311    (∀ F : NoClassicalMediator.T0T8ConsistentSubstrate,
 312        AmplitudeLinearForced.IsAmplitudeLinear F.R_C) ∧
 313    (∀ F : NoClassicalMediator.T0T8ConsistentSubstrate,
 314        AmplitudeLinearForced.IsDensityOnly F.R_C →
 315          ∀ φ : AmplitudeLinearForced.Signal8, F.R_C φ = 0) ∧
 316    (∀ (R_J : AmplitudeLinearForced.JointSubstrate →ₗ[ℂ]
 317              AmplitudeLinearForced.JointSubstrate)
 318       (R_C : AmplitudeLinearForced.Signal8 →
 319              AmplitudeLinearForced.Signal8),
 320        AmplitudeLinearForced.ArisesFromSubstrateAccess R_J R_C →
 321          AmplitudeLinearForced.IsAmplitudeLinear R_C) :=
 322  ⟨NoClassicalMediator.channel_forced_amplitude_linear_under_T0T8,
 323   fun F hDen φ =>
 324     NoClassicalMediator.no_classical_mediator_under_T0T8 F hDen φ,
 325   fun _ _ hAccess =>
 326     AmplitudeLinearForced.isAmplitudeLinear_channel_of_arisesFromSubstrateAccess
 327       hAccess⟩
 328
 329/-! ## Section 6. Target 3: the falsifier floor (THEOREM) -/
 330
 331/-- **Band-robust falsifier (THEOREM).** ANY four branch phases whose
 332entangling invariant `phi_LL + phi_RR - phi_LR - phi_RL` lands in the
 333certified band `[1/2, 7/10]` produce a non-product joint state: the
 334branch amplitude matrix has nonzero determinant. This is the
 335experimentally meaningful form: the observed phases need not equal the
 336model-point rationals exactly; any measurement or model uncertainty
 337that keeps the invariant inside the band preserves the contradiction
 338with a measured product state. Follows from the open-period witness
 339`BMVPositive.entangled_of_branchPhase_in_open_period` since
 340`0 < 1/2` and `7/10 < 2 pi`. -/
 341theorem bmv_band_entanglement
 342    (φ_LL φ_LR φ_RL φ_RR : ℝ)
 343    (hlo : (1 / 2 : ℝ) ≤
 344      BMVPositive.branchPhaseInvariant φ_LL φ_LR φ_RL φ_RR)
 345    (hhi : BMVPositive.branchPhaseInvariant φ_LL φ_LR φ_RL φ_RR ≤
 346      (7 / 10 : ℝ)) :
 347    Matrix.det
 348      (BMVPositive.branchAmplitudeMatrix φ_LL φ_LR φ_RL φ_RR) ≠ 0 := by
 349  apply BMVPositive.entangled_of_branchPhase_in_open_period
 350  · linarith
 351  · have h := seven_tenths_lt_two_pi
 352    linarith
 353
 354/-- **Model-point instantiation of the falsifier.** This is the
 355band falsifier `bmv_band_entanglement` evaluated at the exact rational
 356model point: IF the observed branch phases equal the Newtonian
 357weak-field values at the named geometry EXACTLY (the four equality
 358hypotheses), THEN a measured product state (zero determinant, zero
 359entanglement witness) is a contradiction.
 360
 361Honest scope: because the hypotheses are exact equalities to the
 362rational model values, this instantiation has no direct experimental
 363content by itself (its proof is substitution into
 364`rs_bmv_geometry_entangled`); the experimentally meaningful statement
 365is the band-robust `bmv_band_entanglement` above. What a clean null
 366under controlled decoherence at this geometry and coherence time
 367formally refutes is the package {Newtonian weak-field phase model +
 368this geometry}. Extending that to "refutes the framework" requires the
 369unformalized MODEL/OPEN premise that the RS channel produces the
 370Newtonian weak-field phase magnitudes at this geometry; see the module
 371header. The invariant at the model point sits in `[1/2, 7/10]`,
 372bounded away from `0 mod 2 pi` (`deltaPhi_not_congruent_zero`), so the
 373determinant is provably nonzero (`rs_bmv_geometry_entangled`); within
 374the stated package there is no free parameter with which to soften the
 375null. -/
 376theorem clean_null_refutes_rs
 377    (φ_LL φ_LR φ_RL φ_RR : ℝ)
 378    (hLL : φ_LL = phase_LL) (hLR : φ_LR = phase_LR)
 379    (hRL : φ_RL = phase_RL) (hRR : φ_RR = phase_RR)
 380    (hNull :
 381      Matrix.det
 382        (BMVPositive.branchAmplitudeMatrix φ_LL φ_LR φ_RL φ_RR) = 0) :
 383    False := by
 384  subst hLL; subst hLR; subst hRL; subst hRR
 385  exact rs_bmv_geometry_entangled hNull
 386
 387/-! ## Section 7. Target 4: the non-discrimination disclosure -/
 388
 389/-- **Same branch phases, same BMV witness.** Any mediator model that
 390produces the same four branch phases yields the same amplitude matrix,
 391the same determinant, and the same entangling invariant. The witness is
 392a function of the phases alone. This trivial congruence is stated
 393explicitly so the ledger records WHY the BMV package cannot
 394discriminate RS from GR+QFT (or any other quantum mediator producing
 395the weak-field phases): it is why this package is permanently excluded
 396from the pillar-3 discriminator slot and serves only as the falsifier
 397floor. -/
 398theorem same_branch_phases_same_BMV_witness
 399    {φ_LL φ_LR φ_RL φ_RR ψ_LL ψ_LR ψ_RL ψ_RR : ℝ}
 400    (hLL : φ_LL = ψ_LL) (hLR : φ_LR = ψ_LR)
 401    (hRL : φ_RL = ψ_RL) (hRR : φ_RR = ψ_RR) :
 402    BMVPositive.branchAmplitudeMatrix φ_LL φ_LR φ_RL φ_RR
 403      = BMVPositive.branchAmplitudeMatrix ψ_LL ψ_LR ψ_RL ψ_RR ∧
 404    Matrix.det (BMVPositive.branchAmplitudeMatrix φ_LL φ_LR φ_RL φ_RR)
 405      = Matrix.det
 406          (BMVPositive.branchAmplitudeMatrix ψ_LL ψ_LR ψ_RL ψ_RR) ∧
 407    BMVPositive.branchPhaseInvariant φ_LL φ_LR φ_RL φ_RR
 408      = BMVPositive.branchPhaseInvariant ψ_LL ψ_LR ψ_RL ψ_RR := by
 409  subst hLL; subst hLR; subst hRL; subst hRR
 410  exact ⟨rfl, rfl, rfl⟩
 411
 412/-! ## Section 8. Target 5: status record -/
 413
 414/-- Status record for the BMV falsifier-band package. Honest reading:
 415the flags below are set by definition in `bmvFalsifierStatus`; the
 416`rfl` projection theorems only confirm the definition, they carry no
 417mathematical content. This structure is a documentation record; the
 418mathematics lives in the theorems above (`rs_bmv_witness_band`,
 419`bmv_band_entanglement`, `clean_null_refutes_rs`,
 420`rs_amplitude_channel_unique`, `same_branch_phases_same_BMV_witness`).
 421The `excluded_from_pillar3` flag records the permanent panel decision:
 422BMV entanglement cannot discriminate between quantum-mediator models
 423(`same_branch_phases_same_BMV_witness`), so it is a falsifier floor,
 424never a pillar-3 discriminator. -/
 425structure BMVFalsifierStatus where
 426  /-- `rs_bmv_witness_band`: certified band and entanglement witness. -/
 427  witness_band_certified : Bool
 428  /-- `rs_amplitude_channel_unique`: forcing theorems cited with exact
 429  premises. -/
 430  amplitude_channel_theorem_cited : Bool
 431  /-- `bmv_band_entanglement` and `clean_null_refutes_rs`: the
 432  falsifier is a named theorem (band-robust and model-point forms). -/
 433  falsifier_named : Bool
 434  /-- Permanent exclusion from the pillar-3 discriminator slot. -/
 435  excluded_from_pillar3 : Bool
 436
 437/-- The canonical status inhabitant: every flag is set `true` by
 438definition (documentation record, not a proof obligation). -/
 439def bmvFalsifierStatus : BMVFalsifierStatus where
 440  witness_band_certified := true
 441  amplitude_channel_theorem_cited := true
 442  falsifier_named := true
 443  excluded_from_pillar3 := true
 444
 445theorem bmvFalsifierStatus_witness_band_certified :
 446    bmvFalsifierStatus.witness_band_certified = true := rfl
 447
 448theorem bmvFalsifierStatus_amplitude_channel_theorem_cited :
 449    bmvFalsifierStatus.amplitude_channel_theorem_cited = true := rfl
 450
 451theorem bmvFalsifierStatus_falsifier_named :
 452    bmvFalsifierStatus.falsifier_named = true := rfl
 453
 454theorem bmvFalsifierStatus_excluded_from_pillar3 :
 455    bmvFalsifierStatus.excluded_from_pillar3 = true := rfl
 456
 457/-- All four status flags at once. Each `rfl` confirms the definition
 458of `bmvFalsifierStatus` only; see the structure docstring. -/
 459theorem bmvFalsifierStatus_all :
 460    bmvFalsifierStatus.witness_band_certified = true ∧
 461    bmvFalsifierStatus.amplitude_channel_theorem_cited = true ∧
 462    bmvFalsifierStatus.falsifier_named = true ∧
 463    bmvFalsifierStatus.excluded_from_pillar3 = true :=
 464  ⟨rfl, rfl, rfl, rfl⟩
 465
 466end
 467
 468end BMVFalsifierBand
 469end QuantumChannel
 470end Gravity
 471end IndisputableMonolith
 472

source mirrored from github.com/jonwashburn/shape-of-logic