reserve X for BCI-algebra;
reserve X1 for non empty Subset of X;
reserve A,I for Ideal of X;
reserve x,y,z for Element of X;
reserve a for Element of A;
reserve X for BCK-algebra;

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