theorem
  Atom(A).a = singleton DISJOINT_PAIRS A .a
proof
  thus (singleton DISJOINT_PAIRS A).a = {a} by SETWISEO:54
    .= Atom A.a by Def4;
end;
