From 9d7499dcd4440aca458cb190ed108ae9b3adff17 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sat, 18 Jun 2011 20:35:22 +0000 Subject: Generalizing flag use_evars_pattern_unification into a flag use_pattern_unification common for evars and metas. As a compensation, add a flag use_meta_bound_pattern_unification to restore the old mechanism of pattern unification for metas applied to rels only (this is used e.g. by auto). Not sure yet, what could be the most appropriate set of flags. Added documentation of the flags. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14221 85f007b7-540e-0410-9357-904b9bb8a0f7 --- lib/flags.ml | 2 +- lib/flags.mli | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/flags.ml b/lib/flags.ml index e8763bc79f..b9965af5dd 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -36,7 +36,7 @@ let raw_print = ref false (* Compatibility mode *) -type compat_version = V8_2 +type compat_version = V8_2 | V8_3 let compat_version = ref None let version_strictly_greater v = match !compat_version with None -> true | Some v' -> v'>v diff --git a/lib/flags.mli b/lib/flags.mli index f7e3c17597..4fd042e225 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -25,7 +25,7 @@ val load_proofs : load_proofs ref val raw_print : bool ref -type compat_version = V8_2 +type compat_version = V8_2 | V8_3 val compat_version : compat_version option ref val version_strictly_greater : compat_version -> bool val version_less_or_equal : compat_version -> bool -- cgit v1.2.3