The universe of a relation is the set of all objects occurring in some list contained in that relation.
(<- (Universe ?R)
(If (Relation ?R)
(Setofall ?X
(Exists (?List)
(And (Member ?List ?R) (Item ?X ?List))))))