| ladr.size = a.flashsize, inv(mkblock(x, lax, m0)) ⊦ inv(mkblock(x + a ', lax + ladr ', m1 + a.flashsize)), ladr ∈ lax |
Used simplifier rules: inv-block: ⊦ inv(ablock) ↔ # ablock.list = # ablock.ladrlist ∧ inv-flashsize(ablock.list, ablock.ladrlist) ∧ ¬ dups(ablock.ladrlist);%inv-flashsize-append: ⊦ inv-flashsize(x + a ', lax + ladr ') ↔ inv-flashsize(x, lax) ∧ ladr.size = a.flashsize;% ⊦ ¬ ladr ∈ lax → (dups(lax + ladr ') ↔ dups(lax)); (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m + n = m + n0 ↔ n = n0; (s)%a: ⊦ (lax + lax0) + lax1 = lax + lax0 + lax1; from specification list[laddress-list]% ⊦ # ladr ' = 0 +1; (s)% ⊦ #(lax + lax0) = # lax + # lax0; (s)%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ # a ' = 0 +1; (s)% ⊦ #(x + y) = # x + # y; (s)% ⊦ mkblock(x, lax, m).ladrlist = lax; (s)% ⊦ mkblock(x, lax, m).list = x; (s)