theorem Th1:
  nextcard card X = nextcard X
proof
  card card X in nextcard X & for M st card card X in M holds nextcard X
  c= M by CARD_1:def 3;
  hence thesis by CARD_1:def 3;
end;
