| unmapped-vols(vols) ⊦ recs ⊥ vols |
m < # vols[v], v ∈ vols, v × m ∈ recs, ∀ v, m. v ∈ vols ∧ m < # vols[v] → vols[v][m] = unmapped ⊦ vols[v][m] = unmapped
Used simplifier rules: unmapped-vols: ⊦ unmapped-vols(vols) ↔ (∀ v, m. v ∈ vols ∧ m < # vols[v] → vols[v][m] = unmapped);%disj: ⊦ recs ⊥ vols ↔ (∀ v, m. ¬ v × m ∈ recs ∨ ¬ v ∈ vols ∨ ¬ m < # vols[v] ∨ vols[v][m] = unmapped);% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic