First run of the typechecker.

demos/system-F-type/Main.ml

-module T = FTypeChecker
+open Printf
+open AlphaLib
+open F
+open FTypeChecker
+
+let identity : raw_term =
+  TeTyAbs ("A", TeAbs ("x", TyArrow (TyVar "A", TyVar "A"), TeVar "x"))
+
+let identity : nominal_term =
+  import_term KitImport.empty identity
+
+let ty : nominal_typ =
+  typeof identity
+
+let ty : raw_typ =
+  export_typ KitExport.empty ty
+
+let () =
+  printf "Success.\n%!"