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