class verb_extraction_cleft 
{
    <: _verb_extraction;
    node(S2).bot.extraction = value(cleft);
    desc.extraction = node(S2).bot.extraction;
    node(S2).top.extraction = value(-);
    %%    node(S).bot.extraction = node(S2).top.extraction;
    %%    node(S).bot = node(S).top;
    node(S).bot.extraction = node(S).top.extraction;
    node(S).top.extraction = value(adjx);
    node XGroup : [type: sequence]; XGroup = CleftSeq;
    CleftSeq >> CleftComp; node CleftComp : [cat: VMod ];
    CleftSeq >> CleftQue; node CleftQue: [cat:prel, adj: no, type: coanchor];
    CleftComp < CleftQue;
    node(CleftQue).bot.case = value(nom|acc);
    node(XGroup).extracted.real = value(~cln|cla|cld|clg);
    CleftQue +
        node(XGroup).extracted.kind = value(subj),
        node(CleftQue).bot.case = value(nom)
        |
        node(XGroup).extracted.kind = value(~subj),
        node(CleftQue).bot.case = value(acc)
        ;
    node(S).top.mode = value(~imperative|infinitive|participle|gerundive);
    %%    node(XGroup).extracted.kind = value(subj);
    CleftComp = arg0::CleftComp;
    CleftComp = arg1::CleftComp;
    CleftComp = arg2::CleftComp;
    node(S).top.inv = value(~cl);
}