'(= (Opening_To_Hoistway_Right ?X) (- (Hoistway_Width ?X) (+ (Opening_Width_Door ?X) (Opening_To_Hoistway_Left ?X))))
(<= (Has-Constraint $X Opening_To_Hoistway_Right_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Opening_To_Hoistway_Right_C) (Used-In-Constraint Opening_Width_Door Opening_To_Hoistway_Right_C) (Used-In-Constraint Hoistway_Width Opening_To_Hoistway_Right_C) (Used-In-Constraint Opening_To_Hoistway_Left Opening_To_Hoistway_Right_C) (Used-In-Constraint Opening_To_Hoistway_Right Opening_To_Hoistway_Right_C)