diff options
| -rw-r--r-- | src/Data/Setoid/Indexed.idr | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Data/Setoid/Indexed.idr b/src/Data/Setoid/Indexed.idr index df5606d..7277932 100644 --- a/src/Data/Setoid/Indexed.idr +++ b/src/Data/Setoid/Indexed.idr @@ -32,5 +32,13 @@ record ISetoid (a : Type) where equivalence : IEquivalence U relation public export +fromIndexed : (a -> Setoid) -> ISetoid a +fromIndexed x = MkISetoid (\i => (x i).U) (\i => (x i).relation) (\i => (x i).equivalence) + +public export +(.index) : ISetoid a -> a -> Setoid +(.index) x i = MkSetoid (x.U i) (x.relation i) (x.equivalence i) + +public export isetoid : (a -> Type) -> ISetoid a isetoid u = MkISetoid u (\_ => Equal) (\_ => equiv) |