12 lines
205 B
Text
12 lines
205 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
|