| ⊦ addarrays(refs, ty, ints, i, st) = (((ints ≠ [] ∧ n→i(# refs) = countrefs(ints) ∧ posints(ints)) ⊃ addmultiarrays(refs, ints .first, [], mktype_from_dims(ty, countdims(ints, i)), getdims(ints), st) ; st ) ) |
ints ≠ [] ∧ n→i(# refs) = countrefs(ints) ∧ posints(ints) ⊦ addarrays(refs, ty, ints, i, st) = addmultiarrays(refs, ints .first, [], mktype_from_dims(ty, countdims(ints, i)), getdims(ints), st)
ints = [] ∨ n→i(# refs) ≠ countrefs(ints) ∨ ¬ posints(ints) ⊦ addarrays(refs, ty, ints, i, st) = st
[[CONCRETESIMPRULES : ()]]