TIME-POINT.DAY-NAME denotes a name of a day of a time point.
(=> (Time-Point.Day-Name $X $Y) (Day-Name $Y)) (=> (Time-Point.Day-Name $X $Y) (Time-Point $X))