Exercise logic.propositional.consequence

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

Derivation

Final term is not finished

q <-> s => (p /\ q /\ p /\ s) || (~(p /\ q) /\ ~(p /\ s))

⇒ logic.propositional.demorganand, initial=TList [TCon logic1.equivalent [TVar "q",TVar "s"]]

q <-> s => (p /\ q /\ p /\ s) || ((~p || ~q) /\ ~(p /\ s))

⇒ logic.propositional.demorganand

q <-> s => (p /\ q /\ p /\ s) || ((~p || ~q) /\ (~p || ~s))

⇒ absorpand-subset

q <-> s => (p /\ q /\ s) || ((~p || ~q) /\ (~p || ~s))