IndisputableMonolith.Astrophysics.GalaxyMorphologyTypesFromConfigDim

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Galaxy Morphology Types from configDim — Astronomy Depth
   6
   7Five canonical Hubble-sequence morphology types (= configDim D = 5):
   8  elliptical, lenticular, spiral, barred spiral, irregular.
   9
  10Lean status: 0 sorry, 0 axiom.
  11-/
  12
  13namespace IndisputableMonolith.Astrophysics.GalaxyMorphologyTypesFromConfigDim
  14
  15inductive GalaxyMorphology where
  16  | elliptical
  17  | lenticular
  18  | spiral
  19  | barredSpiral
  20  | irregular
  21  deriving DecidableEq, Repr, BEq, Fintype
  22
  23theorem galaxyMorphology_count :
  24    Fintype.card GalaxyMorphology = 5 := by decide
  25
  26structure GalaxyMorphologyCert where
  27  five_types : Fintype.card GalaxyMorphology = 5
  28
  29def galaxyMorphologyCert : GalaxyMorphologyCert where
  30  five_types := galaxyMorphology_count
  31
  32end IndisputableMonolith.Astrophysics.GalaxyMorphologyTypesFromConfigDim
  33