
theorem
  for X,Y being non empty set holds card the set of all
[:X,{y}:] where y is Element
  of Y = card Y by Lm3;
