proposition: Fact fractran_exp_diophantine'' : 𝔻F (fun ν => ν 1 * qs 1 ^ ν 2).
proof: Proof. by dio equiv (fun ν => ν 1 * power (ν 2) (qs 1)). intros. now rewrite power_expo. Qed.
imports: List Arith Undecidability.Shared.Libs(utils_tac utils_list sums rel_iter gcd pos vec) Undecidability.FRACTRAN(FRACTRAN fractran_utils prime_seq) Undecidability.H10.Dio(dio_logic dio_bounded dio_rt_closure dio_single dio_expo)