reserve x,y,Y,Z for set,
  L for LATTICE,
  l for Element of L;

theorem Th20:
  for L being upper-bounded antisymmetric non empty RelStr holds Top L is prime
by YELLOW_0:45;
