fact: Fixpoint fastexp2 (m : list Z) (p : positive) (acc : list Z) : list Z := match p with | xH => acc | xO p => fastexp2 m p (m3lmul acc acc) | xI p => fastexp2 m p (m3lmul m (m3lmul acc acc)) end.
imports: Coq(Extraction ZArith Lia) mathcomp(all_ssreflect all_algebra)