Exercise logic.propositional.consequence

Description
Prove that formula is a logical consequence of a set of formulas

Derivation

Final term is not finished
q => ((p /\ q /\ p) || ~(p /\ q)) /\ ((p /\ q /\ p) || ~p)
logic.propositional.genoroverand, initial=TList [TVar "q"]
q => ((p /\ q /\ p) || ~(p /\ q)) /\ (p || ~p) /\ (q || ~p) /\ (p || ~p)
logic.propositional.complor
q => ((p /\ q /\ p) || ~(p /\ q)) /\ T /\ (q || ~p) /\ (p || ~p)
logic.propositional.complor
q => ((p /\ q /\ p) || ~(p /\ q)) /\ T /\ (q || ~p) /\ T
logic.propositional.truezeroand
q => ((p /\ q /\ p) || ~(p /\ q)) /\ (q || ~p) /\ T
logic.propositional.truezeroand
q => ((p /\ q /\ p) || ~(p /\ q)) /\ (q || ~p)
absorpand-subset
q => ((p /\ q) || ~(p /\ q)) /\ (q || ~p)