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 Th73:
  X c= Y implies CnCPC(X) c= CnCPC(Y)
proof
  assume
A1: X c= Y;
  thus CnCPC(X) c= CnCPC(Y)
  proof
    let a be object;
    assume
A2: a in CnCPC(X);
    then reconsider t = a as Element of MC-wff;
    for T st T is CPC_theory & Y c= T holds t in T
    proof
      let T such that
A3:   T is CPC_theory and
A4:   Y c= T;
      X c= T by A1,A4;
      hence thesis by A2,A3,Def20;
    end;
    hence thesis by Def20;
  end;
end;
