theorem Th61:
  for S for q being Element of S^^0 holds decomp(S, 0, q) = {}
proof
  let S;
  let q be Element of S^^0;
  dom decomp(S, 0, q) = Seg 0 by Def32;
  hence thesis;
end;
