added GN & SN categories for constructing names

2022-12-15 08:44:42 +01:00
parent d0e433cd46
commit 7085acacc9
55 changed files with 371 additions and 43 deletions
@@ -71,6 +71,6 @@ concrete CatTha of Cat = CommonX ** open ResTha, Prelude in {
    N = ResTha.Noun ;
    N2 = ResTha.Noun ** {c2 : Str} ;
    N3 = ResTha.Noun ** {c2,c3 : Str} ;
-    PN = ResTha.NP ;
+    GN, SN, PN = ResTha.NP ;

 }