| st0 ⊆ st1, ∀ r, st1, st0, vals0. # vals0 < # [] → (st0 ⊆ st1 → addarray(r, byte_type, vals0, st0) ⊆ addarray(r, byte_type, vals0, st1)) ⊦ addarray(r, [], 0, st0[r -- _type, typeval(mkarraytype(byte_type))][r -- _length, intval(n→i(# []))]) ⊆ addarray(r, byte_type, [], st1) |
⊦ addarray(r, [], i, st) = st
st0 ⊆ st1, ∀ r, st1, st0, vals0. # vals0 < # [] → (st0 ⊆ st1 → addarray(r, byte_type, vals0, st0) ⊆ addarray(r, byte_type, vals0, st1)) ⊦ (st0[r -- _type, typeval(mkarraytype(byte_type))][r -- _length, intval(0)]) ⊆ addarray(r, byte_type, [], st1)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ # [] = 0])]]