Used simplifier rules: a: ⊦ (str + str0) + str1 = str + str0 + str1; from specification list[string]%⊦ # str = # str0 → (str1 + str = str2 + str0 ↔ str1 = str2 ∧ str = str0); (ws)