fact: Definition count_pow (p n : nat) : nat := let (l, _) := (@prime_decomp (S n) (Nat.neq_succ_0 n)) in count_occ Nat.eq_dec l p.
imports: Coq(List Arith Lia Permutation Wf_nat) Undecidability.Shared.Libs.DLW(gcd prime) Undecidability.FRACTRAN(FRACTRAN fractran_utils)