CompBareCN in ExtraScand

lib/src/abstract/Extra.gf

@@ -11,6 +11,7 @@ abstract Extra = Cat ** {
     GenIP       : IP -> IQuant ;      -- whose
     GenRP       : Num -> CN -> RP ;   -- whose car
     ComplBareVS : VS -> S -> VP ;     -- know you go
+    CompBareCN  : CN -> Comp ;        -- (est) professeur
 
     StrandRelSlash   : RP -> ClSlash -> RCl ;   -- that he lives in
     EmptyRelSlash    : ClSlash -> RCl ;   -- he lives in

lib/src/scandinavian/ExtraScand.gf

@@ -9,6 +9,12 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
 
     ComplBareVS v s  = insertObj (\\_ => s.s ! Sub) (predV v) ;
 
+    CompBareCN cn = {s = \\a => case a.n of { 
+      Sg => cn.s ! Sg ! DIndef ! Nom ;
+      Pl => cn.s ! Pl ! DIndef ! Nom
+      }
+    } ;
+
     StrandRelSlash rp slash  = {
       s = \\t,a,p,ag,_ => 
           rp.s ! ag.g ! ag.n ! RNom ++ slash.s ! t ! a ! p ! Sub ++ slash.c2.s ;