 reserve R for 1-sorted;
 reserve X,Y for Subset of R;
 reserve R for finite 1-sorted;
 reserve X,Y for Subset of R;

theorem LemmaCard2:
  card (X` \/ Y) = card [#]R implies X` \/ Y = [#]R by CARD_2:102;
