class mod_on_comparative_simple_modifier 
{
    <: mod_on_comparative_modifier;
    node(Foot).top.supermod_kind = value(comparative);
    node(Modifier).cat = node(Foot).bot.cat;
}