mapElemType :: (IdentName -> IdentName) -> OMNodeType -> OMNodeType
mapElemType f (ElemType t) = ElemType $ f t
mapElemType :: (IdentName -> IdentName) -> OMNodeType -> OMNodeType
mapElemType f (ElemType t) = ElemType $ f t
mapElemType f (ElemType t) = ElemType $ f t