fact: Hypothesis (H18 : 1+(r-1)*w = power (S (power (S l) 2)) r) (H19 : u*u = u1 + u2) (H20 : u1 = (u*u) ⇣ w) (H21 : u2 = (u*u) ⇣ (2*w)) (H22 : power 2 r + u1 = u + power (power (S l) 2) r) (H23 : divides (power 4 r) u1).
imports: Arith Lia List Bool Undecidability.Shared.Libs.DLW.Utils(utils_tac gcd sums rel_iter bool_nat power_decomp prime)