| ⊦ # ar[n, a] = # ar[n, b] ∧ (∀ n0. n0 < # ar[n, a] → ar[n, a][n0] = ar[n, b][n0]) ↔ n < # ar → a = b |
n < # ar, ∀ n0. n0 < # ar → ar[n, a][n0] = ar[n, b][n0] ⊦ a = b, # ar = 0
Used simplifier rules: Size-put: ⊦ # ar[n, a] = # ar;%cngetput: m ≠ n ⊦ ar[m, a][n] = ar[n];%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1