Implement constant analysis

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2025-01-05 19:38:55 -08:00
parent 9f2790c500
commit 33cc0f9fe9
3 changed files with 231 additions and 5 deletions
--- a/Lattice/AboveBelow.agda
+++ b/Lattice/AboveBelow.agda
@@ -321,7 +321,7 @@ module Plain (x : A) where
            ; isLattice = isLattice
            }

-    open IsLattice isLattice using (_≼_; _≺_; ≼-trans; ⊔-Monotonicˡ; ⊔-Monotonicʳ) public
+    open IsLattice isLattice using (_≼_; _≺_; ≼-trans; ≼-refl; ⊔-Monotonicˡ; ⊔-Monotonicʳ) public

    ⊥≺[x] : ∀ (x : A) → ⊥ ≺ [ x ]
    ⊥≺[x] x = (≈-refl , λ ())