lean2/tests/lean/abbrev1.lean
2015-11-20 17:03:17 -08:00

19 lines
316 B
Text

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 id2 [parsing_only] {A : Type} (a : A) := a
definition tst1 :nat := id2 10
print definition tst1