theorem Th52:
  p is valid_IPC implies X |-_IPC p
proof
  assume A1: p is valid_IPC;
  IPC-Taut c= CnIPC(X) by INTPRO_1:16;
  hence thesis by A1;
end;
