| n ≠ 0 ⊦ align↑(n0 * n, n) = n0 * n |
0 ≠ m ⊦ align↑(n, m) = (n % m = 0 ⊃ n;(n / m)+1 * m)
[Concretesimprules((Csimpnamedseq(alignup-def,,, 0 ≠ m ⊦ align↑(n, m) = (n % m = 0 ⊃ n;(n / m)+1 * m)) Csimpnamedseq(nat-mult,,eq, ⊦ m0 ≠ 0 → (m * m0 = n * m0 ↔ m = n)) Csimpnamedseq(nat-mult,,mult-c, ⊦ m * n = n * m) Csimpnamedseq(nat-mult,,mult-a, ⊦ m0 * m * n = (m0 * m) * n) Csimpnamedseq(nat-div,,mod-mult-01, n ≠ 0 ⊦ (m * n) % n = 0)))]