move NumeralX.inc to ParamX since it is used in many places

2026-03-03 14:34:52 +01:00
parent 8e780d6263
commit 761597ad8c
25 changed files with 13 additions and 115 deletions
--- a/src/common/ParamX.gf
+++ b/src/common/ParamX.gf
@@ -64,5 +64,11 @@ resource ParamX = open Prelude in {
  param
    DTail = T1 | T2 | T3 ;

+  oper
+    inc : DTail -> DTail = \t -> case t of {
+      T1 => T2 ;
+      T2 => T3 ;
+      T3 => T1
+      } ;

 }