fact: Fixpoint iter_conv_cset_is_convex (X : {convex_set A}) (n : nat) : is_convex_set (iter_conv_set X n) := match n with | 0 => convex_setP X | n'.+1 => oplus_conv_cset_is_convex X (CSet.Pack (CSet.Mixin (iter_conv_cset_is_convex X n'))) end.
imports: HB(structures) Reals mathcomp(all_ssreflect ssralg ssrnum) mathcomp(mathcomp_extra boolp classical_sets Rstruct reals) mathcomp(finmap) Reals_ext realType_ext classical_sets_ext ssrR fdist fsdist convex