theorem
  |.<*> A.|.a = 0
proof
  dom ({a}|`{}) c= dom {} by FUNCT_1:56;
  then dom ({a}|`<*> A) = {};
  hence thesis by Def7,CARD_1:27;
end;
