theorem
  (f is_continuous_at x &
  x is_adherent_point_of XA & y = f.x & YB = f.:XA) implies
  y is_adherent_point_of YB by Lm12;
