From b21e69503571272a5f35cf84c731994f3e921a3a Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown01@ed.ac.uk>
Date: Tue, 29 Nov 2022 14:36:13 +0000
Subject: Move indexed setoids and functions out of Soat.

---
 src/Data/Morphism/Indexed.idr | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/Data/Morphism/Indexed.idr

(limited to 'src/Data/Morphism')

diff --git a/src/Data/Morphism/Indexed.idr b/src/Data/Morphism/Indexed.idr
new file mode 100644
index 0000000..c271c90
--- /dev/null
+++ b/src/Data/Morphism/Indexed.idr
@@ -0,0 +1,13 @@
+module Data.Morphism.Indexed
+
+import Data.Setoid.Indexed
+
+public export
+IFunc : {a : Type} -> (x, y : a -> Type) -> Type
+IFunc {a} x y = (i : a) -> x i -> y i
+
+public export
+record IFunction {a : Type} (x, y : ISetoid a) where
+  constructor MkIFunction
+  func : IFunc x.U y.U
+  cong : (i : a) -> {u, v : x.U i} -> x.relation i u v -> y.relation i (func i u) (func i v)
-- 
cgit v1.2.3