   (> [x y] (.isAfter x y))
   (>= [x y] (not (.isBefore x y))))
 
-(defprotocol ITimeArithmetic
-  (+ [_ _] "Add time")
-  (- [_ _] "Subtract time")
-  (inc [_] "Increment time")
-  (dec [_] "Decrement time")
-  (maximum [_ _] "Return maximum")
-  (minimum [_ _] "Return minimum"))
-
 (defn max [arg & args]
   (reduce #(maximum %1 %2) arg args))
 


;; adjust


;; Conversions

;; Ago/hence

  LocalDate
  (at [date t] (.atTime date (time t))))

;; Not sure about at-zone - perhaps in-zone, as-global, etc.

(defprotocol IAtZone
  (at-zone [t zone] "Put time at zone")
