infix.ml
timere
1 2 3 4 5 let ( &&& ) a b = Time.inter [ a; b ] let ( ||| ) a b = Time.union [ a; b ] let ( %> ) (f1 : 'a -> 'b) (f2 : 'b -> 'c) : 'a -> 'c = fun x -> x |> f1 |> f2
1 2 3 4 5
let ( &&& ) a b = Time.inter [ a; b ] let ( ||| ) a b = Time.union [ a; b ] let ( %> ) (f1 : 'a -> 'b) (f2 : 'b -> 'c) : 'a -> 'c = fun x -> x |> f1 |> f2