reserve U0 for Universal_Algebra,
  U1 for SubAlgebra of U0,
  o for operation of U0;

theorem
  for U0 being with_const_op Universal_Algebra holds the carrier of
  UnSubAlLattice(U0) = Sub(U0);
