'(Member (Door_Opening_Strike_Side_Spec ?X) (Setof left right))
(<= (Has-Constraint $X Door_Opening_Strike_Side_Spec_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Door_Opening_Strike_Side_Spec_C) (Used-In-Constraint Door_Opening_Strike_Side_Spec Door_Opening_Strike_Side_Spec_C)