fact: Definition lambda := min((1 - epsilon) / 2, (`H P - r) / 2).
imports: mathcomp(all_ssreflect ssralg ssrnum matrix) Reals Lra mathcomp(Rstruct) ssrR Reals_ext realType_ext logb fdist proba entropy aep typ_seq source_code