| ⊦ (lax0 + lax1).to-adr(n) = lax0.to-adr(n) + lax1.to-adr(n) |
∀ lax1, n. (lax + lax1).to-adr(n) = lax.to-adr(n) + lax1.to-adr(n) ⊦ ((ladr + lax) + lax1).to-adr(n) = (ladr + lax).to-adr(n) + lax1.to-adr(n)
Used simplifier rules: adrs-empty: ⊦ ([]).to-adr(n) = [];%to-adrs-eq: ⊦ lax0.to-adr(n) = lax1.to-adr(n) ↔ lax0 = lax1;%laddress-list freely generated by [], +;;% ⊦ [] + lax = lax; (s)%a: ⊦ (lax + lax0) + lax1 = lax + lax0 + lax1; from specification list[laddress-list]% ⊦ [] + ax = ax; (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]