'(Member (Door_Speed_Code ?X) (Setof ss 2s))
(<= (Has-Constraint $X Door_Speed_Code_C04) (Door_Model $X)) (Inherited-Slot-Value Door_Model Has-Constraint Door_Speed_Code_C04) (Used-In-Constraint Door_Speed_Code Door_Speed_Code_C04)
2s should be
2s for consistency