IndisputableMonolith.Physics.OpticalTrapRegimesFromJCost

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Optical Trap Regimes from J-Cost — B15 Depth
   6
   7Five canonical optical-trapping regimes (= configDim D = 5):
   8  Rayleigh (particle ≪ λ, dipole), intermediate, Mie (particle ~ λ),
   9  ray optics (particle ≫ λ), quantum optical trap.
  10
  11Lean status: 0 sorry, 0 axiom.
  12-/
  13
  14namespace IndisputableMonolith.Physics.OpticalTrapRegimesFromJCost
  15
  16inductive TrapRegime where
  17  | rayleigh
  18  | intermediate
  19  | mie
  20  | rayOptics
  21  | quantumOptical
  22  deriving DecidableEq, Repr, BEq, Fintype
  23
  24theorem trapRegime_count : Fintype.card TrapRegime = 5 := by decide
  25
  26structure OpticalTrapCert where
  27  five_regimes : Fintype.card TrapRegime = 5
  28
  29def opticalTrapCert : OpticalTrapCert where
  30  five_regimes := trapRegime_count
  31
  32end IndisputableMonolith.Physics.OpticalTrapRegimesFromJCost
  33