theorem
  (p => q) => ('not'(q '&' r) => 'not' (p '&' r)) in TAUT(Al)
proof
  TAUT(Al) is being_a_theory by Th11;
  hence thesis;
end;
