  33  resolutionType : Bool
  34  deriving DecidableEq, BEq, Repr, Fintype
  35
  36def neutralNarrative : NarrativeAssignment := ⟨false, false, false⟩
  37
  38def IsBookerStory (n : NarrativeAssignment) : Prop := n ≠ neutralNarrative
  39
  40instance (n : NarrativeAssignment) : Decidable (IsBookerStory n) := instDecidableNot
  41
  42/-- The 7 Booker stories = |F₂³\{0}|. -/
  43theorem booker_count :
  44    (Finset.univ.filter IsBookerStory).card = 7 := by decide
  45
  46inductive BookerStory where
  47  | overcomingMonster | ragsToRiches | theQuest | voyageAndReturn
  48  | comedy | tragedy | rebirth
  49  deriving DecidableEq, Repr, BEq, Fintype
  50
  51theorem bookerStoryCount : Fintype.card BookerStory = 7 := by decide
  52
  53theorem bookerCount_eq_F2cube_minus_one :
  54    Fintype.card BookerStory = 2^3 - 1 := by decide
  55
  56structure NarrativeStructureCert where
  57  three_axes : Fintype.card NarrativeAxis = 3
  58  seven_stories_via_decide : (Finset.univ.filter IsBookerStory).card = 7
  59  seven_booker_stories : Fintype.card BookerStory = 7
  60  count_eq_flip : Fintype.card BookerStory = 2^3 - 1
  61
  62def narrativeStructureCert : NarrativeStructureCert where
  63  three_axes := narrativeAxisCount
  64  seven_stories_via_decide := booker_count
  65  seven_booker_stories := bookerStoryCount
  66  count_eq_flip := bookerCount_eq_F2cube_minus_one

papers checked against this theorem

No papers in the current corpus map onto this theorem yet.