TIME-UNIT denotes a unit of a time point.
(=> (Time-Point.Unit $X $Y) (Duration $Y)) (=> (Time-Point.Unit $X $Y) (Time-Point $X))