{(SubPlus[X]),(SubMinus[X])}//FullForm

Kas[x_X]:=Module[{v=2(u^2)-1,fs,s,m,ηs},
fs=List@@x;s=PositiveQ@x;
fs*=If[s,{-1,1,1,-1},{-1,-1,1,1}];
m=If[s,(({{v, u, 1, u}, {u, 1, u, 1}, {1, u, v, u}, {u, 1, u, 1}})),-(({{1, u, 1, u}, {u, v, u, 1}, {1, u, 1, u}, {u, 1, u, v}}))];
ηs=(Subscript[η, #])&/@fs; CF@(Subscript[Σ, B[fs]])[If[s,-1,1],PQ[{},(SuperStar[ηs]).m.ηs]]]

TL[x_X]:=Module[{t=1-ω,r,fs,s,m,ηs},
r=t+(SuperStar[t]);fs=List@@x;s=PositiveQ@x;
fs*=If[s,{-1,1,1,-1},{-1,-1,1,1}];
m=If[s,(({{-r, -t, 2t, (SuperStar[t])}, {-(SuperStar[t]), 0, (SuperStar[t]), 0}, {2(SuperStar[t]), t, -r, -(SuperStar[t])}, {t, 0, -t, 0}})),(({{0, t, 0, -t}, {(SuperStar[t]), r, -t, -2(SuperStar[t])}, {0, -(SuperStar[t]), 0, (SuperStar[t])}, {-(SuperStar[t]), -2t, t, r}}))];
ηs=(Subscript[η, #])&/@fs; CF@(Subscript[Σ, B[fs]])[0,PQ[{},(SuperStar[ηs]).m.ηs]]]