reserve T, X, Y for Subset of HP-WFF;
reserve p, q, r, s for Element of HP-WFF;

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