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.absorpand, initial=TList [TCon logic1.not [TVar "q"]]
~q => (p || ~(p || q)) /\ (((p || q) /\ p) || ~p)
logic.propositional.absorpand
~q => (p || ~(p || q)) /\ (p || ~p)
logic.propositional.complor
~q => (p || ~(p || q)) /\ T