Convert.Simplifiedval traditional2revised :
('token, 'semantic_value) traditional ->
('token * Lexing.position * Lexing.position, 'semantic_value) revisedval revised2traditional :
('token * Lexing.position * Lexing.position, 'semantic_value) revised ->
('token, 'semantic_value) traditional