theorem Th40:
  the_unity_wrt FinUnion A = {}
proof
  {}.A is_a_unity_wrt FinUnion A by Th37;
  hence thesis by BINOP_1:def 8;
end;
