| n→i(# refs) = countrefs(i0 ' + ints0), is_fskey(sk), posints(ints0), 0 ≤ i0 ⊦ sk = _length, sk = _type, (addmultiarrays(refs, i0, [], mktype_from_dims(ty, countdims(i0 ' + ints0, i)), getdims(i0 ' + ints0), st)[r -- sk]) = st[r -- sk] |
⊦ is_fskey(sk) ↔ (∃ fs. sk = fs ')
n→i(# refs) = countrefs(i0 ' + ints0), ∃ fs. sk = fs ', posints(ints0), 0 ≤ i0 ⊦ sk = _length, sk = _type, (addmultiarrays(refs, i0, [], mktype_from_dims(ty, countdims(i0 ' + ints0, i)), getdims(i0 ' + ints0), st)[r -- sk]) = st[r -- sk]
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (sk)]]