| m < 10, ∀ m1. m1 < m → true → s→n(n→s(m1)) = m1 ⊦ s→n(('0' + '1' + '2' + '3' + '4' + '5' + '6' + '7' + ('8' + '9'))[m] + "") = m |
m < 10, ∀ m1. m1 < m → true → s→n(n→s(m1)) = m1 ⊦ s→n(('0' ' + '1' ' + '2' ' + '3' ' + '4' ' + '5' ' + '6' ' + '7' ' + '8' ' + '9' ')[m] ') = m
Used simplifier rules: f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%assoc: ⊦ (str1 + str2) + str3 = str1 + str2 + str3; from specification string-append%empty-01: ⊦ str1 + "" = str1; from specification string-append%chartostring-01: ⊦ char + str = char ' + str; from specification string-append%c: ⊦ char + chars = char ' + chars; from specification list[charlist]%Two: ⊦ char + char0 = char ' + char0 '; from specification list[charlist]