   (> [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))
 


(defn hence [dur]
  (+ (now) dur))

  (year [n] (Year/of n))

  LocalDate
  (time [d] (midnight d)) ; this helps iCalendar dates become intervals
  (date [d] d)
  (day [d] (.getDayOfWeek d))
  (day-of-month [d] (.getDayOfMonth d))
