fact: Fixpoint Pos_bpow `{M: @EMonoid A E_op E_one E_eq} (x:A)(p:positive) := match p with | xH => x | xO q => Pos_bpow (x * x) q | xI q => binary_power_mult (x * x) x q end.
imports: ZArith Div2 Recdef Relations Morphisms Monoid_def Arith Lia