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

theorem
  for U0 being with_const_op strict Universal_Algebra holds Top (
  UnSubAlLattice(U0)) = U0
proof
  let U0 be with_const_op strict Universal_Algebra;
A1: U0 is strict SubAlgebra of U0 by UNIALG_2:8;
  the carrier of U0 c= the carrier of U0;
  then reconsider H = the carrier of U0 as Subset of U0;
  thus Top (UnSubAlLattice(U0)) = GenUnivAlg(H) by Th21
    .= U0 by A1,UNIALG_2:19;
end;
