theorem
 card(k -->x) = k
proof
  dom(k -->x) = k;
 hence card(k -->x) = card k by Th60
     .= k;
end;
