(Inherited-Facet-Value Slot-Cardinality
Calendar-Date
Timepoint.Day
1)
(=> (Calendar-Date ?T)
(And (Value-Cardinality ?T Timepoint.Day 1)
(Value-Cardinality ?T Timepoint.Month 1)
(Value-Cardinality ?T Timepoint.Year 1)))
(Inherited-Facet-Value Slot-Cardinality
Universal-Time-Spec
Timepoint.Day
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.Day $X $Y) (Day-Number $Y))
(=> (Timepoint.Day $X $Y) (Timepoint $X))
(Inherited-Facet-Value Same-Slot-Values
Proceedings-Paper-Reference
Ref.Day
(Compose Timepoint.Day
Doc.Publication-Date
Ref.Document))
(=> (Proceedings-Paper-Reference ?Ref)
(And (Value-Type ?Ref Ref.Document Proceedings)
(Minimum-Value-Cardinality ?Ref Ref.Author 1)
(Value-Cardinality ?Ref Ref.Title 1)
(Value-Cardinality ?Ref Ref.Booktitle 1)
(Same-Values ?Ref
Ref.Booktitle
(Compose Doc.Title Ref.Document))
(Same-Values ?Ref Ref.Secondary-Title Ref.Booktitle)
(Same-Values ?Ref Ref.Secondary-Author Ref.Editor)
(Same-Values ?Ref
Ref.Organization
(Compose Conf.Organization
Doc.Conference
Ref.Document))
(Same-Values ?Ref
Ref.Address
(Compose Conf.Address
Doc.Conference
Ref.Document))
(Same-Values ?Ref
Ref.Month
(Compose Timepoint.Month
Doc.Publication-Date
Ref.Document))
(Same-Values ?Ref
Ref.Day
(Compose Timepoint.Day
Doc.Publication-Date
Ref.Document))))