theorem Th18:
  X |-_IPC p => (q => p) by INTPRO_1:1;
