| m ≤ n ⊦ ⌜x⌝ to n to m = ⌜x⌝ to m, # ⌜x⌝ < ⌜n⌝ |
m ≤ n, n ≤ # x, m ≤ # x ⊦ x to n to m = x to m
Used simplifier rules: to-fin: ⊦ ⌜x⌝ to n = ⌜x to n⌝ ;%size-fin: ⊦ # ⌜x⌝ = ⌜# x⌝ ;%let: ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1; (forward) from specification nat% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; (s)% ⊦ ⌜x⌝ = ⌜x0⌝ ↔ x = x0; (s)