theorem Th28:
  x in B implies f.x [= FinJoin(B,f)
by SETWISEO:22;
