diff options
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 |