0 < n ⊦ mklist(a, n)[0] = a
m0 +1 < n, ∀ n, a. m0 < n → mklist(a, n)[m0] = a ⊦ mklist(a, n)[m0 +1] = a
Used simplifier rules: nat freely generated by 0, +1;;