type_invention_error : bool ref
# let tm = `x = x`;; Warning: inventing type variables val tm : term = `x = x`
# type_invention_error := true;; val it : unit = () # let tm = `x = x`;; Exception: Failure "typechecking error (cannot infer type of variables): =, x".
# let tm = `(x:int) = x`;; val tm : term = `x = x`