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 n1_Numeral ; Two = mkDet n2_Numeral ; Felis = cat_N ; Canis = dog_N ; }