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

theorem Th70:
  p in CnCPC(X) & p => q in CnCPC(X) implies q in CnCPC(X)
proof
  assume that
A1: p in CnCPC(X) and
A2: p => q in CnCPC(X);
  T is CPC_theory & X c= T implies q in T
  proof
    assume that
A3: T is CPC_theory and
A4: X c= T;
A5: p => q in T by A2,A3,A4,Def20;
    p in T by A1,A3,A4,Def20;
    hence thesis by A3,A5;
  end;
  hence thesis by Def20;
end;
