enrich
index-array-base
with
predicates id-idx : array × array;
axioms id-idx : ⊦ id-idx(ar1, ar0) ↔ # ar0 = # ar1 ∧ (∀ n. n < # ar0 → ar1[n].elem = ar0[n].elem);
used for: ls;
end enrich