diff options
| author | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2026-08-13 00:57:08 -0500 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2026-08-13 00:57:08 -0500 |
| commit | 154ad08032f9719b0ad32aa357742fe12ff4899a (patch) | |
| tree | eca96e985fd493c93165b188c07f5b9af884babc /Data/Matrix/Raw.agda | |
| parent | 1e73f2658f6d8d1559649b2cd97040f494dc1c96 (diff) | |
Show free semimodule functor is cartesian
Diffstat (limited to 'Data/Matrix/Raw.agda')
| -rw-r--r-- | Data/Matrix/Raw.agda | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Data/Matrix/Raw.agda b/Data/Matrix/Raw.agda index f2ad431..ecd5e9f 100644 --- a/Data/Matrix/Raw.agda +++ b/Data/Matrix/Raw.agda @@ -104,6 +104,9 @@ opaque ∷ₕ-≑ [] W [] N = ≡.refl ∷ₕ-≑ (x ∷ V) W (M₀ ∷ M) N = ≡.cong ((x ∷ M₀) ∷_) (∷ₕ-≑ V W M N) + ∷ᵥ-∥ : (V : Vec A n) (W : Vec A m) (M : Matrix A n p) (N : Matrix A m p) → (V ++ W) ∷ᵥ (M ∥ N) ≡ (V ∷ᵥ M) ∥ (W ∷ᵥ N) + ∷ᵥ-∥ {_} {A} {n} {m} {p} V W M N = ≡.refl + headᵥ : Matrix A n (suc m) → Vec A n headᵥ = head |