aboutsummaryrefslogtreecommitdiff
path: root/checker/check_stat.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-02-07 18:13:25 +0100
committerPierre-Marie Pédrot2020-02-09 16:38:14 +0100
commitb6264bb2df9b73b905af126ede49cd31abf0e7da (patch)
tree6eddb39c2870eb12be6d6cdb5cfe15f9eaf55513 /checker/check_stat.ml
parent1820f40590ec358b40e3a9c444f80c5283e55292 (diff)
Remove the Template Check option.
Diffstat (limited to 'checker/check_stat.ml')
-rw-r--r--checker/check_stat.ml8
1 files changed, 2 insertions, 6 deletions
diff --git a/checker/check_stat.ml b/checker/check_stat.ml
index d115744707..8854a23dd5 100644
--- a/checker/check_stat.ml
+++ b/checker/check_stat.ml
@@ -56,10 +56,6 @@ let pr_nonpositive env =
let inds = fold_inductives (fun c cb acc -> if not cb.mind_typing_flags.check_positive then MutInd.to_string c :: acc else acc) env [] in
pr_assumptions "Inductives whose positivity is assumed" inds
-let pr_unsafe_template env =
- let inds = fold_inductives (fun c cb acc -> if not cb.mind_typing_flags.check_template then MutInd.to_string c :: acc else acc) env [] in
- pr_assumptions "Inductives using unchecked template polymorphism" inds
-
let print_context env =
if !output_context then begin
Feedback.msg_notice
@@ -70,8 +66,8 @@ let print_context env =
str "* " ++ hov 0 (pr_axioms env ++ fnl()) ++ fnl() ++
str "* " ++ hov 0 (pr_type_in_type env ++ fnl()) ++ fnl() ++
str "* " ++ hov 0 (pr_unguarded env ++ fnl()) ++ fnl() ++
- str "* " ++ hov 0 (pr_nonpositive env ++ fnl()) ++ fnl() ++
- str "* " ++ hov 0 (pr_unsafe_template env)))
+ str "* " ++ hov 0 (pr_nonpositive env ++ fnl()))
+ )
end
let stats env =