diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-02-14 09:15:15 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-02-14 09:15:15 +0000 |
| commit | e4c7ad09b0be022a59760d78cc382687294c9350 (patch) | |
| tree | b14654a6c6106a9f27b388e0cd65509a7c77a82c /tactics/rewrite.ml4 | |
| parent | 77b0b252f3ce600e1c70e613af878e74439a585b (diff) | |
- Fix treatment of globality flag for typeclass instance hints (they
were all declared as global).
- Add possibility to remove hints (Resolve or Immediate only) based on
the name of the lemma.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13842 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/rewrite.ml4')
| -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 89a8a5389..127a61db5 100644 --- a/tactics/rewrite.ml4 +++ b/tactics/rewrite.ml4 @@ -1342,7 +1342,7 @@ let declare_an_instance n s args = let declare_instance a aeq n s = declare_an_instance n s [a;aeq] let anew_instance binders instance fields = - new_instance binders instance (CRecord (dummy_loc,None,fields)) ~generalize:false None + new_instance binders instance (CRecord (dummy_loc,None,fields)) ~global:true ~generalize:false None let declare_instance_refl binders a aeq n lemma = let instance = declare_instance a aeq (add_suffix n "_Reflexive") "Coq.Classes.RelationClasses.Reflexive" |