concrete ConjunctionCmn of Conjunction = CatCmn ** open ResCmn, Prelude, Coordination in {

  lin

    ConjS c = conjunctDistrSS (c.s ! CSent) ;
    ConjAdv c as = conjunctDistrSS (c.s ! CSent) as ** {advType = ATPlace} ; ---- ??
    ConjNP c = conjunctDistrSS (c.s ! CPhr CNPhrase) ;
    ConjAP c as = conjunctDistrSS (c.s ! CPhr CAPhrase) as ** {monoSyl = False} ;
    ConjRS c = conjunctDistrSS (c.s ! CSent) ;

-- These fun's are generated from the list cat's.

    BaseS = twoSS ;
    ConsS = consrSS duncomma ;
    BaseAdv = twoSS ;
    ConsAdv = consrSS duncomma ;
    BaseNP = twoSS ;
    ConsNP = consrSS duncomma ;
    BaseAP = twoSS ;
    ConsAP = consrSS duncomma ;
    BaseRS = twoSS ;
    ConsRS = consrSS duncomma ;

  lincat
    [S] = {s1,s2 : Str} ;
    [Adv] = {s1,s2 : Str} ;
    [NP] = {s1,s2 : Str} ;
    [AP] = {s1,s2 : Str} ;
    [RS] = {s1,s2 : Str} ;

}