Used simplifier rules: cngetput: m ≠ n ⊦ ar[m, a][n] = ar[n];%ref-1: ⊦ ¬ n < n; from specification nat-basic1