class collect_real_clefted_subject 
{
    <: _collect_real_subject;
    $arg.extracted = value(cleft);
    CleftComp = VSubj;
    $arg.real = value(~cln);
}