diff options
| author | Tom Smeding <t.j.smeding@uu.nl> | 2024-06-19 15:57:43 +0200 |
|---|---|---|
| committer | Tom Smeding <t.j.smeding@uu.nl> | 2024-06-19 15:57:43 +0200 |
| commit | aafe5f6b5fa772d0e2e9f9b4f91bc3e7cf696840 (patch) | |
| tree | c0d0d81a9c40f72adf041b165819ab0c7daa44bf /src/Data/Array/Mixed/Lemmas.hs | |
| parent | 97ab8502b9cd3f7d908160d13c7d85d23c99e203 (diff) | |
Add {m,r,s}dot1Inner
Diffstat (limited to 'src/Data/Array/Mixed/Lemmas.hs')
| -rw-r--r-- | src/Data/Array/Mixed/Lemmas.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Data/Array/Mixed/Lemmas.hs b/src/Data/Array/Mixed/Lemmas.hs index 633c9c2..ec7e7bd 100644 --- a/src/Data/Array/Mixed/Lemmas.hs +++ b/src/Data/Array/Mixed/Lemmas.hs @@ -108,6 +108,9 @@ lemTakeLenApp _ _ _ = unsafeCoerceRefl lemInitApp :: Proxy l -> Proxy x -> Init (l ++ '[x]) :~: l lemInitApp _ _ = unsafeCoerceRefl +lemLastApp :: Proxy l -> Proxy x -> Last (l ++ '[x]) :~: x +lemLastApp _ _ = unsafeCoerceRefl + -- ** KnownNat |