From f77aeb6c4b25b381e897a4ab59c1008e34005404 Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Mon, 5 Dec 2022 14:43:50 +0000 Subject: refactor: rename MakeRawAlgebra -> MkRawAlgebra. --- src/Soat/FirstOrder/Algebra.idr | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'src/Soat/FirstOrder/Algebra.idr') diff --git a/src/Soat/FirstOrder/Algebra.idr b/src/Soat/FirstOrder/Algebra.idr index b8cbc0c..f002dec 100644 --- a/src/Soat/FirstOrder/Algebra.idr +++ b/src/Soat/FirstOrder/Algebra.idr @@ -12,20 +12,12 @@ public export 0 algebraOver : (sig : Signature) -> (U : sig.T -> Type) -> Type algebraOver sig x = {t : sig.T} -> (op : Op sig t) -> x ^ op.arity -> x t -public export 0 -algebraOver' : (sig : Signature) -> (U : sig.T -> Type) -> Type -algebraOver' sig x = {t : sig.T} -> (op : Op sig t) -> map x op.arity `ary` x t - public export record RawAlgebra (0 sig : Signature) where - constructor MakeRawAlgebra + constructor MkRawAlgebra 0 U : sig.T -> Type sem : sig `algebraOver` U -public export -MkRawAlgebra : (0 U : sig.T -> Type) -> (sem : sig `algebraOver'` U) -> RawAlgebra sig -MkRawAlgebra u sem = MakeRawAlgebra u (\o => uncurry (sem o)) - public export record RawAlgebraWithRelation (0 sig : Signature) where constructor MkRawAlgebraWithRelation -- cgit v1.2.3