theorem
  free_magma(X,1) = X by Def13;
