theorem Th7:
  card A c= A
proof
  ( ex B st card A = B & for C st C,B are_equipotent holds B c= C)& A,card
  A are_equipotent by Def1,Def2;
  hence thesis;
end;
