(*****************************************************************)
(**           Convergence properties of sequences                *)
(*****************************************************************)

Definition Un_decreasing (Un:nat -> R) : Prop :=
  forall n:nat, Un (S n) <= Un n.Definition opp_seq (Un:nat -> R) (n:nat) : R := - Un n.Definition has_ub (Un:nat -> R) : Prop := bound (EUn Un).Definition has_lb (Un:nat -> R) : Prop := bound (EUn (opp_seq Un)).

Lemma decreasing_cv : forall Un:nat -> R, Un_decreasing Un -> has_lb Un -> { l:R | Un_cv Un l }.