2014-01-01 13:52:25 -08:00
|
|
|
Import Int
|
|
|
|
Import Real
|
2014-01-05 11:03:35 -08:00
|
|
|
print 1 + true
|
2013-09-02 20:05:47 -07:00
|
|
|
Variable R : Type
|
|
|
|
Variable T : Type
|
|
|
|
Variable r2t : R -> T
|
|
|
|
Coercion r2t
|
|
|
|
Variable t2r : T -> R
|
|
|
|
Coercion t2r
|
|
|
|
Variable f : T -> R -> T
|
|
|
|
Variable a : T
|
|
|
|
Variable b : R
|
2013-12-18 21:18:45 -08:00
|
|
|
SetOption lean::pp::coercion true
|
|
|
|
SetOption lean::pp::notation false
|
2014-01-05 11:03:35 -08:00
|
|
|
print f a b
|
|
|
|
print f b a
|
2013-09-02 20:05:47 -07:00
|
|
|
Variable g : R -> T -> R
|
|
|
|
Infix 10 ++ : f
|
|
|
|
Infix 10 ++ : g
|
2014-01-05 11:03:35 -08:00
|
|
|
print a ++ b
|
|
|
|
print b ++ a
|