2013-09-02 02:08:49 +00:00
|
|
|
Variable T : Type
|
|
|
|
Variable R : Type
|
|
|
|
Variable t2r : T -> R
|
|
|
|
Coercion t2r
|
|
|
|
Variable g : R -> R -> R
|
|
|
|
Variable a : T
|
|
|
|
Show g a a
|
|
|
|
Variable b : R
|
|
|
|
Show g a b
|
|
|
|
Show g b a
|
2013-12-19 05:18:45 +00:00
|
|
|
SetOption lean::pp::coercion true
|
2013-09-02 02:08:49 +00:00
|
|
|
Show g a a
|
|
|
|
Show g a b
|
|
|
|
Show g b a
|
2013-12-19 05:18:45 +00:00
|
|
|
SetOption lean::pp::coercion false
|
2013-09-02 02:08:49 +00:00
|
|
|
Variable S : Type
|
|
|
|
Variable s : S
|
|
|
|
Variable r : S
|
|
|
|
Variable h : S -> S -> S
|
|
|
|
Infixl 10 ++ : g
|
|
|
|
Infixl 10 ++ : h
|
2013-12-19 05:18:45 +00:00
|
|
|
SetOption lean::pp::notation false
|
2013-09-02 02:08:49 +00:00
|
|
|
Show a ++ b ++ a
|
|
|
|
Show r ++ s ++ r
|
|
|
|
Check a ++ b ++ a
|
|
|
|
Check r ++ s ++ r
|
2013-12-19 05:18:45 +00:00
|
|
|
SetOption lean::pp::coercion true
|
2013-09-02 02:08:49 +00:00
|
|
|
Show a ++ b ++ a
|
|
|
|
Show r ++ s ++ r
|
2013-12-19 05:18:45 +00:00
|
|
|
SetOption lean::pp::notation true
|
2013-09-02 02:08:49 +00:00
|
|
|
Show a ++ b ++ a
|
|
|
|
Show r ++ s ++ r
|