concrete RelativeKis of Relative = CatKis ** RelativeBantu with (ResBantu = ResKis);