From 8e103a340a6c7d2751c0297ad4f01cd5c5a7da47 Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown01@ed.ac.uk>
Date: Mon, 5 Dec 2022 15:17:32 +0000
Subject: refactor: rename Homomorphism -> (~>).

---
 src/Soat/SecondOrder/Algebra.idr | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Soat/SecondOrder/Algebra.idr')

diff --git a/src/Soat/SecondOrder/Algebra.idr b/src/Soat/SecondOrder/Algebra.idr
index 475bdc0..0ab235b 100644
--- a/src/Soat/SecondOrder/Algebra.idr
+++ b/src/Soat/SecondOrder/Algebra.idr
@@ -8,6 +8,8 @@ import Soat.Data.Product
 import Soat.Data.Sublist
 import Soat.SecondOrder.Signature
 
+infix 5 ~>
+
 public export
 extend : (U : a -> List a -> Type) -> (ctx : List a) -> Pair (List a) a -> Type
 extend x ctx ty = x (snd ty) (fst ty ++ ctx)
@@ -153,7 +155,7 @@ record IsHomomorphism
          (b.raw.subst t ctx (f t ctx' tm) $ map (\t => f t ctx) tms)
 
 public export
-record Homomorphism {0 sig : Signature} (a, b : Algebra sig)
+record (~>) {0 sig : Signature} (a, b : Algebra sig)
   where
   constructor MkHomomorphism
   func : (t : sig.T) -> (ctx : List sig.T) -> a.raw.U t ctx -> b.raw.U t ctx
-- 
cgit v1.2.3