c7c50a8bec
The linters in Batteries can be used to spot mistakes in Lean. See the message on [Zulip](https://leanprover.zulipchat.com/#narrow/stream/270676-lean4/topic/Go-to-def.20on.20typeclass.20fields.20and.20type-dependent.20notation/near/442613564). These are the different linters with errors: - unusedArguments: There are many unused instance arguments, especially a redundant `[Monad m]` is very common - checkUnivs: There was a problem with universes in a definition in `Init.Control.StateCps`. I fixed it by adding a `variable` statement for the implicit arguments in the file. - defLemma: many proofs are written as `def` instead of `theorem`, most notably `rfl`. Because `rfl` is used as a match pattern, it must be a def. Is this desirable? The keyword `abbrev` is sometimes used for an alias of a theorem, which also results in a def. I would want to replace it with the `alias` keyword to fix this, but it isn't available. - dupNamespace: I fixed some of these, but left `Tactic.Tactic` and `Parser.Parser` as they are as these seem intended. - unusedHaveSuffices: I cleaned up a few proofs with unused `have` or `suffices` - explicitVarsOfIff: I didn't fix any of these, because that would be a breaking change. - simpNF: I didn't fix any of these, because I think that requires knowing the intended simplification order.
71 lines
3 KiB
Text
71 lines
3 KiB
Text
/-
|
|
Copyright (c) 2020 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Leonardo de Moura, Sebastian Ullrich
|
|
-/
|
|
prelude
|
|
import Lean.Elab.Util
|
|
namespace Lean.Elab
|
|
|
|
structure Attribute where
|
|
kind : AttributeKind := AttributeKind.global
|
|
name : Name
|
|
stx : Syntax := Syntax.missing
|
|
deriving Inhabited
|
|
|
|
instance : ToFormat Attribute where
|
|
format attr :=
|
|
let kindStr := match attr.kind with
|
|
| AttributeKind.global => ""
|
|
| AttributeKind.local => "local "
|
|
| AttributeKind.scoped => "scoped "
|
|
Format.bracket "@[" f!"{kindStr}{attr.name}{toString attr.stx}" "]"
|
|
|
|
/--
|
|
```
|
|
attrKind := leading_parser optional («scoped» <|> «local»)
|
|
```
|
|
-/
|
|
def toAttributeKind (attrKindStx : Syntax) : MacroM AttributeKind := do
|
|
if attrKindStx[0].isNone then
|
|
return AttributeKind.global
|
|
else if attrKindStx[0][0].getKind == ``Lean.Parser.Term.scoped then
|
|
if (← Macro.getCurrNamespace).isAnonymous then
|
|
throw <| Macro.Exception.error (← getRef) "scoped attributes must be used inside namespaces"
|
|
return AttributeKind.scoped
|
|
else
|
|
return AttributeKind.local
|
|
|
|
def mkAttrKindGlobal : Syntax :=
|
|
mkNode ``Lean.Parser.Term.attrKind #[mkNullNode]
|
|
|
|
def elabAttr [Monad m] [MonadEnv m] [MonadResolveName m] [MonadError m] [MonadMacroAdapter m] [MonadRecDepth m] [MonadTrace m] [MonadOptions m] [AddMessageContext m] [MonadLiftT IO m] (attrInstance : Syntax) : m Attribute := do
|
|
/- attrInstance := ppGroup $ leading_parser attrKind >> attrParser -/
|
|
let attrKind ← liftMacroM <| toAttributeKind attrInstance[0]
|
|
let attr := attrInstance[1]
|
|
let attr ← liftMacroM <| expandMacros attr
|
|
let attrName ← if attr.getKind == ``Parser.Attr.simple then
|
|
pure attr[0].getId.eraseMacroScopes
|
|
else match attr.getKind with
|
|
| .str _ s => pure <| Name.mkSimple s
|
|
| _ => throwErrorAt attr "unknown attribute"
|
|
let .ok _impl := getAttributeImpl (← getEnv) attrName
|
|
| throwError "unknown attribute [{attrName}]"
|
|
/- The `AttrM` does not have sufficient information for expanding macros in `args`.
|
|
So, we expand them before here before we invoke the attributer handlers implemented using `AttrM`. -/
|
|
return { kind := attrKind, name := attrName, stx := attr }
|
|
|
|
def elabAttrs [Monad m] [MonadEnv m] [MonadResolveName m] [MonadError m] [MonadMacroAdapter m] [MonadRecDepth m] [MonadTrace m] [MonadOptions m] [AddMessageContext m] [MonadLog m] [MonadLiftT IO m] (attrInstances : Array Syntax) : m (Array Attribute) := do
|
|
let mut attrs := #[]
|
|
for attr in attrInstances do
|
|
try
|
|
attrs := attrs.push (← withRef attr do elabAttr attr)
|
|
catch ex =>
|
|
logException ex
|
|
return attrs
|
|
|
|
-- leading_parser "@[" >> sepBy1 attrInstance ", " >> "]"
|
|
def elabDeclAttrs [Monad m] [MonadEnv m] [MonadResolveName m] [MonadError m] [MonadMacroAdapter m] [MonadRecDepth m] [MonadTrace m] [MonadOptions m] [AddMessageContext m] [MonadLog m] [MonadLiftT IO m] (stx : Syntax) : m (Array Attribute) :=
|
|
elabAttrs stx[1].getSepArgs
|
|
|
|
end Lean.Elab
|