theorem
  (for x st x in B holds f.x = u) & B <> {} implies FinJoin(B,f) = u by
