theorem Th1:
  a c= succ b implies a c= b or a = succ b by ORDINAL1:16,21;
