(Inherited-Facet-Value Slot-Cardinality
Universal-Time-Spec
Timepoint.Seconds
1)
(=> (Universal-Time-Spec ?T)
(And (Value-Cardinality ?T Timepoint.Seconds 1)
(Value-Cardinality ?T Timepoint.Minutes 1)
(Value-Cardinality ?T Timepoint.Day 1)
(Value-Cardinality ?T Timepoint.Month 1)
(Value-Cardinality ?T Timepoint.Year 1)))
(=> (Timepoint.Seconds $X $Y) (Integer $Y))
(=> (Timepoint.Seconds $X $Y) (Timepoint $X))
(=> (= (Timepoint.Seconds ?Timepoint) ?Seconds) (=< ?Seconds 59))
(=> (= (Timepoint.Seconds ?Timepoint) ?Seconds) (=< 0 ?Seconds))