concrete AdjectiveCmn of Adjective = CatCmn ** open ResCmn, Prelude in {

  lin

    PositA  a = a ;

    --ComparA a np = complexAP (a.s ++ than_s ++ np.s) ;
    ComparA a np = complexAP (than_s ++ np.s ++ a.s) ;

    UseComparA a = complexAP (geng_s ++ a.s) ;

    AdjOrd ord = complexAP ord.s ;

    CAdvAP ad ap np = complexAP (ap.s ++ ad.s ++ ad.p ++ np.s) ;

    ComplA2 a np = complexAP (a.s ++ appPrep a.c2 np.s) ;

    ReflA2 a = complexAP (a.s ++ appPrep a.c2 reflPron) ;

    SentAP ap sc = complexAP (ap.s ++ sc.s) ;

    AdAP ada ap = complexAP (ada.s ++ ap.s) ;

    UseA2 a = a ;

}