From 2a2eeeedbe4d7208d511580f7fed0e30d7f16076 Mon Sep 17 00:00:00 2001
From: Jacques Comeaux <jacquesrcomeaux@protonmail.com>
Date: Tue, 6 Jan 2026 10:20:03 -0600
Subject: Add functors from categories to preorders to setoids

---
 Preorder/Primitive/MonotoneMap.agda | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

(limited to 'Preorder')

diff --git a/Preorder/Primitive/MonotoneMap.agda b/Preorder/Primitive/MonotoneMap.agda
index 6a2224b..aad8f0f 100644
--- a/Preorder/Primitive/MonotoneMap.agda
+++ b/Preorder/Primitive/MonotoneMap.agda
@@ -18,14 +18,22 @@ record MonotoneMap {c₁ c₂ ℓ₁ ℓ₂ : Level} (P : Preorder c₁ ℓ₁)
     map : P.Carrier → Q.Carrier
     mono : {x y : P.Carrier} → x P.≲ y → map x Q.≲ map y
 
+  private
+    module P′ = Isomorphism P
+    module Q′ = Isomorphism Q
+
+  map-resp-≅ : {x y : P.Carrier} → x P′.≅ y → map x Q′.≅ map y
+  map-resp-≅ x≅y = let open P′._≅_ x≅y in record
+      { from = mono from
+      ; to = mono to
+      }
+
 -- Pointwise isomorphism of monotone maps
 
 module _ {c₁ c₂ ℓ₁ ℓ₂ : Level} {P : Preorder c₁ ℓ₁} {Q : Preorder c₂ ℓ₂} where
 
   private
-    module P where
-      open Preorder P public
-      open Isomorphism P public
+    module P = Preorder P
     module Q = Isomorphism Q
 
   open MonotoneMap using (map)
@@ -54,12 +62,3 @@ module _ {c₁ c₂ ℓ₁ ℓ₂ : Level} {P : Preorder c₁ ℓ₁} {Q : Preor
       }
 
   module ≃ = IsEquivalence ≃-isEquivalence
-
-  map-resp-≅ : (f : MonotoneMap P Q) {x y : P.Carrier} → x P.≅ y → map f x Q.≅ map f y
-  map-resp-≅ f x≅y = record
-      { from = mono from
-      ; to = mono to
-      }
-    where
-      open P._≅_ x≅y
-      open MonotoneMap f
-- 
cgit v1.2.3