Reduce Phrasebook grammars in testsuite/canonical to bare minimum

testsuite/canonical/grammars/PhrasebookBul.gf

@@ -1,9 +1,31 @@
 --# -path=.:present
 
-concrete PhrasebookBul of Phrasebook = 
-  GreetingsBul,
-  WordsBul ** open 
+concrete PhrasebookBul of Phrasebook =
+  open
     SyntaxBul,
+    (R = ResBul),
+    ParadigmsBul,
     Prelude in {
 
+  lincat
+    PlaceKind = CNPlace ;
+
+  oper
+    CNPlace : Type = {name : CN ; at : Prep ; to : Prep; isPl : Bool} ;
+
+    mkPlace : N -> Prep -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \n,p ->
+      mkCNPlace (mkCN n) p to_Prep ;
+
+    mkCNPlace : CN -> Prep -> Prep -> CNPlace = \p,i,t -> {
+      name = p ;
+      at = i ;
+      to = t ;
+      isPl = False
+      } ;
+
+    na_Prep = mkPrep "на" R.Acc ;
+
+  lin
+    Airport = mkPlace (mkN066 "летище") na_Prep ;
+
 }