theorem Th20:
  Union Partial_Diff_Union A1 = Union A1
proof
  thus Union Partial_Diff_Union A1 = Union Partial_Union (Partial_Diff_Union
  A1) by Th15
    .= Union Partial_Union A1 by Th19
    .= Union A1 by Th15;
end;
