diff options
| author | Amin Timany | 2017-05-24 23:46:23 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-06-16 04:51:19 +0200 |
| commit | 249a1910a2474216b7f98491afafc6019a04c894 (patch) | |
| tree | 074ad56381a75012b2f09ba5e5f6a94b5c25cdf8 | |
| parent | 81a22cd3bee8fa6144d4eb46128ee8bb287ecb36 (diff) | |
Remove Warnings: unused value ...
| -rw-r--r-- | proofs/proof_global.ml | 1 | ||||
| -rw-r--r-- | vernac/vernacentries.ml | 6 |
2 files changed, 0 insertions, 7 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index f5664aed00..d5fbdbb830 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -336,7 +336,6 @@ let close_proof ~keep_body_ucst_separate ?feedback_id ~now let make_body = if poly || now then let make_body t (c, eff) = - let open Universes in let body = c in let typ = if not (keep_body_ucst_separate || not (Safe_typing.empty_private_constants = eff)) then diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 957911e1e5..21f053fb9b 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -2091,12 +2091,6 @@ let enforce_polymorphism = function | None -> Flags.is_universe_polymorphism () | Some b -> Flags.make_polymorphic_flag b; b -let check_vernac_supports_cumulativity c p = - match p, c with - | None, _ -> () - | Some _, (VernacInductive _ ) -> () - | Some _, _ -> CErrors.error "This command does not support Cumulativity" - (** A global default timeout, controlled by option "Set Default Timeout n". Use "Unset Default Timeout" to deactivate it (or set it to 0). *) |