Fixes

lib/miniFun/Types.ml

@@ -76,6 +76,7 @@ let pp_type_f (ty: type_f) : string =
 type ftype = (* type used for specification *)
     IntegerType
   | BooleanType
+  | UnknownType
   | TupleType of ftype * ftype
   | FunctionType of ftype * ftype
 
@@ -134,9 +135,14 @@ type base_error = [
 type typechecking_error = [
   | base_error
   | `WrongTypeSpecification of string
-  | `RecusrionsNotImplemented of string
 ]
 
+type polytypechecking_error = [
+  | typechecking_error
+  | `RecursionNotImplemented of string
+]
+
+
 type error = [
   | base_error
   | `DivisionByZero of string