Implies(Implies(p,Implies(q,r)), Implies(Implies(p,r),Implies(p,~q)))/