fact: Fixpoint alpha_nat n := match n with | 0 => 0 | S p => match p with | 0 => 1 | S r => b_nat * alpha_nat p - alpha_nat r end end.
imports: Arith Lia ZArith Undecidability.Shared.Libs.DLW.Utils(utils_tac gcd prime crt binomial sums) Undecidability.H10.ArithLibs(matrix Zp)