reserve T, X, Y for Subset of MC-wff;
reserve p, q, r, s for Element of MC-wff;

theorem Th10:
  p in CnIPC(X) & p => q in CnIPC(X) implies q in CnIPC(X)
proof
  assume that
A1: p in CnIPC(X) and
A2: p => q in CnIPC(X);
  T is IPC_theory & X c= T implies q in T
  proof
    assume that
A3: T is IPC_theory and
A4: X c= T;
A5: p => q in T by A2,A3,A4,Def15;
    p in T by A1,A3,A4,Def15;
    hence thesis by A3,A5;
  end;
  hence thesis by Def15;
end;
