IndisputableMonolith.Chemistry.ReactionMechanismsFromConfigDim

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Organic Reaction Mechanisms from configDim — Chemistry Depth
   6
   7Five canonical core organic reaction mechanisms (= configDim D = 5):
   8  SN1 (unimolecular substitution), SN2 (bimolecular substitution),
   9  E1 (unimolecular elimination), E2 (bimolecular elimination),
  10  pericyclic (concerted, orbital-symmetry-controlled).
  11
  12Lean status: 0 sorry, 0 axiom.
  13-/
  14
  15namespace IndisputableMonolith.Chemistry.ReactionMechanismsFromConfigDim
  16
  17inductive ReactionMechanism where
  18  | sn1
  19  | sn2
  20  | e1
  21  | e2
  22  | pericyclic
  23  deriving DecidableEq, Repr, BEq, Fintype
  24
  25theorem reactionMechanism_count :
  26    Fintype.card ReactionMechanism = 5 := by decide
  27
  28structure ReactionMechanismsCert where
  29  five_mechanisms : Fintype.card ReactionMechanism = 5
  30
  31def reactionMechanismsCert : ReactionMechanismsCert where
  32  five_mechanisms := reactionMechanism_count
  33
  34end IndisputableMonolith.Chemistry.ReactionMechanismsFromConfigDim
  35