fact: Definition cpower (g : chain_generator) n `{M:@EMonoid A E_op E_one E_eq} a := match n with 0%N => E_one | Npos p => cpower_pos g p a end.
imports: Coq(Relations RelationClasses Lia List) Param(Param) additions(More_on_positive)