(Ara) small fixes and additions

src/arabic/ParadigmsAra.gf

@@ -368,7 +368,6 @@ resource ParadigmsAra = open
      = mkAN ;
    mkN : N -> AP -> N 
      = mkAPN
-
    } ;
 
   attrN : Number -> N -> N -> N = \num,n1,n2 -> n1 ** {

src/arabic/ResAra.gf

@@ -1049,8 +1049,8 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
     -- determine the declension and gives the corresponding inf table
     brkPl : Str -> State => Case => Str = \word ->
       \\s,c => defArt s c (case word of {
-        lemma + "ِيّ" => fixShd word  (decNisba ! s ! c) ;
-        lemma + "ِي"  => fixShd lemma (dec2sg ! s ! c) ;
+        lemma + "ِيّ" => fixShd word  (dec1sg ! s ! c) ; -- nisba
+        lemma + "ِي"  => fixShd lemma (dec2sg ! s ! c) ; -- 2nd declension
         _ + ("ا"|"ى") => fixShd word  (dec3sg ! s ! c) ;
         lemma + (#hamza|#hamzaseat)
                       => word + dec1sgNoDoubleAlif ! s ! c ;
@@ -1170,16 +1170,6 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
         _            => []
       };
 
-    --declension 2 (ends in yaa')
-    decNisba : State => Case => Str = \\s,c =>
-      case <s,c> of {
-        <_,   Bare> => [] ;
-        <Indef,Acc> => "اً" ;
-        <Indef>     => "ٍ" ;
-        <_,    Acc> => "َ" ;
-        _           => []
-      };
-
     --dual suffixes
     dl : State => Case => Str =
       table {

src/arabic/StructuralAra.gf

@@ -45,7 +45,7 @@ concrete StructuralAra of Structural = CatAra **
     s = \\g,s,c => "كَمْ عَدَد" + caseTbl ! c ;
     n = Pl ; d = Def 
     } ; -- IL
-
+  how8much_IAdv = ss "كَمْ" ;
   if_Subj = mkSubj "إِذَا" Verbal ;
   in8front_Prep = mkPrep "مُقَابِلَ" ;
   i_Pron  = ResAra.i_Pron ;