let pp_alias = function
| Ident_alias (id, uri) -> sprintf "alias id \"%s\" = \"%s\"" id uri
| Symbol_alias (symb, instance, desc) ->
let pp_alias = function
| Ident_alias (id, uri) -> sprintf "alias id \"%s\" = \"%s\"" id uri
| Symbol_alias (symb, instance, desc) ->