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 -> r)) || (q /\ (q -> r)) => p -> r

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

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

⇒ fakeabsorption

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