theorem Th19:
  the_unity_wrt FinPairUnion A = [{}.A, {}.A]
proof
  [{}.A, {}.A] is_a_unity_wrt FinPairUnion A by Th17;
  hence thesis by BINOP_1:def 8;
end;
