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/Pair.idr | |
| parent | 0ddaf1b2c9ca66cf0ae03d2f6ad792c7885dfc32 (diff) | |
Add encodings for containers.
Remove useless junk.
Diffstat (limited to 'src/Encoded/Pair.idr')
| -rw-r--r-- | src/Encoded/Pair.idr | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/Encoded/Pair.idr b/src/Encoded/Pair.idr index 32bb06c..42adde5 100644 --- a/src/Encoded/Pair.idr +++ b/src/Encoded/Pair.idr @@ -2,7 +2,6 @@ module Encoded.Pair import Encoded.Bool import Encoded.Union -import Term.Semantics import Term.Syntax export @@ -10,17 +9,6 @@ export ty1 * ty2 = B ~> (ty1 <+> ty2) export -[ShowPair] -{ty1, ty2 : Ty} -> -Show (TypeOf ty1) => -Show (TypeOf ty2) => -Show (TypeOf (ty1 * ty2)) where - show f = fastConcat - [ "(", show (sem prL [<] (f $ sem True [<])) - , ", ", show (sem prR [<] (f $ sem False [<])) - , ")"] - -export pair : {ty1, ty2 : Ty} -> Term (ty1 ~> ty2 ~> (ty1 * ty2)) ctx pair = Abs $ Abs $ Abs $ let t = Var (There $ There Here) in |