equal
deleted
inserted
replaced
338 by (rule udom.completion_approx_eq_principal) |
338 by (rule udom.completion_approx_eq_principal) |
339 |
339 |
340 |
340 |
341 subsection {* Universality of \emph{udom} *} |
341 subsection {* Universality of \emph{udom} *} |
342 |
342 |
343 defaultsort bifinite |
343 default_sort bifinite |
344 |
344 |
345 subsubsection {* Choosing a maximal element from a finite set *} |
345 subsubsection {* Choosing a maximal element from a finite set *} |
346 |
346 |
347 lemma finite_has_maximal: |
347 lemma finite_has_maximal: |
348 fixes A :: "'a::po set" |
348 fixes A :: "'a::po set" |