| n0 < # ar ⊦ m = n, ar[m, a][n, b][n0] = ar[n, b][m, a][n0], # ar = 0 |
n0 < # ar ⊦ n0 = n, m = n, ar[m, a][n, b][n0] = ar[n, b][m, a][n0], # ar = 0
Used simplifier rules: Size-put: ⊦ # ar[n, a] = # ar;%cgetput: m < # ar ⊦ ar[m, a][m] = a;%Put-other: ⊦ m ≠ n → ar[n, a][m] = ar[m];%Put-same: ⊦ m < # ar → ar[m, a][m] = a;%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%ls-le-simp: ⊦ m < n → (n ≤ m ↔ false); from specification nat Used formulas: n0 = n