Each author of a document is identified by an author-name. Although an author can have several pennames, the author only gets to use one of them for a particular document.
(=> (Doc.Author-Name ?Doc ?Name)
(Exists (?Author)
(And (Doc.Author ?Doc ?Author)
(Doc.Author.Name ?Doc ?Author ?Name))))