diff options
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 |