Definition point_adherent (D:R -> Prop) (x:R) : Prop :=
  forall V:R -> Prop,
    neighbourhood V x ->  exists y : R, intersection_domain V D y.Definition adherence (D:R -> Prop) (x:R) : Prop := point_adherent D x.

Lemma adherence_P2 : forall D:R -> Prop, closed_set D -> included (adherence D) D.