proposition: Lemma lambda2_epsilon : lambda / 2 <= epsilon.
proof: Proof. apply (@leR_trans lambda). by rewrite leR_pdivr_mulr //; apply leR_pmulr; [lra | exact/ltRW/lambda_gt0]. rewrite /lambda; case: (Rlt_le_dec (r - `H P) epsilon) => ?. - by rewrite Rmin_left; lra. - by rewrite Rmin_right //; lra. Qed.
imports: mathcomp(all_ssreflect ssralg matrix) Reals Lra mathcomp(Rstruct) ssrZ ssrR Reals_ext ssr_ext ssralg_ext logb natbin fdist proba entropy aep typ_seq source_code