lean2/tests/lean/notation3.lean

import data.prod data.num
inductive list (T : Type) : Type := nil {} : list T, cons   : T → list T → list T open list notation h :: t  := cons h t notation `[` l:(foldr `,` (h t, cons h t) nil) `]` := l
open prod num
constants a b : num
check [a, b, b]
check (a, true, a = b, b)
check (a, b)
check [1, 2+2, 3]
test(tests/lean): remove data.nat dependency 2014-12-24 01:35:14 +00:00			`import data.prod data.num`
			inductive list (T : Type) : Type := nil {} : list T, cons : T → list T → list T open list notation h :: t := cons h t notation `[` l:(foldr `,` (h t, cons h t) nil) `]` := l
			`open prod num`
feat(frontends/lean/pp): support foldl/foldr notation in the pretty printer 2014-10-19 18:13:36 +00:00			`constants a b : num`
			`check [a, b, b]`
			`check (a, true, a = b, b)`
			`check (a, b)`
			`check [1, 2+2, 3]`