Infix.Extend
E : Interface.EXTEND
val (<<=) : ('a E.t -> 'b) -> 'a E.t -> 'b E.t
val (=>>) : 'a E.t -> ('a E.t -> 'b) -> 'b E.t