comp-syntax-gu-mlt/lectures/lecture-05/AgreementEng.gf

concrete AgreementEng of Agreement = open MorphologyEng in {
    lincat
        NP = {s: Str; n: Number} ;
        CN = Noun ;
        N = Noun ;
        A = {s: Str} ;
        Det = {s: Str; n: Number} ;

    lin
        DetCN d cn = {
            s = d.s ++ (cn.s ! d.n) ;
            n = d.n ; 
        } ;
        AdjCN a cn = {
            s = \\n => a.s ++ (cn.s ! n) ;
        } ;
        UseN n = n ;
        
        cat_N = regNoun "cat" ; 
        house_N = regNoun "house" ;
        black_A = {s = "black"} ;
        big_A = {s = "big"} ;
        this_Det = {
            s = "this";
            n = Sg ;
        } ;
        these_Det = {
            s = "these";
            n = Pl ;
        } ;
    
}