theorem
  X |- p => ('not' p => q)
by Th4;
