Exercise logic.propositional.consequence

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

Derivation

Final term is not finished

(~p /\ q) || ((q -> r) /\ q) => p -> r

⇒ logic.propositional.defimpl, initial=TList [TCon logic1.or [TCon logic1.and [TCon logic1.not [TVar "p"],TVar "q"],TCon logic1.and [TCon logic1.implies [TVar "q",TVar "r"],TVar "q"]]]

(~p /\ q) || ((~q || r) /\ q) => p -> r

⇒ fakeabsorption

(~p /\ q) || (r /\ q) => p -> r