(Ita) Implement AForm+related opers in DiffIta

src/italian/DiffIta.gf

@@ -81,6 +81,18 @@ instance DiffIta of DiffRomance - [contractInf] = open CommonRomance, PhonoIta,
       _ => prepCase c ++ artDef False g Sg (CPrep P_di)
       } ;
 -}
+
+-- AForm and comparatives
+  param
+    AFormSimple = AF Gender Number | AA ;
+  oper
+    AForm = AFormSimple ;
+    aform2aagr : AForm -> AAgr = \a -> case a of {
+      DiffIta.AF g n => aagr g n ;
+      _                    => aagr Masc Sg -- "le plus lentement"
+      } ;
+    genNum2Aform : Gender -> Number -> AForm = DiffIta.AF ;
+    genNumPos2Aform : Gender -> Number -> Bool -> AForm = \g,n,_ -> genNum2Aform g n ;
     piuComp = "più" ;
 
     conjunctCase : Case -> Case = \c -> case c of {

src/italian/MorphoIta.gf

@@ -78,10 +78,10 @@ oper
 
   mkAdj : (_,_,_,_,_ : Str) -> Adj = \solo,sola,soli,sole,solamente ->
     {s = table {
-      ASg Masc _ => solo ;
+      AF Masc Sg => solo ;
-      ASg Fem  _ => sola ;
+      AF Fem  Sg => sola ;
-      APl Masc   => soli ;
+      AF Masc Pl => soli ;
-      APl Fem    => sole ;
+      AF Fem  Pl => sole ;
       AA         => solamente
       }
     } ;