concrete Q6Swe of Q6 = {

lincat 
  NP = Str ;
  CN = {s : Definiteness => Str ; c : Complexity} ;
  Det = {s : Complexity => Str ; d : Definiteness} ;
  AP = Definiteness => Str ;

lin

  DetCN det cn = det.s ! cn.c ++ cn.s ! det.d ;
  ModCN ap cn = {s = table {d => ap ! d ++ cn.s ! d} ; c = Complex} ;

  a = {s = table {_ => "ett"} ; d = Indef} ;
  the = {s = table {Simple => [] ; Complex => "det"} ; d = Def} ;
  this = {s = table {_ => "det här"} ; d = Def} ;
  my = {s = table {_ => "mitt"} ; d = DefIndef} ;

  house = {s = table {Indef | DefIndef => "hus" ; Def => "huset"} ; c = Simple} ;
  big = table {Indef => "stort" ; Def | DefIndef => "stora"} ;


param
  Definiteness = Indef | Def | DefIndef ;
  Complexity = Simple | Complex ;

}