(Pes) Add parameter in A+AP about AP's placement as predicative

Co-Authored-By: Nasrin Mostofian <nasrin.mostofian@gmail.com>

src/persian/ParadigmsPes.gf

@@ -88,6 +88,7 @@ oper
     mkA : Str -> A ; -- Regular adjective, same form for adjective and adverb.
     mkA : (adj,adv : Str) -> A -- Different forms for adjective and adverb.
   } ;
+  prefixA : A -> A ; -- Adjective that comes before the noun
 
   mkA2 : (married,to : Str) -> A2 -- Takes string and complementiser, returns A2.
     = \a,c -> lin A2 (mkAdj a a ** {c2 = c}) ;
@@ -303,6 +304,8 @@ oper
       = \a,c -> lin A2 (mkAdj a a ** {c2 = c})
    } ;
 
+   prefixA a = a ** {isPre=True};
+
    preA : (adj,adv : Str) -> A = \adj,adv ->
      lin A ((mkAdj adj adv) ** {isPre=True}) ;