okParent tc_name (ClassTyCon cls)            = tc_name == tyConName (classTyCon cls)
okParent tc_name (ClassTyCon cls)            = tc_name == tyConName (classTyCon cls)
okParent tc_name (ClassTyCon cls)            = tc_name == tyConName (classTyCon cls)