1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
incomplete concrete Toy0I of Toy0 = open Syntax, Lexicon in { lincat Spec = Det ; Noun = N ; NP = Utt ; lin SpecNoun spec noun = mkUtt (mkNP spec noun) ; One = mkDet one_Quant ; Two = mkDet (mkNum n2_Numeral) ; Felis = cat_N ; Canis = dog_N ; }