dad541265c
This PR moves many operations involving `String.Pos.Raw` to a the `String.Pos.Raw` namespace with the eventual aim of freeing up the `String` namespace to contain operations using `String.ValidPos` (to be renamed to `String.Pos`) instead. This PR adds the `String.ValidPos.set` and `String.ValidPos.modify` functions. After this PR, `String.pos_lt_eq` is no longer a `simp` lemma. Add `String.Pos.Raw.lt_iff` as a `simp` lemma if your proofs break.
61 lines
2 KiB
Text
61 lines
2 KiB
Text
/-
|
|
Copyright (c) 2023 Lean FRO, LLC. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Leonardo de Moura
|
|
-/
|
|
module
|
|
|
|
prelude
|
|
public import Lean.Meta.Match.MatcherInfo
|
|
|
|
public section
|
|
|
|
/-!
|
|
This exports a predicate for checking whether a name should be made
|
|
visible in auto-completion and other tactics that suggest names to
|
|
insert into Lean code.
|
|
|
|
The `exact?` tactic is an example of a tactic that benefits from this
|
|
functionality. `exact?` finds lemmas in the environment to use to
|
|
prove a theorem, but it needs to avoid inserting references to theorems
|
|
with unstable names such as auxiliary lemmas that could change with
|
|
minor unintentional modifications to definitions.
|
|
|
|
It uses a blacklist environment extension to enable names in an
|
|
environment to be specifically hidden.
|
|
-/
|
|
namespace Lean.Meta
|
|
|
|
builtin_initialize completionBlackListExt : TagDeclarationExtension ← mkTagDeclarationExtension
|
|
|
|
def addToCompletionBlackList (env : Environment) (declName : Name) : Environment :=
|
|
completionBlackListExt.tag env declName
|
|
|
|
/--
|
|
Checks whether a given name is internal due to something other than `_private`.
|
|
Correctly deals with names like `_private.<SomeNamespace>.0.<SomeType>._sizeOf_1` in a private type
|
|
`SomeType`, which `n.isInternal && !isPrivateName n` does not.
|
|
-/
|
|
private def isInternalNameModuloPrivate : Name → Bool
|
|
| n@(.str p s) => s.front == '_' && n != privateHeader || isInternalNameModuloPrivate p
|
|
| .num p _ => isInternalNameModuloPrivate p
|
|
| _ => false
|
|
|
|
/--
|
|
Return true if name is blacklisted for completion purposes.
|
|
-/
|
|
private def isBlacklisted (env : Environment) (declName : Name) : Bool :=
|
|
isInternalNameModuloPrivate declName
|
|
|| isAuxRecursor env declName
|
|
|| isNoConfusion env declName
|
|
|| isRecCore env declName
|
|
|| completionBlackListExt.isTagged env declName
|
|
|| isMatcherCore env declName
|
|
|
|
/--
|
|
Return true if completion is allowed for name.
|
|
-/
|
|
def allowCompletion (env : Environment) (declName : Name) : Bool :=
|
|
!(isBlacklisted env declName)
|
|
|
|
end Lean.Meta
|