guessed VocNP, UttCN, UttAP

src/gaelic/NounGla.gf

@@ -13,6 +13,10 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
                    DDef n sp => cn.s ! c ! sp  ! n ;
                    DPoss n _ => cn.s ! c ! Def ! n    -- ????????????????
                  } ;
+      voc = case det.dt of {
+              DDef n sp => cn.voc ! n ;  -- ???????????????? guessed
+              DPoss n _ => cn.voc ! n    -- ????????????????
+            } ;
       a = NotPron det.dt ;
       } ;