Mark.pos_map
constraint 'self = < visit_pos : 'a. ( 'env -> 'a -> 'a ) -> 'env -> ( 'a, 'm ) ed -> ( 'a, 'm ) ed.. >
method visit_pos : 'a. ( 'env -> 'a -> 'a ) -> 'env -> ( 'a, 'm ) ed -> ( 'a, 'm ) ed