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 || r

⇒ absorpand-subset, initial=TList [TCon logic1.or [TCon logic1.and [TCon logic1.or [TVar "p",TVar "q"],TVar "p"],TCon logic1.and [TCon logic1.or [TVar "p",TVar "q"],TVar "r"]]]

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