diff options
Diffstat (limited to 'src/Soat/FirstOrder/Algebra.idr')
| -rw-r--r-- | src/Soat/FirstOrder/Algebra.idr | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Soat/FirstOrder/Algebra.idr b/src/Soat/FirstOrder/Algebra.idr index f002dec..f0b23ea 100644 --- a/src/Soat/FirstOrder/Algebra.idr +++ b/src/Soat/FirstOrder/Algebra.idr @@ -19,8 +19,8 @@ record RawAlgebra (0 sig : Signature) where sem : sig `algebraOver` U public export -record RawAlgebraWithRelation (0 sig : Signature) where - constructor MkRawAlgebraWithRelation +record RawSetoidAlgebra (0 sig : Signature) where + constructor MkRawSetoidAlgebra raw : RawAlgebra sig 0 relation : IRel raw.U @@ -43,8 +43,8 @@ public export (.setoid) a = MkISetoid a.raw.U a.relation a.algebra.equivalence public export -(.rawWithRelation) : Algebra sig -> RawAlgebraWithRelation sig -(.rawWithRelation) a = MkRawAlgebraWithRelation a.raw a.relation +(.rawSetoid) : Algebra sig -> RawSetoidAlgebra sig +(.rawSetoid) a = MkRawSetoidAlgebra a.raw a.relation public export record IsHomomorphism |