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