diff options
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 |