(define event:consequent
  (rdf-node-reverse-accessor
   (string->uri
    "http://dig.csail.mit.edu/TAMI/2006/07/data-schema#antecedent")))

(list
(list
 (rdf-type-predicate "http://dig.csail.mit.edu/TAMI/2006/07/data-schema#Event")
 (lambda (node)
   (list
    (make-display-element
     "Consequent"
     "ts:Consequent"
     "http://dig...")
    (result->display-element (event:consequent node))))
 ))