| ⊦ ( # x = #((λ n. (n < # x ⊃ x[n];nf0(n - # x))) to # x) ∧ (∀ n. n < # x → x[n] = ((λ n. (n < # x ⊃ x[n];nf0(n - # x))) to # x)[n])) ∧ nf0 = (λ n. (n < # x ⊃ x[n];nf0(n - # x))) from # x |
⊦ nf0 = (λ n. (n < # x ⊃ x[n];nf0(n - # x))) from # x
Used simplifier rules: size-inf-to: ⊦ #(nf to n) = n;%get-infto: m < n ⊦ (nf to n)[m] = nf(m);% ⊦ m < n → (n ≤ m ↔ false); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)