e9d85f49e6
Based on the discussion at https://leanprover.zulipchat.com/#narrow/stream/270676-lean4/topic/for.2C.20unexpected.20need.20for.20type.20ascription/near/269083574 The consensus seemed to be that "auto pure" is more confusing than its worth.
16 lines
372 B
Text
16 lines
372 B
Text
import UserAttr.Tst
|
|
|
|
open Lean
|
|
|
|
def tst : MetaM Unit := do
|
|
let env ← getEnv
|
|
assert! (blaAttr.hasTag env `f)
|
|
assert! (blaAttr.hasTag env `g)
|
|
assert! !(blaAttr.hasTag env `id)
|
|
pure ()
|
|
|
|
#eval tst
|
|
|
|
unsafe def main : IO Unit := do
|
|
initSearchPath (← Lean.findSysroot?) ["build"]
|
|
withImportModules [{ module := `UserAttr.Tst : Import }] {} 0 fun env => pure ()
|