diff --git a/library/algebra/complete_lattice.lean b/library/algebra/complete_lattice.lean index 3c3e196d7..82f321b37 100644 --- a/library/algebra/complete_lattice.lean +++ b/library/algebra/complete_lattice.lean @@ -90,7 +90,7 @@ Sup_le (take x, suppose x ∈ '{a, b}, end complete_lattice_Inf -- Every complete_lattice_Inf is a complete_lattice_Sup -definition complete_lattice_Inf_to_complete_lattice_Sup [instance] [C : complete_lattice_Inf A] : complete_lattice_Sup A := +definition complete_lattice_Inf_to_complete_lattice_Sup [C : complete_lattice_Inf A] : complete_lattice_Sup A := ⦃ complete_lattice_Sup, C ⦄ -- Every complete_lattice_Inf is a complete_lattice @@ -113,12 +113,15 @@ le_Sup h end complete_lattice_Sup -- Every complete_lattice_Sup is a complete_lattice_Inf -definition complete_lattice_Sup_to_complete_lattice_Inf [instance] [C : complete_lattice_Sup A] : complete_lattice_Inf A := +definition complete_lattice_Sup_to_complete_lattice_Inf [C : complete_lattice_Sup A] : complete_lattice_Inf A := ⦃ complete_lattice_Inf, C ⦄ -- Every complete_lattice_Sup is a complete_lattice +section +local attribute complete_lattice_Sup_to_complete_lattice_Inf [instance] definition complete_lattice_Sup_to_complete_lattice [instance] [C : complete_lattice_Sup A] : complete_lattice A := _ +end namespace complete_lattice variable [C : complete_lattice A]