fact: Variables (P : nat -> Type) (HP0 : P 0) (HP1 : P 1) (HPp : forall p, prime p -> P p) (HPm : forall x y, P x -> P y -> P (x*y)).
imports: List Arith Lia Bool Permutation Undecidability.Shared.Libs.DLW.Utils(utils_tac utils_list utils_nat gcd sums)