All VT constraints have a restricted form, specified by vt-constraint-sentence.
(Inherited-Facet-Value Slot-Value-Type
Vt-Component
Has-Constraint
Vt-Constraint)
(=> (Vt-Component ?Component)
(And (Value-Type ?Component Has-Constraint Vt-Constraint)
(Has-Parameter-Slot ?Component Component.Cost)
(Value-Type ?Component Component.Cost Cost-Quantity)
(Value-Cardinality ?Component Component.Cost 1)))