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))))