2014-01-05 20:05:08 +00:00
|
|
|
import Int.
|
|
|
|
variable f {A : Type} : A -> A -> A
|
|
|
|
infixl 65 + : f
|
2014-01-05 19:03:35 +00:00
|
|
|
print true + false
|
|
|
|
print 10 + 20
|
|
|
|
print 10 + (- 20)
|
2014-01-05 20:05:08 +00:00
|
|
|
setoption pp::notation false
|
|
|
|
setoption pp::coercion true
|
2014-01-05 19:03:35 +00:00
|
|
|
print true + false
|
|
|
|
print 10 + 20
|
|
|
|
print 10 + (- 20)
|