| ⊦ prefixn(n, x) = x ↔ n ≥ # x |
⊦ prefixn(n, x) = (n ≤ # x ⊃ firstn(n, x);x)
firstn(n, x) = x, n < # x ⊦ x = []
Used simplifier rules: prefixn: ⊦ prefixn(n, x) = (n ≤ # x ⊃ firstn(n, x);x);% ⊦ # x = 0 ↔ x = []; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m < n → m ≤ n; (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)% ⊦ firstn(# x, x) = x; (s)% ⊦ m ≤ n → (n ≤ m ↔ m = n); (s)% ⊦ n ≥ m ↔ m ≤ n; (s)