(Romance) Add copType to A2 as well

src/romance/AdjectiveRomance.gf

@@ -6,7 +6,7 @@ incomplete concrete AdjectiveRomance of Adjective =
     PositA a = {
       s = a.s ! Posit ;
       isPre = a.isPre ;
-      copTyp = a.copTyp        
+      copTyp = a.copTyp
       } ;
     ComparA a np = {
       s = \\af => a.s ! Compar ! af ++ conjThan ++ (np.s ! Nom).ton ;
@@ -34,7 +34,7 @@ incomplete concrete AdjectiveRomance of Adjective =
     ComplA2 adj np = {
       s = \\af => adj.s ! Posit ! af ++ appCompl adj.c2 np ;
       isPre = False ;
-      copTyp = serCopula
+      copTyp = adj.copTyp
       } ;
 
     ReflA2 adj = {
@@ -42,7 +42,7 @@ incomplete concrete AdjectiveRomance of Adjective =
              adj.s ! Posit ! af ++
              adj.c2.s ++ prepCase adj.c2.c ++ reflPron Sg P3 Nom ; --- agr
       isPre = False ;
-      copTyp = serCopula
+      copTyp = adj.copTyp
       } ;
 
     SentAP ap sc = {
@@ -60,7 +60,7 @@ incomplete concrete AdjectiveRomance of Adjective =
     UseA2 a = {
       s = a.s ! Posit ;
       isPre = False ; ---- A2 has no isPre
-      copTyp = serCopula ---- A2 has no copTyp (yet)
+      copTyp = a.copTyp
       } ;
 
     AdvAP ap adv = {

src/romance/CatRomance.gf

@@ -106,7 +106,7 @@ incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
     VS = Verb ** {m : RPolarity => Mood} ;
 
     A  = {s : Degree => AForm => Str ; isPre : Bool ; copTyp : CopulaType} ;
-    A2 = {s : Degree => AForm => Str ; c2 : Compl} ;
+    A2 = {s : Degree => AForm => Str ; c2 : Compl ; copTyp : CopulaType} ;
 
     N  = Noun ;
     N2 = Noun  ** {c2 : Compl} ;