Used simplifier rules: cgetput: m < # ar ⊦ ar[m, a][m] = a;%cngetput: m ≠ n ⊦ ar[m, a][n] = ar[n];% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m < n → (n ≤ m ↔ false); (s) Used formulas: n = m