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

theorem
  p => VERUM in HP_TAUT by Th1,Th15;
