diff options
| author | Tom Smeding <t.j.smeding@uu.nl> | 2024-09-02 17:49:54 +0200 |
|---|---|---|
| committer | Tom Smeding <t.j.smeding@uu.nl> | 2024-09-02 17:50:12 +0200 |
| commit | 7d44dcc2ca2c5c16e1ab4737ef6b2877214767ed (patch) | |
| tree | 42e8b9292403f9ce3a6f04a15ebd62a766880339 /src/Lemmas.hs | |
| parent | 1f7ed2ee02222108684cfde8078e7a182f734a61 (diff) | |
WIP autoWeak
Diffstat (limited to 'src/Lemmas.hs')
| -rw-r--r-- | src/Lemmas.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Lemmas.hs b/src/Lemmas.hs index cb62155..31a43ed 100644 --- a/src/Lemmas.hs +++ b/src/Lemmas.hs @@ -1,6 +1,7 @@ {-# LANGUAGE DataKinds #-} -{-# LANGUAGE TypeOperators #-} {-# LANGUAGE PolyKinds #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} {-# LANGUAGE AllowAmbiguousTypes #-} module Lemmas (module Lemmas, (:~:)(Refl)) where @@ -8,8 +9,10 @@ module Lemmas (module Lemmas, (:~:)(Refl)) where import Data.Type.Equality import Unsafe.Coerce (unsafeCoerce) -import AST.Weaken +type family Append a b where + Append '[] l = l + Append (x : xs) l = x : Append xs l lemAppendNil :: Append a '[] :~: a lemAppendNil = unsafeCoerce Refl |