| ⊦ ⌜λ n0. (n0 < #(nf to n) ⊃ (nf to n)[n0];((nf from n))(n0 - #(nf to n)))⌝ = ⌜nf⌝ |
⊦ (n0 < n ⊃ nf(n0);nf((n0 - n) + n)) = nf(n0)
Used simplifier rules: size-inf-to: ⊦ #(nf to n) = n;%get-infto: m < n ⊦ (nf to n)[m] = nf(m);%get-from-inf: ⊦ ((nf from n))(m) = nf(m + n);%inj-01: ⊦ ⌜nf⌝ = ⌜nf0⌝ ↔ nf = nf0; from specification stream-basic%ls-le-simp: ⊦ m < n → (n ≤ m ↔ false); from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat