module Debate.Arguments.VeganSocietyReductio exposing (..)

import Debate.Types exposing (..)


argumentVeganSocietyReductio : Argument
argumentVeganSocietyReductio =
    { argumentTitle = "Vegan Society Definition Reductio"
    , propositionTitle = "It is vegan to eat Groot."
    , propositionReductio = ""
    , propositionSummary = "Summary"
    , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4~3Qx)),(~6x~6y(~3Rx~5~3Q(e(y)))),(~3Rg)%7C=(P(e(g)))"
    , argumentCertainty = 10
    , argumentImage = "vegansociety"
    , definitionTable =
        [ { definiendum = "P(x)"
          , definiens = "it is vegan to do (x)"
          }
        , { definiendum = "Q(x,y)"
          , definiens = "(x) exploits (y)"
          }
        , { definiendum = "R(x)"
          , definiens = "(x) is an animal"
          }
        , { definiendum = "x"
          , definiens = "a being"
          }
        , { definiendum = "y"
          , definiens = "an animal"
          }
        , { definiendum = "e"
          , definiens = "eat"
          }
        , { definiendum = "g"
          , definiens = "Groot"
          }
        ]
    , argumentFormalization =
        [ { premises =
                [ { premise = "For all things, it is vegan to do something if, and only if, that thing does not exploit animals."
                  , notation = "∀x(Px↔¬Qx)"
                  }
                , { premise = "If some beings are not animals, then eating those beings does not exploit animals."
                  , notation = "∀x∀y(¬Rx→¬Q(e(y)))"
                  }
                , { premise = "Groot is not an animal."
                  , notation = "¬Rg"
                  }
                ]
          , conclusion = "Therefore, it is vegan to eat Groot."
          , conclusionNotation = "P(e(g))"
          }
        ]
    }