fix(library/algebra/complete_lattice): avoid looping instances
This commit is contained in:
parent
4787cf179e
commit
65d7c05737
1 changed files with 5 additions and 2 deletions
|
@ -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]
|
||||
|
|
Loading…
Reference in a new issue