| is_array(r, st) ⊦ val2int(st[r -- _length]) = st[r -- _length] .intval |
⊦ is_integervalue(val) → val2int(val) = val .intval
⊦ is_array(r, st) → is_integervalue(st[r -- _length])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_integervalue(val) → val .intval = 0])], [EXTRATERMS : (st[r -- _length])]]