'(= (Platform_Depth (Elevator.Platform ?X)) (Platform_Depth_Spec ?X))
(<= (Has-Constraint $X Platform_Depth_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Platform_Depth_C) (Used-In-Constraint Platform_Depth Platform_Depth_C) (Used-In-Constraint Platform_Depth_Spec Platform_Depth_C)