| m < # avols[v], abs(avols, apebs, vols, q), v ∈ avols ⊦ m < # vols[v] |
# vols[v] < # avols[v], m < # avols[v], v ∈ avols, # vols[v] ≤ m, ∀ v. (v ∈ vols ↔ v ∈ avols) ∧ ( v ∈ vols → # vols[v] = # avols[v] ∧ (∀ m. m < # vols[v] → (vols[v][m] = unmapped → ¬ avols[v][m].mapped?) ∧ ( vols[v][m] ≠ unmapped → avols[v][m].mapped? ∧ avols[v][m].data = apebs[vols[v][m].pnum].data ∧ apebs[vols[v][m].pnum].fill ≤ avols[v][m].fill) ∧ (avols[v][m] = erased → ¬ v × m ∈ q))) ⊦
Used simplifier rules: abs-def: ⊦ abs(avols, apebs, vols, q) ↔ (∀ v. (v ∈ vols ↔ v ∈ avols) ∧ ( v ∈ vols → # vols[v] = # avols[v] ∧ (∀ m. m < # vols[v] → (vols[v][m] = unmapped → ¬ avols[v][m].mapped?) ∧ ( vols[v][m] ≠ unmapped → avols[v][m].mapped? ∧ avols[v][m].data = apebs[vols[v][m].pnum].data ∧ apebs[vols[v][m].pnum].fill ≤ avols[v][m].fill) ∧ (avols[v][m] = erased → ¬ v × m ∈ q))));% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat% ⊦ m < n ↔ ¬ n ≤ m; (ss)