| m0 < # kar, m0 + 1 < # kar, m0 + 1 < #(keyset(kar, m0) ++ kar[m0]), ¬ m0 < # keyset(kar, m0) ∨ ¬ m0 < # kar ⊦ |
m0 + 1 < #(keyset(kar, m0) ++ kar[m0]), m0 + 1 < # kar, m0 < # kar, # keyset(kar, m0) < # kar, # keyset(kar, m0) ≤ m0 ⊦
Used simplifier rules: fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat% ⊦ m < n ↔ ¬ n ≤ m; (ss)