Constant MATH_PROP_LOGIC
Source pub const MATH_PROP_LOGIC: &str = r#"-- Propositional Logic Types
-- Encoding logical connectives as types
Inductive MyProp :=
PTrue : MyProp
| PFalse : MyProp
| PAnd : MyProp -> MyProp -> MyProp
| POr : MyProp -> MyProp -> MyProp
| PNot : MyProp -> MyProp.
-- Some example propositions
Definition p1 : MyProp := PTrue.
Definition p2 : MyProp := PFalse.
Definition p3 : MyProp := PAnd PTrue PTrue.
Definition p4 : MyProp := POr PTrue PFalse.
Definition p5 : MyProp := PNot PFalse.
-- Check and evaluate
Check p3.
Check p4.
Check p5.
Eval p3.
Eval p4.
Eval p5.
"#;