Make auxillary definitions private

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-02-25 14:06:45 -08:00 · 2024-02-25 14:06:45 -08:00 · d280f5afdf
commit d280f5afdf
parent b96bac5518
1 changed files with 15 additions and 14 deletions
--- a/Isomorphism.agda
+++ b/Isomorphism.agda
@ -31,6 +31,7 @@ module TransportFiniteHeight
    open import Chain _≈₁_ ≈₁-equiv _≺₁_ ≺₁-cong using () renaming (Chain to Chain₁; done to done₁; step to step₁)
    open import Chain _≈₂_ ≈₂-equiv _≺₂_ ≺₂-cong using () renaming (Chain to Chain₂; done to done₂; step to step₂)

+    private
        f-Injective : Injective _≈₁_ _≈₂_ f
        f-Injective {x} {y} fx≈fy = ≈₁-trans (≈₁-sym (inverseʳ x)) (≈₁-trans (g-preserves-≈₂ fx≈fy) (inverseʳ y))