
theorem

:: Corollary 2.13, p. 62, (kernel --> congruence --> kernel)
  for L being continuous complete LATTICE, R being non empty Subset of
[:L, L:] st R is CLCongruence holds R = kernel_congruence kernel_op R by Th36;
