MONTH-NUMBER deontes a month of a year.
(= (I-Upper-Bound Month-Number) 12) (= (I-Lower-Bound Month-Number) 1)
(=> (Time-Point.Month $X $Y) (Month-Number $Y))