theorem Th19:
  X |-_IPC (p => (q => r)) => ((p => q) => (p => r))
    by INTPRO_1:2;
