;; Check that the rid attribute of every figref element
;; points to a fig element.

(=> (select-each x
		 (referent (attribute (q-element 'figref) "RID"))
		 (not (match-element? 'fig x)))
    (node-list-error (current-node)
		     "rid attribute of figref must point to fig element"))