Prove that the 'join' transformation is monotonic

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-03-09 23:06:47 -08:00
parent 1b1b80465c
commit f84a1c923c
4 changed files with 78 additions and 15 deletions
--- a/Lattice.agda
+++ b/Lattice.agda
@@ -124,7 +124,7 @@ module _ {a} {A : Set a}
    open IsSemilattice lA using (_≼_)

    id-Mono : Monotonic _≼_ _≼_ (λ x → x)
-    id-Mono a₁≼a₂ = a₁≼a₂
+    id-Mono {a₁} {a₂} a₁≼a₂ = a₁≼a₂

 module _ {a b} {A : Set a} {B : Set b}
         {_≈₁_ : A → A → Set a} {_⊔₁_ : A → A → A}