; Procedures to get the EntitiesDescriptor attributes
;  - the metadata about the metadata
; *TOP* -> EntitiesDescriptor -> @ -> ...
(define meta-meta
 (sxpath '(EntitiesDescriptor @)))

(define meta-meta/validUntil
  (cadar-of
    (sxpath '(validUntil))))

(define idp-entites
  ;(sxpath '("EntitiesDescriptor/EntityDescriptor[IDPSSODescriptor]")))
  (sxpath '(EntitiesDescriptor (EntityDescriptor(IDPSSODescriptor)))))