          (filtered-triple-seq))))
 
 (defrecord MediaVersion
-    [id type preset]
+    [id type preset rights]
   trio/PTripleSeq
   (triple-seq
     [_]
     (filtered-triple-seq
      {id
       {(:type rdf) type
-       (:references dcterms) preset}})))
+       (:references dcterms) preset
+       (:accessRights dcterms) rights}})))
 
 (defn make-user
   [{:keys [id type role created]

    :as   opts}]
  (map->RightsStatement (assoc opts :id id)))

(defn make-collection-with-rights
  [coll & rights]
  (let [coll   (make-collection coll)]
    (->> rights
         (reduce
          (fn [[coll rs] r]
            (let [r (make-rights-statement (assoc r :context (:id coll)))]
              [(update-in coll [:rights] conj (:id r))
               (conj rs r)]))
          [coll []])
         (apply cons))))

(defn make-image-version-preset
  [{:keys [id title restrict mime]

           type (:ImageVersion imago)}
    :as   opts}]
  (map->MediaVersion (assoc opts :id id :type type)))

(defn make-media-version-with-rights
  [v & rights]
  (-> v make-media-version (add-entity-rights rights)))
