diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-22 17:57:48 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-22 17:57:48 +0100 |
| commit | 6385ecf96cd60885c221e3144b5a5ec63eb5c831 (patch) | |
| tree | 541d06feb1517e91f62ab60854b80bb29343784c /src/Encoded/Vect.idr | |
| parent | 0ddaf1b2c9ca66cf0ae03d2f6ad792c7885dfc32 (diff) | |
Add encodings for containers.
Remove useless junk.
Diffstat (limited to 'src/Encoded/Vect.idr')
| -rw-r--r-- | src/Encoded/Vect.idr | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/Encoded/Vect.idr b/src/Encoded/Vect.idr index a427196..064de5f 100644 --- a/src/Encoded/Vect.idr +++ b/src/Encoded/Vect.idr @@ -6,7 +6,6 @@ import Encoded.Bool import Encoded.Pair import Encoded.Fin -import Term.Semantics import Term.Syntax export @@ -14,13 +13,6 @@ Vect : Nat -> Ty -> Ty Vect k ty = Fin k ~> ty export -[ShowVect] -{k : Nat} -> -Show (TypeOf ty) => -Show (TypeOf (Vect k ty)) where - show f = "[" ++ joinBy ", " (map (show . f) $ allSem k) ++ "]" - -export nil : {ty : Ty} -> Term (Vect 0 ty) ctx nil = absurd |