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