reserve X for non empty 1-sorted;
reserve A, A1, A2, B1, B2 for Subset of X;

theorem
  {}X,[#]X constitute_a_decomposition
proof
  [#]X = ({}X)`;
  hence {}X,[#]X constitute_a_decomposition by Th5;
end;
