diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2016-11-22 17:08:14 +0100 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2017-06-14 07:19:50 +0200 |
| commit | 571c319ed536cb2757176d3ae4007a75f5d3b04d (patch) | |
| tree | 24e1f0bbc1ee22c9430c62a0b3d66f0c27ebcf17 /pretyping | |
| parent | 80dfe0cb64285f58dfe2eebd7319c747c70d3d6b (diff) | |
Remove support for Coq 8.2.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/classops.ml | 8 | ||||
| -rw-r--r-- | pretyping/unification.ml | 1 |
2 files changed, 2 insertions, 7 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index 9a973cff5..627a9c9cc 100644 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -454,15 +454,11 @@ let cache_coercion (_, c) = add_coercion_in_graph (xf,is,it) let load_coercion _ o = - if - !automatically_import_coercions || Flags.version_less_or_equal Flags.V8_2 - then + if !automatically_import_coercions then cache_coercion o let open_coercion i o = - if Int.equal i 1 && not - (!automatically_import_coercions || Flags.version_less_or_equal Flags.V8_2) - then + if Int.equal i 1 && not !automatically_import_coercions then cache_coercion o let subst_coercion (subst, c) = diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 0fb48ed8c..3e0eb9d91 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -481,7 +481,6 @@ let set_flags_for_type flags = { flags with let use_evars_pattern_unification flags = !global_pattern_unification_flag && flags.use_pattern_unification - && Flags.version_strictly_greater Flags.V8_2 let use_metas_pattern_unification sigma flags nb l = !global_pattern_unification_flag && flags.use_pattern_unification |