theorem
  (p => q) => (p => p) in HP_TAUT by Th14,Th15;
