diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-15 13:33:32 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-15 13:33:32 +0000 |
| commit | 6a05c7e546a9dd2065f35b788b35e7a85866dfc8 (patch) | |
| tree | ea173867854cea5934292406b4a65d49461d5b37 /tactics | |
| parent | 12330e6f63404c236614070b32a10b146f9b8a04 (diff) | |
anew_instance should not consume the locality twice
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16397 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/rewrite.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/rewrite.ml4 b/tactics/rewrite.ml4 index dc59005f6..19a2f390b 100644 --- a/tactics/rewrite.ml4 +++ b/tactics/rewrite.ml4 @@ -1587,7 +1587,7 @@ let declare_instance a aeq n s = declare_an_instance n s [a;aeq] let anew_instance global binders instance fields = new_instance binders instance (Some (CRecord (Loc.ghost,None,fields))) - ~global:(not (Locality.use_section_locality ())) ~generalize:false None + ~global ~generalize:false None let declare_instance_refl global binders a aeq n lemma = let instance = declare_instance a aeq (add_suffix n "_Reflexive") "Coq.Classes.RelationClasses.Reflexive" |