| ⊦ (# 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);%ls-le-simp: ⊦ m < n → (n ≤ m ↔ false); from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat