added GN & SN categories for constructing names

2026-06-28 04:16:30 -06:00 · 2022-12-15 08:44:42 +01:00
parent d0e433cd46
commit 7085acacc9
55 changed files with 371 additions and 43 deletions
@@ -100,4 +100,10 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -
        cop = serCopula
      } ;

+lin GivenName, Surname = \n -> n ;
+lin FullName gn sn = {
+       s = gn.s ++ sn.s ;
+       g = gn.g
+    } ;
+
 } ;