theorem Th25:
  X |-_IPC (p => r) => ((q => r) => ((p 'or' q) => r)) by INTPRO_1:8;
