concrete RelativeKam of Relative = CatKam ** RelativeBantu with (ResBantu = ResKam);