diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2024-01-22 12:11:20 +0000 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2024-01-22 12:11:20 +0000 |
| commit | f0f44fe7815435836bc625e837e891188ae8d801 (patch) | |
| tree | a695ae6fee918ffa653502ad000e75997d221d75 /src/Term/Syntax.idr | |
| parent | 5d5807f215805f1e235a0ad0546f995dd19a6767 (diff) | |
Fix some bug?
I don't really know. I haven't read this in a long time.
Diffstat (limited to 'src/Term/Syntax.idr')
| -rw-r--r-- | src/Term/Syntax.idr | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Term/Syntax.idr b/src/Term/Syntax.idr index d403440..5a134a2 100644 --- a/src/Term/Syntax.idr +++ b/src/Term/Syntax.idr @@ -43,7 +43,8 @@ t `mod` u = App (App (Op Mod) t) u export Arb : {ty : Ty} -> Term ty ctx -Arb = Op (Arb ty) +Arb {ty = N} = Op (Lit 0) +Arb {ty = ty ~> ty'} = Const Arb export inL : {ty1, ty2 : Ty} -> Term (ty1 ~> (ty1 <+> ty2)) ctx |