| ⊦ ar0[n] = a → (id○(ar0, ar1, n) ↔ ar0 = ar1[n, a]) |
⊦ # ar0 = # ar1 ∧ (∀ m. m < # ar0 ∧ m ≠ n → ar0[m] = ar1[m]) ↔ ar0 = ar1[n, ar0[n]]
Used simplifier rules: Idexcept: ⊦ id○(ar0, ar1, n) ↔ ¬ ¬(# ar0 = # ar1 ∧ (∀ m. m < # ar0 ∧ m ≠ n → ar0[m] = ar1[m]));