theorem Th23:
  X |-_IPC p => (p 'or' q) by INTPRO_1:6;
