theorem
  n>0 implies [:free_magma(X,n),{n}:] c= free_magma_carrier X by Lm1;
