proposition: Lemma card_le_Xn_Lnt : (#|[finType of n.-tuple X] | <= #|[finType of (Z.abs_nat L_not_typ).-tuple bool]|)%nat.
proof: Proof. rewrite -!cardsT. apply/leP. apply: (INR_le _ _ (card_le_Xn_Lnt' n' P)). Qed.
imports: mathcomp(all_ssreflect ssralg matrix) Reals Lra mathcomp(Rstruct) ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist proba entropy aep typ_seq natbin source_code