proposition: Lemma cpr_in_unit_RV (U A : finType) (P : {fdist U}) (X : {RV P -> A}) (E : {set A}) : `Pr[ X \in E | (unit_RV P) = tt ] = `Pr[ X \in E ].
proof: Proof. rewrite cpr_eq_setE (_ : _ @^-1: [set tt] = setT); last first. by apply/setP => u; rewrite !inE. by rewrite cPrET pr_eq_setE. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum matrix) mathcomp(Rstruct reals) Reals Lra ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist