| jvalid ↔ false, ax = ax0 + gstore2[n].ladrlist.to-adr(n), err = ESUCCESS, err = err0, gndx = gndx0 + gstore2[n].gndlist, gndx0 = [], log = ax, inv(gstore2), n ∈ gstore2, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪while ¬ jvalid ∧ gndx ≠ [] do {/* (term-remove-nonend-blocks: invariant # gndx ≤ # log ∧ inv(gstore2) wfbound (jvalid ⊃ 0;# gndx)) */; if gndx.last.end then jvalid := true else {log := log.butlast; gndx := gndx.butlast}}⟫ true, n ∈ ginval |
jvalid ↔ false, ax = ax0 + gstore2[n].ladrlist.to-adr(n), err = err0, err = ESUCCESS, gndx = gndx0 + gstore2[n].gndlist, gndx0 = [], log = ax, inv(gstore2), n ∈ gstore2, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ n ∈ ginval, # gndx ≤ # log ∧ inv(gstore2)
jvalid1 ↔ false, jvalid ↔ jvalid0, ax = ax0 + gstore2[n].ladrlist.to-adr(n), err = err0, err = ESUCCESS, gndx = gndx1, gndx0 = [], gndx2 = gndx0 + gstore2[n].gndlist, ¬ jvalid, log0 = ax, inv(gstore2), n ∈ gstore2, # gndx ≤ # log, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪if gndx.last.end then jvalid := true else {log := log.butlast; gndx := gndx.butlast}⟫ ((# gndx ≤ # log ∧ inv(gstore2)) ∧ (jvalid ⊃ 0;# gndx) < (jvalid0 ⊃ 0;# gndx1)), gndx = [], n ∈ ginval
Used formulas: # gndx ≤ # log ∧ inv(gstore2), (jvalid ⊃ 0;# gndx) = (jvalid ⊃ 0;# gndx)