reserve A for non empty set,
  a for Element of A;
reserve A for set;
reserve B,C for Element of Fin DISJOINT_PAIRS A,
  x for Element of [:Fin A, Fin A:],
  a,b,c,d,s,t,s9,t9,t1,t2,s1,s2 for Element of DISJOINT_PAIRS A,
  u,v,w for Element of NormForm A;
reserve K,L for Element of Normal_forms_on A;

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;
