Update with new changes to Agda

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>

Lattice/FiniteValueMap.agda

@@ -27,6 +27,7 @@ open import Data.List.Properties using (∷-injectiveʳ)
 open import Data.List.Relation.Unary.All using (All)
 open import Data.List.Relation.Unary.Any using (Any; here; there)
 open import Relation.Nullary using (¬_)
+open import Isomorphism using (IsInverseˡ; IsInverseʳ)
 
 open import Lattice.Map A B _≈₂_ _⊔₂_ _⊓₂_ ≡-dec-A lB
     using
@@ -105,8 +106,8 @@ module IterProdIsomorphism where
 
     -- The left inverse is: from (to x) = x
     from-to-inverseˡ : ∀ {ks : List A} (uks : Unique ks) →
-                      Inverseˡ (_≈ᵐ_ {ks}) (_≈ⁱᵖ_ {length ks})
-                               (from {ks}) (to {ks} uks)
+                      IsInverseˡ (_≈ᵐ_ {ks}) (_≈ⁱᵖ_ {length ks})
+                                 (from {ks}) (to {ks} uks)
     from-to-inverseˡ {[]} _ _ = IsEquivalence.≈-refl (IP.≈-equiv 0)
     from-to-inverseˡ {k ∷ ks'} (push k≢ks' uks') (v , rest)
         with ((fm' , ufm') , refl) ← to uks' rest in p rewrite sym p =
@@ -121,8 +122,8 @@ module IterProdIsomorphism where
     --
     -- The right inverse is: to (from x) = x
     from-to-inverseʳ : ∀ {ks : List A} (uks : Unique ks) →
-                       Inverseʳ (_≈ᵐ_ {ks}) (_≈ⁱᵖ_ {length ks})
-                                (from {ks}) (to {ks} uks)
+                       IsInverseʳ (_≈ᵐ_ {ks}) (_≈ⁱᵖ_ {length ks})
+                                  (from {ks}) (to {ks} uks)
     from-to-inverseʳ {[]} _ (([] , empty) , kvs≡ks) rewrite kvs≡ks =
         ( (λ k v ())
         , (λ k v ())

Lattice/Prod.agda

@@ -168,7 +168,7 @@ module _ (≈₁-dec : IsDecidable _≈₁_) (≈₂-dec : IsDecidable _≈₂_)
                                  ))
         ...   | no a₁̷≈a  | no b₁̷≈b | ((n₁ , n₂) , ((c₁ , c₂) , n≤n₁+n₂)) =
                 ((suc n₁ , suc n₂) , ( (step₁ (a₁≼a , a₁̷≈a) a≈a' c₁ , step₂ (b₁≼b , b₁̷≈b) b≈b' c₂)
-                                     , ≤-stepsˡ 1 (subst (n ≤_) (sym (+-suc n₁ n₂)) (+-monoʳ-≤ 1 n≤n₁+n₂))
+                                     , m≤n⇒m≤o+n 1 (subst (n ≤_) (sym (+-suc n₁ n₂)) (+-monoʳ-≤ 1 n≤n₁+n₂))
                                      ))
 
     fixedHeight : IsLattice.FixedHeight isLattice (h₁ + h₂)