Remove typecheck

main.ml

@@ -77,7 +77,7 @@ if !alpha_option then (
     exit 0
 );
 
-if !typecheck_option then (
+(*if !typecheck_option then (
     let lexbuf = Lexing.from_channel (match file with
       | None -> stdin
       | Some file -> file
@@ -92,13 +92,13 @@ if !typecheck_option then (
        )
     in
     Printf.printf "The type of %s is " (string_of_lam lambda_term);
-    if typecheck lambda_term then (
+    if typecheck [] lambda_term then (
         Printf.printf "correct\n"
     ) else (
         Printf.printf "incorrect\n"
     );
     exit 0
-);
+);*)
 
 (* Show a message only if the input is read from stdin *)
 let show s = match file with