| ⊦ id-idx(ar1[m, ar1[m].idx:= m0], ar0) ↔ id-idx(ar1, ar0) |
# ar0 = # ar1 ⊦ (∀ n. n < # ar1 → ar1[m, ar1[m].idx:= m0][n].elem = ar0[n].elem) ↔ (∀ n. n < # ar1 → ar1[n].elem = ar0[n].elem)
Used simplifier rules: id-idx: ⊦ id-idx(ar1, ar0) ↔ # ar0 = # ar1 ∧ (∀ n. n < # ar0 → ar1[n].elem = ar0[n].elem);% ⊦ # ar[n, ei] = # ar; (s)