theorem Th1:
  A c= B iff succ A c= succ B
proof
  A c= B iff A in succ B by ORDINAL1:22;
  hence thesis by ORDINAL1:21;
end;
