rw [primesSuccEqPrimesSelf hp, Nat.add_one]
case not_prime.succ
n : ℕ
hp : ¬Nat.Prime (Nat.succ (Nat.succ n))
hi : prodPrimes (Nat.succ n) ≤ 4 ^ n
⊢ ∏ p in primes (Finset.range (Nat.succ (Nat.succ (Nat.succ n)))), p ≤ 4 ^ (n + 1)
case not_prime.succ
n : ℕ
hp : ¬Nat.Prime (Nat.succ (Nat.succ n))
hi : prodPrimes (Nat.succ n) ≤ 4 ^ n
⊢ ∏ p in primes (Finset.range (Nat.succ (Nat.succ n))), p ≤ 4 ^ Nat.succ n