diff options
Diffstat (limited to 'src/Data/Morphism')
| -rw-r--r-- | src/Data/Morphism/Indexed.idr | 13 |
1 files changed, 13 insertions, 0 deletions
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) |