subst ec
c n : ℕ
H : SearchUpTo c n
c' n' : ℕ
ec : c + 1 = c'
en : n + 11 = n'
l : List ℕ
el : digits 10 n = l
H' : c = sumOfSquares l → c = 50 ∨ c = 73
⊢ SearchUpTo c' n'
c n : ℕ
H : SearchUpTo c n
n' : ℕ
en : n + 11 = n'
l : List ℕ
el : digits 10 n = l
H' : c = sumOfSquares l → c = 50 ∨ c = 73
⊢ SearchUpTo (c + 1) n'