Definition pow_2_n (n:nat) := 2 ^ n.

(* Specifications: *)
Lemma pow_2_n_neq_R0 : forall n:nat, pow_2_n n <> 0.
Lemma pow_2_n_growing : Un_growing pow_2_n.
Lemma pow_2_n_infty : cv_infty pow_2_n.
Lemma cv_dicho :
forall (x y l1 l2:R) (P:R -> bool),
x <= y ->
Un_cv (dicho_lb x y P) l1 -> Un_cv (dicho_up x y P) l2 -> l1 = l2.