class clneg 
{
    node clneg:[cat: clneg, id:clneg, type:coanchor,adj:no];
    V1 >> clneg;
    clneg =>
        desc.dummy.clneg = value(+),
        node(S).bot.neg = value(+),
        node(Infl).top.mode = value(~participle);
    ~ clneg =>
        desc.dummy.clneg = value(-)
        ;
    v +
        desc.dummy.clneg = value(+)
        |
        desc.dummy.clneg = value(-),
        ( node(S).bot.neg = value(-),
          node(Infl).top.mode = value(~participle|infinitive)
          |                       % example: une pomme pas mangée
          node(Infl).top.mode = value(participle|infinitive|adjective)
          );
    clneg < Infl;
}