| ⊦ ⌜nf from n⌝ = ⌜λ n0. (n0 = 0 ⊃ nf(n);nf((n + 1) + n0 -1))⌝ |
⊦ nf(n0 + n) = (n0 = 0 ⊃ nf(n);nf(n + 1 + (n0 - 1)))
Used simplifier rules: get-from-inf: ⊦ ((nf from n))(m) = nf(m + n);%inj-01: ⊦ ⌜nf⌝ = ⌜nf0⌝ ↔ nf = nf0; from specification stream-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%pred-03: ⊦ n -1 = n - 1; from specification nat