diff --git a/examples/tutorial/resource-foods/FoodsEng.gf b/examples/tutorial/resource-foods/FoodsEng.gf index 3756b8189..5f3a978c3 100644 --- a/examples/tutorial/resource-foods/FoodsEng.gf +++ b/examples/tutorial/resource-foods/FoodsEng.gf @@ -8,10 +8,10 @@ concrete FoodsEng of Foods = open SyntaxEng,ParadigmsEng in { Quality = AP ; lin Is item quality = mkUtt (mkCl item quality) ; - This kind = mkNP (mkDet this_Quant) kind ; - That kind = mkNP (mkDet that_Quant) kind ; - These kind = mkNP (mkDet (mkQuantPl this_Quant)) kind ; - Those kind = mkNP (mkDet (mkQuantPl that_Quant)) kind ; + This kind = mkNP this_QuantSg kind ; + That kind = mkNP that_QuantSg kind ; + These kind = mkNP these_QuantPl kind ; + Those kind = mkNP those_QuantPl kind ; QKind quality kind = mkCN quality kind ; Wine = mkCN (mkN "wine") ; Pizza = mkCN (mkN "pizza") ; diff --git a/examples/tutorial/resource-foods/FoodsI.gf b/examples/tutorial/resource-foods/FoodsI.gf index da6cb9366..2ec35f5f9 100644 --- a/examples/tutorial/resource-foods/FoodsI.gf +++ b/examples/tutorial/resource-foods/FoodsI.gf @@ -8,10 +8,10 @@ incomplete concrete FoodsI of Foods = open Syntax, LexFoods in { Quality = AP ; lin Is item quality = mkUtt (mkCl item quality) ; - This kind = mkNP (mkDet this_Quant) kind ; - That kind = mkNP (mkDet that_Quant) kind ; - These kind = mkNP (mkDet (mkQuantPl this_Quant)) kind ; - Those kind = mkNP (mkDet (mkQuantPl that_Quant)) kind ; + This kind = mkNP this_QuantSg kind ; + That kind = mkNP that_QuantSg kind ; + These kind = mkNP these_QuantPl kind ; + Those kind = mkNP those_QuantPl kind ; QKind quality kind = mkCN quality kind ; Very quality = mkAP very_AdA quality ;