class prep_as_comp 
{
    %% We may use a Sinf introduced by de as a comp
    <: simple_categories;
    desc.ht = value([arg1: @emptyarg_fs,arg2: @emptyarg_fs]);
    desc.@extracted0 = value(-);
    Root >> S;
    Root >> prep;
    prep < S;
    node Root : [cat:comp,id:comp,type:std,bot:[real:PP]];
    node S : [cat:S,id:S,type:subst,top: [mode: infinitive, sat: -, extraction: -, control: ~causative]];
    node prep : [cat:prep, top: [pcas: de]]; prep = Anchor;
    - S::agreement; S = S::N;
}