| ⌜n⌝ < # ⌜x⌝ ⊦ ⌜x⌝ from n = ⌜⌜x⌝ [n] '⌝ + (⌜x⌝ from n + 1) |
n < # x ⊦ x[n] ' + (x from n + 1) = x from n, x = []
Used simplifier rules: from-fin: ⊦ ⌜x⌝ from n = ⌜x from n⌝ ;%sel-fin: ⊦ ⌜x⌝ [n] = x[n];%eq-stream-to-list-2-1: ⊦ ⌜x⌝ + ⌜y⌝ = ⌜z⌝ ↔ x + y = z;%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2;%size-fin: ⊦ # ⌜x⌝ = ⌜# x⌝ ;%l: ⊦ # x = 0 ↔ x = []; from specification list-data%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; from specification nat-inf