Used simplifier rules: put-app-left: ⊦ n < # x → (x + y)[n, a] = x[n, a] + y;%app-01: ⊦ x + y = x + z ↔ y = z; from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list