∀[n:ℕ]. ∀[f:Top].  (mklist(n + 1;f) ~ mklist(n;f) @ [f n])
{ (UnivCD THENA Auto) }
1. n : ℕ
2. f : Top
⊢ mklist(n + 1;f) ~ mklist(n;f) @ [f n]