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