| ¬ # σ < ⌜n⌝ ⊦ #(σ to 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⌝ ;%inf-size-to: ⊦ # ⌜nf to n⌝ = ⌜n⌝ ;%stream freely generated by ⌜ ⌝, ⌜ ⌝;;%inj: ⊦ ⌜m⌝ = ⌜m0⌝ ↔ m = m0; from specification nat-inf-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