lean4-htt/tests/lean/run/abstract_notation.lean
2016-06-10 18:29:41 -07:00

12 lines
183 B
Text

exit
import data.nat
open nat
notation `$`:max := abstract by blast end
definition foo (a b : nat) : a + b = b + a ∧ a = 0 + a :=
and.intro $ $
check foo_1
check foo_2
print foo