static DF1(case1){A u;V*sv;
PREF1(case1);
sv=VAV(self);
RZ(u=from(df1(w,sv->g),sv->h));
ASSERT(!AR(u),EVRANK);
R df1(w,*AV(u));
}
static DF1(con1){A h,*hv,*x,z;V*sv;
PREF1(con1);
sv=VAV(self); h=sv->h; hv=AAV(h);
GA(z,BOX,AN(h),AR(h),AS(h)); x=AAV(z);
DO(AN(h), RZ(*x++=(VAV(*hv)->f1)(w,*hv)); ++hv);
R ope(z);
}
static DF1(jtbasis1){DECLF;A z;D*x;I j;V*v;
PREF1(jtbasis1);
RZ(w=vi(w));
switch(*AV(w)){
case 0:
GA(z,FL,3,1,0); x=DAV(z); v=VAV(fs);
j=v->mr; x[0]=j<=-RMAX?-inf:j>=RMAX?inf:j;
j=v->lr; x[1]=j<=-RMAX?-inf:j>=RMAX?inf:j;
j=v->rr; x[2]=j<=-RMAX?-inf:j>=RMAX?inf:j;
R pcvt(INT,z);
case -1: R lrep(inv (fs));
case 1: R lrep(iden(fs));
default: ASSERT(0,EVDOMAIN);
}}
static DF1(fork1){DECLFG;A hs=sv->h;AF h1=VAV(hs)->f1;
PREF1(fork1);
R CLBKCO==ID(fs) ? g1(h1(w,hs),gs) :
(NOUN&AT(fs) ? g2(fs,h1(w,hs),gs) : g2(f1(w,fs),h1(w,hs),gs));
}
