Move proof of least element into FiniteHeightLattice

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2025-07-26 13:16:22 +02:00
parent d99d4a2893
commit f5457d8841
4 changed files with 31 additions and 22 deletions
--- a/Isomorphism.agda
+++ b/Isomorphism.agda
@@ -68,6 +68,7 @@ module TransportFiniteHeight
        renaming (⊥ to ⊥₁; ⊤ to ⊤₁; bounded to bounded₁; longestChain to c)

    instance
+        fixedHeight : IsLattice.FixedHeight lB height
        fixedHeight = record
            { ⊥ = f ⊥₁
            ; ⊤ = f ⊤₁