theorem Th10:
  u = FinJoin(@u, Atom(A))
proof
  thus u = FinUnion(@u, singleton DISJOINT_PAIRS A) by SETWISEO:58
    .= FinJoin(@u, Atom(A)) by Th9;
end;
