From 032398fb5e2bc88e911f60ddfc4982a3826b55cd Mon Sep 17 00:00:00 2001 From: Gaƫtan Gilbert Date: Tue, 19 Feb 2019 13:04:09 +0100 Subject: Make inductive cumulativity flag local to vernacentries --- lib/flags.ml | 4 ---- 1 file changed, 4 deletions(-) (limited to 'lib/flags.ml') diff --git a/lib/flags.ml b/lib/flags.ml index 768d359cce..1195b8caf1 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -101,10 +101,6 @@ let verbosely f x = without_option quiet f x let if_silent f x = if !quiet then f x let if_verbose f x = if not !quiet then f x -let polymorphic_inductive_cumulativity = ref false -let make_polymorphic_inductive_cumulativity b = polymorphic_inductive_cumulativity := b -let is_polymorphic_inductive_cumulativity () = !polymorphic_inductive_cumulativity - let warn = ref true let make_warn flag = warn := flag; () let if_warn f x = if !warn then f x -- cgit v1.2.3