lean4-htt/tests/lean/unexpander.lean

17 lines
326 B
Text

open Lean PrettyPrinter
namespace ns
inductive Foo | mk: Foo
@[appUnexpander Foo.mk]
def unexpadFoo : Lean.PrettyPrinter.Unexpander | `($x) => `(unexpand)
def foo := Foo.mk
#print foo
@[appUnexpander ns.Foo.mk]
def unexpadFoo' : Lean.PrettyPrinter.Unexpander | `($x) => `(unexpand)
def bar := ns.Foo.mk
#print bar
end ns