diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-02 14:14:44 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-02 14:14:44 +0000 |
| commit | 2bd69bf893b7e1ebe4186639526451caf2083b12 (patch) | |
| tree | 9e6830a98da09c91e337b250aa0658caf4c26d69 /src/Data/Setoid/Indexed.idr | |
| parent | 45e9bbec72bf338306d446012f077e195439aed0 (diff) | |
Diffstat (limited to 'src/Data/Setoid/Indexed.idr')
| -rw-r--r-- | src/Data/Setoid/Indexed.idr | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Data/Setoid/Indexed.idr b/src/Data/Setoid/Indexed.idr index 7277932..db5fb07 100644 --- a/src/Data/Setoid/Indexed.idr +++ b/src/Data/Setoid/Indexed.idr @@ -40,5 +40,12 @@ public export (.index) x i = MkSetoid (x.U i) (x.relation i) (x.equivalence i) public export +(.reindex) : ISetoid b -> (f : a -> b) -> ISetoid a +(.reindex) x f = MkISetoid + (\i => x.U $ f i) + (\i => x.relation $ f i) + (\i => x.equivalence $ f i) + +public export isetoid : (a -> Type) -> ISetoid a isetoid u = MkISetoid u (\_ => Equal) (\_ => equiv) |