2014-01-01 21:52:25 +00:00
|
|
|
Import Int.
|
|
|
|
Import Real.
|
2013-09-04 00:24:05 +00:00
|
|
|
Variable f : Int -> Int -> Int
|
2014-01-05 19:03:35 +00:00
|
|
|
print forall a, f a a > 0
|
|
|
|
print forall a b, f a b > 0
|
2013-09-04 00:24:05 +00:00
|
|
|
Variable g : Int -> Real -> Int
|
2014-01-05 19:03:35 +00:00
|
|
|
print forall a b, g a b > 0
|
|
|
|
print forall a b, g a (f a b) > 0
|
2013-12-19 05:18:45 +00:00
|
|
|
SetOption pp::coercion true
|
2014-01-05 19:03:35 +00:00
|
|
|
print forall a b, g a (f a b) > 0
|
|
|
|
print fun a, a + 1
|
|
|
|
print fun a b, a + b
|
|
|
|
print fun (a b) (c : Int), a + c + b
|
2014-01-05 16:52:46 +00:00
|
|
|
-- The next example shows a limitation of the current elaborator.
|
|
|
|
-- The current elaborator resolves overloads before solving the implicit argument constraints.
|
|
|
|
-- So, it does not have enough information for deciding which overload to use.
|
2014-01-05 19:03:35 +00:00
|
|
|
print (fun a b, a + b) 10 20.
|
2013-09-04 00:24:05 +00:00
|
|
|
Variable x : Int
|
2014-01-05 16:52:46 +00:00
|
|
|
-- The following one works because the type of x is used to decide which + should be used
|
2014-01-05 19:03:35 +00:00
|
|
|
print fun a b, a + x + b
|