32 lines
701 B
Text
32 lines
701 B
Text
|
import data.prod data.num
|
||
|
|
|
||
|
|
variables a b c : num
|
||
|
|
|
||
|
|
context
|
||
|
|
notation `(` t:(foldr `,` (e r, prod.mk e r)) `)` := t
|
||
|
|
check (a, false, b, true, c)
|
||
|
|
set_option pp.notation false
|
||
|
|
check (a, false, b, true, c)
|
||
|
|
end
|
||
|
|
|
||
|
|
context
|
||
|
|
notation `(` t:(foldr `,` (e r, prod.mk r e)) `)` := t
|
||
|
|
check (a, false, b, true, c)
|
||
|
|
set_option pp.notation false
|
||
|
|
check (a, false, b, true, c)
|
||
|
|
end
|
||
|
|
|
||
|
|
context
|
||
|
|
notation `(` t:(foldl `,` (e r, prod.mk r e)) `)` := t
|
||
|
|
check (a, false, b, true, c)
|
||
|
|
set_option pp.notation false
|
||
|
|
check (a, false, b, true, c)
|
||
|
|
end
|
||
|
|
|
||
|
|
context
|
||
|
|
notation `(` t:(foldl `,` (e r, prod.mk e r)) `)` := t
|
||
|
|
check (a, false, b, true, c)
|
||
|
|
set_option pp.notation false
|
||
|
|
check (a, false, b, true, c)
|
||
|
|
end
|