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