concrete RelativeTur of Relative = CatTur ** open ResTur in {

lin
  RelCl = variants {} ;
  RelVP = variants {} ;
  RelSlash = variants {} ;

  FunRP = variants {} ;
  IdRP = variants {} ;
  
}