invarA in Cze and Slo

src/slovak/ParadigmsSlo.gf

@@ -108,6 +108,8 @@ oper
   paviA  : Str -> A
     = \s -> lin A (R.paviA s) ;
 
+  invarA : Str -> A
+    = \s -> lin A (invarAdjForms s) ;
 
   mkA2 : A -> Prep -> A2
     = \a,p -> lin A2 (a ** {c = p}) ;

src/slovak/ResSlo.gf

@@ -477,6 +477,11 @@ palatal : Str -> Str = \s -> case s of {
     pins : Str ;
     } ;
 
+invarAdjForms : Str -> AdjForms = \s -> {
+    msnom, fsnom, nsnom, msgen, fsgen, msdat, fsacc,
+    msloc, msins, fsins, ampnom, pgen, pins = s ;
+    } ;
+
 -- used in PositA but will also work in Compar and Superl by calling their record fields
 
 adjFormsAdjective : AdjForms -> Adjective = \afs -> {