diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-05 15:17:32 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-05 15:17:32 +0000 |
| commit | 8e103a340a6c7d2751c0297ad4f01cd5c5a7da47 (patch) | |
| tree | 3117f6f490b916f846a740b905f12bf909cdb026 /src/Soat/SecondOrder/Algebra.idr | |
| parent | 580970d11a4e754c0c8e6f42c8312bffb1edc2db (diff) | |
refactor: rename Homomorphism -> (~>).
Diffstat (limited to 'src/Soat/SecondOrder/Algebra.idr')
| -rw-r--r-- | src/Soat/SecondOrder/Algebra.idr | 4 |
1 files changed, 3 insertions, 1 deletions
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 |