Commit a5f1732e authored by Gilles Coremans's avatar Gilles Coremans
Browse files

Add number term support

parent 2949dab7
......@@ -84,3 +84,4 @@ typeOf (TmTApp t ty) ctx =
typeOf (TmTAbs t) ctx = do
ty <- typeOf t (ETypeVar ctx)
return (TyAll ty)
typeOf (TmNum _) ctx = Right TyBase
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment