| A.cols = B.rows, m2 = 0, C1 = A.rows × B.cols, m ≤ C2.rows, C2.rows = A.rows, C2.cols = B.cols, ∀ m0, n0. m0 < C2.rows ∧ n0 < C2.cols → C2[m0, n0] = C1[m0, n0] + (m0 < m ∧ n0 < C2.cols ⊃ Σ(B.rows, λ k. A[m0, k] * B[k, n0]);0), C2 = C0, m = m1, m < C2.rows, k1 = 0, k ≤ B.rows, C.rows = A.rows, C.cols = B.cols, ∀ m0, n0. m0 < C.rows ∧ n0 < C.cols → C[m0, n0] = C2[m0, n0] + (m0 = m ∧ n0 < C.cols ⊃ Σ(k, λ k. A[m0, k] * B[k, n0]);0), ¬ k < B.rows, ( ¬ m + 1 ≤ C.rows ∨ C.rows ≠ A.rows ∨ C.cols ≠ B.cols ∨ (∃ m0, n0. ¬(m0 < C.rows ∧ n0 < C.cols → C[m0, n0] = C1[m0, n0] + (m0 < m + 1 ∧ n0 < C.cols ⊃ Σ(B.rows, λ k. A[m0, k] * B[k, n0]);0)))) ∨ ¬ C.rows - m + 1 < C0.rows - m1 ⊦ |
A.cols = B.rows, C0.rows = A.rows, C0.cols = B.cols, C.rows = A.rows, C.cols = B.cols, n < B.cols, m < A.rows, m1 < A.rows, ∀ m0, n0. m0 < A.rows ∧ n0 < B.cols → C0[m0, n0] = (m0 < m1 ⊃ Σ(B.rows, λ k. A[m0, k] * B[k, n0]);0), ∀ m, n. m < A.rows ∧ n < B.cols → C[m, n] = C0[m, n] + (m = m1 ⊃ Σ(B.rows, λ k. A[m1, k] * B[k, n]);0) ⊦ B.cols = 0, C[m, n] = (¬ m1 < m ⊃ Σ(B.rows, λ k. A[m, k] * B[k, n]);0), A.rows = 0
Used simplifier rules: ref-1: ⊦ ¬ n < n; from specification nat-basic1%add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%add-zero-rev: ⊦ 0 + i = i; from specification int-basic2%at-base: ⊦ m0 < m ∧ n0 < n → (m × n)[m0, n0] = 0; from specification matrix%ler: ⊦ m ≤ m; from specification nat%prop-07: ⊦ n < m → (m - n) + n = m; from specification nat%ls-01: n0 ≤ n ⊦ n - n0 < m ↔ n < m + n0; from specification nat%le-ls-simp: ⊦ m ≤ n → (n < m ↔ false); from specification nat%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic1%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%s: ⊦ m < n + 1 ↔ ¬ n < m; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%succ-01: ⊦ m + 1 ≤ n ↔ m < n; from specification nat%anti: ⊦ m ≤ n → (n ≤ m ↔ m = n); from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%lels-03: ⊦ m < n → m ≤ n; from specification nat