proposition: Lemma triR0 : TriangularLaws.right eta0 eps0.
proof: Proof. by move=> c; rewrite eps0E eta0E funeqE => a /=; rewrite Convn_of_fsdist1. Qed.
imports: Reals mathcomp(all_ssreflect) mathcomp(boolp classical_sets) mathcomp(finmap) infotheo(Reals_ext classical_sets_ext ssrR ssr_ext) infotheo(fdist fsdist convex necset) monae_lib HB(structures) category