thread EEnv into ShellState

lib/resource-1.0/mathematical/Symbol.gf

@@ -19,6 +19,11 @@ fun
 
   SymbS    : Symb -> S ;                 -- A
 
+--2 Symbols as numerals
+
+  SymbNum  : Symb -> Num ;               -- n
+  SymbOrd  : Symb -> Num ;               -- n'th
+
 --2 Symbol lists
 
 -- A symbol list has at least two elements. The last two are separated

lib/resource-1.0/mathematical/SymbolEng.gf

@@ -15,6 +15,9 @@ lin
 
   SymbS sy = sy ; 
 
+  SymbNum sy = sy ;
+  SymbOrd sy = {s = sy.s ++ "th"} ;
+
 lincat 
 
   Symb, [Symb] = SS ;