CardinalitySpectrumCert

formal source

 116theorem rsSpectrum_bounded : ∀ n ∈ rsSpectrum, n ≤ 3125 := by
 117  decide
 118
 119structure CardinalitySpectrumCert where
 120  Dspatial_is_3 : Dspatial = 3
 121  Dconfig_is_5 : Dconfig = 5
 122  gap_as_D : gap45 = Dspatial^2 * Dconfig
 123  eightTick_as_D : eightTick = 2 ^ Dspatial
 124  cubeFaces_as_D : cubeFaces = twoFace * Dspatial
 125  full_turn : (360 : ℕ) = eightTick * gap45
 126  choose_central : (70 : ℕ) = Nat.choose 8 4
 127  D_cubed : (125 : ℕ) = Dconfig^3
 128  D_fifth : (3125 : ℕ) = Dconfig^5
 129  spectrum_length : rsSpectrum.length = 20
 130  spectrum_pairwise : rsSpectrum.Pairwise (· < ·)
 131  spectrum_bounded : ∀ n ∈ rsSpectrum, n ≤ 3125
 132
 133def cardinalitySpectrumCert : CardinalitySpectrumCert where
 134  Dspatial_is_3 := rfl
 135  Dconfig_is_5 := rfl
 136  gap_as_D := gap45_eq
 137  eightTick_as_D := eightTick_eq
 138  cubeFaces_as_D := cubeFaces_eq
 139  full_turn := threeSixty_is_tick_gap
 140  choose_central := seventy_is_choose_8_4
 141  D_cubed := oneTwentyFive_is_Dcubed
 142  D_fifth := threeOne25_is_D_fifth
 143  spectrum_length := rsSpectrum_length
 144  spectrum_pairwise := rsSpectrum_pairwise_lt
 145  spectrum_bounded := rsSpectrum_bounded
 146
 147end IndisputableMonolith.CrossDomain.CardinalitySpectrum