module manual-suite
language Spoofax-Propositional-Language

test sec4_2_test3 [[
  (r -> p & q) & p
]] run dnf to Atom("x")

test sec4_2_test3_ex [[
  (r -> p & q) & p
]] run dnf to Or(And(Not(Atom("r")),Atom("p")),And(And(Atom("p"),Atom("q")),Atom("p")))

test sec5_1_2_test1_ex [[
  (r -> p & q) & p
]] run dnf3 to Or(And(Not(Atom("r")),Atom("p")),And(And(Atom("p"),Atom("q")),Atom("p")))

test sec5_1_2_test1_cnf_ex [[
  (r -> p & q) & p
]] run cnf3 to And(And(Or(Not(Atom("r")), Atom("p")),
                       Or(Not(Atom("r")), Atom("q"))),
                   Atom("p"))

test sec5_1_2_test1_both_ex [[
  (r -> p & q) & p
]] run dcnf to (Or(And(Not(Atom("r")),Atom("p")),And(And(Atom("p"),Atom("q")),Atom("p"))),
                And(And(Or(Not(Atom("r")), Atom("p")),
                        Or(Not(Atom("r")), Atom("q"))),
                    Atom("p")))