Mixfix operators

This commit is contained in:
2024-11-09 22:11:58 -08:00
parent 6abd97ee85
commit 91bb79a998
13 changed files with 250 additions and 44 deletions

View File

@@ -157,6 +157,6 @@ map f Nil = Nil
map f (x :: xs) = f x :: map f xs
infixl 9 _._
_._ : {A B C : U} -> (B -> C) -> (A -> B) -> A -> C
infixl 9 __
__ : {A B C : U} -> (B -> C) -> (A -> B) -> A -> C
(f . g) x = f ( g x)