diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 18:59:36 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 19:38:45 +0200 |
commit | 371d69b334837c51d0dc998ddefbd072ac8dde2f (patch) | |
tree | d030b2e5fbd6fe9c7bba68e5fb80d2546ab96f92 /checker/checker.ml | |
parent | ecb032467557631ea60324c6afa55c91c133e40d (diff) |
Fixing the checker.
I had to remove code handling the -type-in-type option introduced by commit
9c732a5. We should fix it at some point, but I am not sure that using the
checker with a system known to be blatantly inconsistent makes much sense
anyway.
Diffstat (limited to 'checker/checker.ml')
-rw-r--r-- | checker/checker.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index 9d76fb09e..2c872f272 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -140,9 +140,7 @@ let set_debug () = Flags.debug := true let impredicative_set = ref Cic.PredicativeSet let set_impredicative_set () = impredicative_set := Cic.ImpredicativeSet -let type_in_type = ref Cic.StratifiedType -let set_type_in_type () = type_in_type := Cic.TypeInType -let engage () = Safe_typing.set_engagement (!impredicative_set,!type_in_type) +let engage () = Safe_typing.set_engagement (!impredicative_set) let admit_list = ref ([] : section_path list) @@ -192,7 +190,6 @@ let print_usage_channel co command = \n -silent disable trace of constants being checked\ \n\ \n -impredicative-set set sort Set impredicative\ -\n -type-in-type collapse type hierarchy\ \n\ \n -h, --help print this list of options\ \n" @@ -313,8 +310,6 @@ let parse_args argv = | [] -> () | "-impredicative-set" :: rem -> set_impredicative_set (); parse rem - | "-type-in-type" :: rem -> - set_type_in_type (); parse rem | "-coqlib" :: s :: rem -> if not (exists_dir s) then |