| ⊦ # (σ to n).l = n, # σ < ⌜n⌝ |
Used simplifier rules: to-fin: ⊦ ⌜x⌝ to n = ⌜x to n⌝ ;%size-fin: ⊦ # ⌜x⌝ = ⌜# x⌝ ;%length-to: ¬ # x < n ⊦ #(x to n) = n;%to-inf: ⊦ ⌜nf⌝ to n = ⌜nf to n⌝ ;%size-inf-to: ⊦ #(nf to n) = n;%stream freely generated by ⌜ ⌝, ⌜ ⌝;;%sel-02: ⊦ ⌜x⌝ .l = x; from specification stream-basic%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; from specification nat-inf%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%ls-le-simp: ⊦ m < n → (n ≤ m ↔ false); from specification nat