(<= (Has-Parameter-Slot $X Counterweight_Guard_Thickness)
(Counterweight_Guard_Required $X))
(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Counterwtguard
Counterweight_Guard_Required)
(=> (Elevator.Counterwtguard $X $Y)
(Counterweight_Guard_Required $Y))