theorem Th18:
  FinPairUnion A is having_a_unity
proof
  [{}.A, {}.A] is_a_unity_wrt FinPairUnion A by Th17;
  hence thesis by SETWISEO:def 2;
end;
