lean2/tests/lean/abbrev1.lean

20 lines
309 B
Text
Raw Normal View History

open nat
abbreviation foo : Π (A : Type), nat := λ a, 2 + 3
definition tst := foo nat
set_option pp.abbreviations false
print definition tst
set_option pp.abbreviations true
print definition tst
abbreviation id [parsing-only] {A : Type} (a : A) := a
definition tst1 := id 10
print definition tst1