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;
