proposition: Fact mult_lt_power_2_4 u v k : u < power k 2 -> v < power k 2 -> u*v < power (4*k) 2.
proof: Proof. intros H1 H2. apply Nat.lt_le_trans with (1 := mult_lt_power_2 _ H1 H2). apply power_mono_l; lia. Qed.
imports: Arith Lia List Bool Undecidability.Shared.Libs.DLW.Utils(utils_tac gcd sums rel_iter bool_nat power_decomp prime)