Merge branch 'master' of github.com:martonbognar/ASTTool into genterm

SystemF/SystemFImpl.hs

@@ -79,8 +79,7 @@ wellFormed (TyVar i) env             = case (nth env i) of
   Just (ETypeVar _) -> True
   Just Nil -> False
 wellFormed (TyArr ty1 ty2) env = wellFormed ty1 env && wellFormed ty2 env
-wellFormed (TyAll ty) (ETypeVar env) = wellFormed ty env
-wellFormed (TyAll _)  _              = False
+wellFormed (TyAll ty) env      = wellFormed ty (ETypeVar env)
 wellFormed (TyBase) env        = True
 
 typeOf :: Term -> Env -> Either String Type