theorem Th24:
  QuantNbr(VERUM(Al)) = QuantNbr(CQC_Sub([VERUM(Al),Sub]))
proof
  [VERUM(Al),Sub] is Al-Sub_VERUM by SUBSTUT1:def 19;
  hence thesis by SUBLEMMA:3;
end;
