| # str = 1, str = str0 + str1, 1 < # str0 ⊦ |
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m ≠ 1 → (m + n = 1 ↔ m = 0 ∧ n = 1); (ws)% ⊦ # str = 0 ↔ str = ""; (s)% ⊦ 1 < m ↔ ¬(m = 0 ∨ m = 1); (s)%a: ⊦ (str + str0) + str1 = str + str0 + str1; from specification list[string]% ⊦ #(str + str0) = # str + # str0; (s)