| ⌜nf⌝ = ⌜λ n. (n < # x ⊃ x[n];nf0(n - # x))⌝ ⊦ x = nf to # x ∧ nf0 = nf from # x |
⊦ x = (λ n. (n < # x ⊃ x[n];nf0(n - # x))) to # x ∧ nf0 = (λ n. (n < # x ⊃ x[n];nf0(n - # x))) from # x
Used simplifier rules: inj-01: ⊦ ⌜nf⌝ = ⌜nf0⌝ ↔ nf = nf0; from specification stream-basic