theorem Th22:
  X |-_IPC p => (q => (p '&' q)) by INTPRO_1:5;
