class adj_with_subcat 
{
    + cat_with_subcat;
    node v:[cat:adj];    
    node(Infl).bot.number = node(v).top.number;
    node(Infl).bot.gender = node(v).top.gender;
    %% force adjoining of an aux-like verb
    node(Infl).bot.mode = value(adjective);
    node(Infl).top.mode = value(~adjective);
    node(Infl).adj = value(strict);
}