From 371d69b334837c51d0dc998ddefbd072ac8dde2f Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Sat, 18 Jun 2016 18:59:36 +0200 Subject: 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. --- checker/check_stat.ml | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'checker/check_stat.ml') diff --git a/checker/check_stat.ml b/checker/check_stat.ml index a63705adc..f196746a5 100644 --- a/checker/check_stat.ml +++ b/checker/check_stat.ml @@ -23,16 +23,11 @@ let print_memory_stat () = let output_context = ref false -let pr_engagement (impr_set,type_in_type) = +let pr_engagement impr_set = begin match impr_set with | ImpredicativeSet -> str "Theory: Set is impredicative" | PredicativeSet -> str "Theory: Set is predicative" - end ++ fnl() ++ - begin - match type_in_type with - | StratifiedType -> str "Theory: Stratified type hierarchy" - | TypeInType -> str "Theory: Type is of type Type" end let cst_filter f csts = -- cgit v1.2.3