theorem
  ((SCM-VAL G)*SCM-OK).d1 = the carrier of G by Th2;
