reserve p,q,r for FinSequence,
  x,y for object;

theorem Th38:
  for R being Relation, a being object holds a,a are_convergent_wrt R
  & a,a are_divergent_wrt R by Th12;
