'(Member (Door_Opening_Strike_Side ?X) (Setof left right na))
(<= (Has-Constraint $X Door_Opening_Strike_Side_C) (Door_Model $X)) (Inherited-Slot-Value Door_Model Has-Constraint Door_Opening_Strike_Side_C) (Used-In-Constraint Door_Opening_Strike_Side Door_Opening_Strike_Side_C)