 
 (s/def ::gbk? gbk?)
 (s/def ::gtf? gtf?)
+
 (s/def ::index? index?)
 (s/def ::bt1index? bt1index?)
+(s/def ::bowtie? (s/and ::index? ::bt1index?))
+(s/def ::starindex? starindex?)
+(s/def ::bowtie-or-star? (s/or :bowtie ::bowtie? :star ::starindex?))
 (s/def ::normgenes? normgenes?)
 
 (s/def ::ncid string?)

  [_ problem]
  (format "reference `%s` does not have a registered gtf"
          (-> problem :val :ncid)))
(p/defphraser index?
  [_ problem]
  (format "reference `%s` does not have a Bowtie-2 index"

  [_ problem]
  (format "reference `%s` does not have a Bowtie-1 index"
          (-> problem :val :ncid)))
(p/defphraser starindex?
  [_ problem]
  (format "reference `%s` does not have a STAR index"
          (-> problem :val :ncid)))

(p/defphraser normgenes?
  [_ problem]
  (format "reference `%s` does not have normalization genes registered"
