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

theorem
  card [#](bspace X) = exp(2,card(X)) by CARD_2:31;
