               :default (fn [_] (utils/timestamp))}
    :modified {:prop (:modified dcterms)
               :validate [(v/number) (v/pos)]
-              :init (fn [{:keys [modified]}]
-                      (if (coll? modified)
-                        (last (sort modified))
-                        modified))
-              :default (fn [_] (utils/timestamp))}
+              :default (fn [_] [(utils/timestamp)])
+              :card :*
+              :order :asc}
    :repo     {:prop (:isPartOf dcterms)
               :validate [(v/uuid4)]
               :init (pick-id :repo)}
    :rights   {:prop (:accessRights dcterms)
-              :init (pick-id-coll :rights)
               :default (fn [_] [])
               :validate {:* [(v/uuid4)]}
               :card :*}
    :media    {:prop (:hasPart dcterms)
-              :init (pick-id-coll :media)
-              :default (fn [_] [])
               :validate {:* [(v/uuid4)]}
               :optional true
               :card :*}
    :presets  {:prop (:usesPreset imago)
-              :init (pick-id-coll :presets)
-              :default (fn [_] [])
-              :validate {:* [(v/uuid4)]}
+              :validate [(v/uuid4)]
               :card :*}})
 
 (defentity RightsStatement (:RightsStatement dctypes)

        dctor-as2   (symbol (str 'describe-as- ctor-name '2))
        mctor      (symbol (str 'map-> name))]
    `(let [validators# (build-validators ~props)
           defaults#   (extract-key ~props :default)
           inits#      (extract-key ~props :init)]
       ;;(prn "-------- " ~type)
       ;;(prn :props props)
       ;;(prn :fields fields)
       ;;(prn :validators validators#)
       ;;(prn :inits inits)
       ;;(prn :defaults defaults)
       (defrecord ~name [~@fields]
         trio/PTripleSeq
         (~'triple-seq

                  :validate [(v/string)]
                  :default (fn [_] "Untitled")}
   :creator      {:prop (:creator dcterms)
                  :validate [(v/uuid4)]
                  :init (pick-id :user)
                  :optional true}
   :contributors {:prop (:contributor dcterms)
                  :validate [(v/uuid4)]
                  :card :*
                  :optional true}
   :publisher    {:prop (:publisher dcterms)
                  :validate [(v/uuid4)]
                  :init (pick-id :publisher)}
