| ∀ gstore, n. abs-log(nx0, gstore -- n) = abs-log(nx0, gstore) ∨ n ∈ nx0 ⊦ abs-log(lnum + nx0, gstore -- n) = abs-log(lnum + nx0, gstore), n ∈ lnum + nx0 |
∀ gstore, n. abs-log(nx0, gstore -- n) = abs-log(nx0, gstore) ∨ n ∈ nx0 ⊦ abs-log(nx0, gstore -- n) = abs-log(nx0, gstore), n = lnum, n ∈ nx0
Used simplifier rules: abs-log-rec: ⊦ abs-log(n ' + nx, gstore) = gstore[n].ladrlist.to-adr(n) + abs-log(nx, gstore);%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ ax + ax0 = ax + ax1 ↔ ax0 = ax1; (s)%n ≠ n0 ⊦ (gstore -- n0)[n] = gstore[n]; (s)%a: ⊦ (nx + nx0) + nx1 = nx + nx0 + nx1; from specification list[nat-list-set]% ⊦ n ∈ n0 ' + nx ↔ ¬(n ≠ n0 ∧ ¬ n ∈ nx); (ss)% ⊦ n + nx = n ' + nx; (s)