IndisputableMonolith.Chemistry.StereochemistryClassesFromConfigDim

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Stereochemistry Classes from configDim — Chemistry Depth
   6
   7Five canonical stereoisomer classes (= configDim D = 5):
   8  enantiomers, diastereomers, cis-trans (geometric), conformational,
   9  atropisomers.
  10
  11Lean status: 0 sorry, 0 axiom.
  12-/
  13
  14namespace IndisputableMonolith.Chemistry.StereochemistryClassesFromConfigDim
  15
  16inductive StereoClass where
  17  | enantiomers
  18  | diastereomers
  19  | cisTransGeometric
  20  | conformational
  21  | atropisomers
  22  deriving DecidableEq, Repr, BEq, Fintype
  23
  24theorem stereoClass_count : Fintype.card StereoClass = 5 := by decide
  25
  26structure StereochemistryCert where
  27  five_classes : Fintype.card StereoClass = 5
  28
  29def stereochemistryCert : StereochemistryCert where
  30  five_classes := stereoClass_count
  31
  32end IndisputableMonolith.Chemistry.StereochemistryClassesFromConfigDim
  33