| n ≠ 0 ⊦ align↓(m, n) = 0 ↔ m < n |
0 ≠ m ⊦ align↓(n, m) = (n % m = 0 ⊃ n;n / m * m)
[Concretesimprules((Csimpnamedseq(aligndown-def,,, 0 ≠ m ⊦ align↓(n, m) = (n % m = 0 ⊃ n;n / m * m)) Csimpnamedseq(nat,,lels, ⊦ ¬ m < n ↔ n ≤ m) Csimpnamedseq(nat-mult,,mult-c, ⊦ m * n = n * m) Csimpnamedseq(nat-mult,,mult-a, ⊦ m0 * m * n = (m0 * m) * n) Csimpnamedseq(nat-mult,,mult-base, ⊦ m * 0 = 0) Csimpnamedseq(nat-div,,zero-01, ⊦ m < n → m / n = 0) Csimpnamedseq(nat-div,,mod-eq, ⊦ m < n → m % n = m)))]