sig val map : Mapper.mapper -> Syntax.unit_ -> Syntax.unit_ end