proposition: Lemma eps1'_natural : naturality _ _ eps1'.
proof: Proof. move=> K L f /=; rewrite funeqE => X /=. rewrite biglub_morph; congr (|_| _). by rewrite free_semiCompSemiLattConvType_morE. 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