fact: Definition Exercise5_5_conc I := f (supremum r I) +c csumb (even_card0_sub I) (fun z => f (infimum r z)) = csumb (odd_card_sub I) (fun z => f (infimum r z)).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)