   (let [t1 (t/beginning (t/temporal-value v1))
         t2 (t/end (t/temporal-value v2))]
     (if (t/< t1 t2)
-      (->Interval t1 t2)
+      {:tick/beginning t1
+       :tick/end t2}
       (throw (ex-info "Interval must span between two times, the first must be before the second" {})))))
 
 ;; Adjustments

  (<= [x y] (t/<= (as-interval x) (as-interval y)))
  (> [x y] (t/> (as-interval x) (as-interval y)))
  (>= [x y] (t/>= (as-interval x) (as-interval y)))
  Interval
  (< [x y] (#{precedes? meets?} (basic-relation x y)))
  (<= [x y] (#{precedes? meets? equals? starts? overlaps? finished-by?} (basic-relation x y)))
  (> [x y] (#{preceded-by? met-by?} (basic-relation x y)))

  (divide [n d] (divide-interval d n))
  YearMonth
  (divide [n d] (divide-interval d n))
  clojure.lang.APersistentMap
  (divide [ival o] (divide-interval o ival)))

;; Grouping (similar to Division)
