Convert.Simplified
val traditional2revised :
('token, 'semantic_value) traditional ->
('token * Stdlib.Lexing.position * Stdlib.Lexing.position, 'semantic_value)
revised
val revised2traditional :
('token * Stdlib.Lexing.position * Stdlib.Lexing.position, 'semantic_value)
revised ->
('token, 'semantic_value) traditional