--# -path=.:alltenses:prelude

resource CombinatorsSco = Combinators - [ appCN, appCNc ] with 
  (Cat = CatSco),
  (Structural = StructuralSco),
  (Noun = NounSco),
  (Constructors = ConstructorsSco) ** 
  {
  	oper
	appCN : CN -> NP -> NP
           = \cn,x -> mkNP the_Art (PossNP cn x) ;
    appCNc : CN -> [NP] -> NP
           = \cn,xs -> let np : NP = mkNP and_Conj xs
                       in mkNP the_Art (PossNP cn np) ; 
  }