concrete RelativeHun of Relative = CatHun ** open
  ResHun, Prelude, (NS=NounHun), (SS=StructuralHun) in {

lin
  --  : Cl -> RCl ;            -- such that John loves her
  -- RelCl cl = ;

  -- : RP -> VP -> RCl ;
  RelVP = relVP ;

  -- : RP -> ClSlash -> RCl ; -- whom John loves
  RelSlash = relSlash ;

  -- : RP ;
  IdRP = {s =
    table {
      Human =>
        table {Sg => caseTable "aki" "akit" "akinek"      -- nom, acc, dat
                               "akibe"  "akiben" "akiből" -- ill, ine, ela
                               "akihez" "akinél" "akitől" -- all, ade, abl
                               "akire"  "akin"   "akiről" -- sub, sup, del
                               "akiért" "akivel" "akivé" ; -- cau, ins, tra
               Pl => caseTable "akik" "akiket" "akiknek"      -- nom, acc, dat
                               "akikbe"  "akikben" "akikből"  -- ill, ine, ela
                               "akikhez" "akiknél" "akiktől"  -- all, ade, abl
                               "akikre"  "akiken"  "akikről"  -- sub, sup, del
                               "akikért" "akikkel" "akikké"} ; -- cau, ins, tra
      NonHuman =>
        table {Sg => caseTable "ami" "amit" "aminek"      -- nom, acc, dat
                               "amibe"  "amiben" "amiből" -- ill, ine, ela
                               "amihez" "aminél" "amitől" -- all, ade, abl
                               "amire"  "amin"   "amiről" -- sub, sup, del
                               "amiért" "amivel" "amivé" ; -- cau, ins, tra
               Pl => caseTable "amik" "amiket" "amiknek"      -- nom, acc, dat
                               "amikbe"  "amikben" "amikből"  -- ill, ine, ela
                               "amikhez" "amiknél" "amiktől"  -- all, ade, abl
                               "amikre"  "amiken"  "amikről"  -- sub, sup, del
                               "amikért" "amikkel" "amikké"} -- cau, ins, tra
      } ;
    } ;

  -- : Prep -> NP -> RP -> RP ;  -- the mother of whom
  --FunRP prep np rp = {} ;

}