theorem Th51:
  X|-_IPC p implies X|-_IPC q => p
proof
  assume
A1: X |-_IPC p;
  X|-_IPC p => (q => p) by INTPRO_1:1;
  hence thesis by A1,INTPRO_1:10;
end;
