| ⊦ char ' + str0 = "", l→s(sublist(0, m + 1, s→l(char ' + str0))) = char ' + substring(str0, 0, m) |
⊦ char ' + str0 = "", l→s(sublist(0, m + 1, char ' + s→l(str0))) = char ' + substring(str0, 0, m)
Used simplifier rules: assoc: ⊦ (str1 + str2) + str3 = str1 + str2 + str3; from specification string-append%s2l-rec: ⊦ s→l(char ' + str) = char ' + s→l(str); from specification string2list