diff options
| author | Gaëtan Gilbert | 2020-02-12 12:56:22 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-12 12:56:22 +0100 |
| commit | 0709808440c67832d170c32ff9ee6ac993061144 (patch) | |
| tree | 728a4336c9a2d94e645f27c438e2908fcc5bc289 /checker/check_stat.ml | |
| parent | 2a4d9569570584c300fcb19c3804fe07578eef12 (diff) | |
| parent | b6264bb2df9b73b905af126ede49cd31abf0e7da (diff) | |
Merge PR #11546: Remove the Template Check option.
Reviewed-by: SkySkimmer
Ack-by: Zimmi48
Diffstat (limited to 'checker/check_stat.ml')
| -rw-r--r-- | checker/check_stat.ml | 8 |
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 = |