diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-06-18 21:04:23 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-06-18 21:04:23 +0200 |
| commit | 4a0b2ef27a6e31250c56faef0efc0abf611a0cda (patch) | |
| tree | 45b3e259d0c811824d15cd0e08e47c0efee1f8c9 /src/Data/Array/Mixed/Lemmas.hs | |
| parent | 5dbabda5ef848e8b4b58b8dee55e5a22de7ee7d6 (diff) | |
Init on ListX
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 ff2e45c..633c9c2 100644 --- a/src/Data/Array/Mixed/Lemmas.hs +++ b/src/Data/Array/Mixed/Lemmas.hs @@ -105,6 +105,9 @@ lemTakeLenApp :: Rank l1 <= Rank l2 -> TakeLen l1 l2 :~: TakeLen l1 (l2 ++ rest) lemTakeLenApp _ _ _ = unsafeCoerceRefl +lemInitApp :: Proxy l -> Proxy x -> Init (l ++ '[x]) :~: l +lemInitApp _ _ = unsafeCoerceRefl + -- ** KnownNat |