lean2/tests/lean/notation4.lean

import logic data.sigma
open sigma
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
check ∃ (A : Type₁) (x y : A), x = y
check ∃ (x : num), x = 0
check Σ (x : num), x = 10
check Σ (A : Type₁), list A
test(tests/lean): remove data.nat dependency 2014-12-24 01:35:14 +00:00			`import logic data.sigma`
feat(frontends/lean/pp): support scopedexpr notation in the pretty printer 2014-10-19 19:48:34 +00:00			`open sigma`
test(tests/lean): remove data.nat dependency 2014-12-24 01:35:14 +00:00			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
feat(frontends/lean/pp): support scopedexpr notation in the pretty printer 2014-10-19 19:48:34 +00:00			`check ∃ (A : Type₁) (x y : A), x = y`
			`check ∃ (x : num), x = 0`
			`check Σ (x : num), x = 10`
			`check Σ (A : Type₁), list A`