| ∀ x0. (⌜x1⌝ + ⌜x0⌝ ).l = x1 + x0 ⊦ (⌜a + x1⌝ + ⌜x0⌝ ).l = (a + x1) + x0 |
∀ x0. (⌜x1⌝ + ⌜x0⌝ ).l = x1 + x0 ⊦ (⌜x1⌝ + ⌜x0⌝ ).l = x1 + x0
Used simplifier rules: append-finfin: ⊦ ⌜x + y⌝ = ⌜x⌝ + ⌜y⌝ ;%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;%finp-append-02: ⊦ finp(⌜x⌝ + σ) ↔ finp(σ);%cons-extract-list: finp(σ) ⊦ (⌜a '⌝ + σ).l = a ' + σ.l;%app-08: ⊦ a ' + x = a ' + y ↔ x = y; from specification list%test-02: ⊦ finp(⌜x⌝ ); from specification stream-basic%a: ⊦ (x + y) + z = x + y + z; from specification list%c: ⊦ a + x = a ' + x; from specification list