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