reserve S for 1-sorted,
  i for Element of NAT,
  p for FinSequence,
  X for set;

theorem
  [#]Z_2 = {0,1} by CARD_1:50;
