next-lib/src/romance/ExtRomance.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14

incomplete concrete ExtRomance of ExtRomanceAbs = 
  CatRomance ** open DiffRomance, ResRomance in {

  lin
    DefSgN predet noun = let g = noun.g in {
      s = \\c => predet.s ! gennum g Sg ++ noun.s ! Sg ! Def ! caseNP c ;
      a = agrP3 g Sg
      } ;
    DefPlN predet noun = let g = noun.g in {
      s = \\c => predet.s ! Plg ++ noun.s ! Pl ! Def ! caseNP c ;
      a = agrP3 g Sg
      } ;

}