Used simplifier rules: size-fin: ⊦ # ⌜x⌝ = ⌜# x⌝ ;%get-toinf: ⌜m⌝ < n∞, ¬ # σ < n∞ ⊦ (σ to∞ n∞)[m] = σ[m];%sel-fin: ⊦ ⌜x⌝ [n] = x[n];