Petites modifs

main.ml

@@ -112,10 +112,14 @@ if !computetype_option then (
             raise e
         )
     in
-    begin
+    begin match (computeType [] lambda_term) with
-    match (computeType [] lambda_term) with
+      | Some t ->
-        | Some t -> Printf.printf "The type of %s is %s\n" (string_of_lam lambda_term) (string_of_ty t)
+            Printf.printf "The type of %s is %s\n" (string_of_lam lambda_term) (string_of_ty t)
-        | None -> Printf.printf "λ-term %s cannot be typed ! (Therfore, it has to be either wrong or not closed)\n" (string_of_lam lambda_term)
+      | None -> (
+            Printf.printf
+                "λ-term %s can't be typed! (it is not closed or not typable)\n"
+                (string_of_lam lambda_term)
+        )
     end;
     exit 0
 );