proposition: Lemma Rser_cv_bntg : {l | Rser_cv bntg l}.
proof: Proof. eapply Rser_pos_maj_cv. intro; apply Rlt_le; apply bntg_pos. 3: apply Rser_cv_square_inv. intro; apply Rlt_le; apply Rinv_0_lt_compat; apply pow_lt; INR_solve. intro n; apply Rle_Rinv; unfold Rseq_shift ; try (apply pow_lt; INR_solve). unfold pow; INR_solve; try (apply Nat.mul_le_mono; lia). Qed.
imports: Reals Lra Rsequence_facts Rseries Rsequence_subsequence Rtactic Lia