(Spa) Implement AForm+related opers in DiffSpa

src/spanish/DiffSpa.gf

@@ -70,6 +70,22 @@ instance DiffSpa of DiffRomance - [iAdvQuestionInv,otherInv,partAgr,stare_V,vpAg
       _ => prepCase c ++ artDef g Sg (CPrep P_de)
       } ;
 -}
+
+-- AForm and comparatives
+  param
+    AFormComplex = AF Gender Number | AAttr Gender | AA ;
+  oper
+    AForm = AFormComplex ;
+    aform2aagr : AForm -> AAgr = \a -> case a of {
+      DiffSpa.AF g n => aagr g n ;
+      _              => aagr Masc Sg -- "le plus lentement"
+      } ;
+    genNum2Aform = \g,n -> DiffSpa.AF g n ;
+    genNumPos2Aform : Gender -> Number -> Bool -> AForm = \g,n,isPre ->
+      case <n,isPre> of {
+        <Sg,True> => AAttr g ;
+        _         => genNum2Aform g n
+      } ;
     piuComp = "más" ;
 
     conjunctCase : Case -> Case = \c -> case c of {