From 242197f40bb7957625be1e5f0bfd325af6e06be4 Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Mon, 5 Dec 2022 14:47:03 +0000 Subject: refactor: rename RawAlgebraWithRelation. - RawAlgebraWithRelation -> RawSetoidAlgebra - MkRawAlgebraWithRelation -> MkRawSetoidAlgebra - rawWithRelation -> rawSetoid --- src/Soat/FirstOrder/Algebra.idr | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Soat/FirstOrder/Algebra.idr') 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 -- cgit v1.2.3