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

theorem Th15:
  q in HP_TAUT implies p => q in HP_TAUT
proof
  q => (p => q) in HP_TAUT by Def10;
  hence thesis by Def10;
end;
