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) /\ ~p) || ((~p || q) /\ r) => (p /\ q) <-> (p /\ r)
absorpand-subset, initial=TList [TCon logic1.or [TCon logic1.and [TCon logic1.or [TCon logic1.not [TVar "p"],TVar "q"],TCon logic1.not [TVar "p"]],TCon logic1.and [TCon logic1.or [TCon logic1.not [TVar "p"],TVar "q"],TVar "r"]]]
~p || ((~p || q) /\ r) => (p /\ q) <-> (p /\ r)