theorem Th25:
  BCK-part(X) = the carrier of X
by Lm1;
