Add missing test

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-09-03 14:51:34 -07:00
parent a154f4e439
commit 6f3fa63ccb
3 changed files with 7 additions and 1 deletions

View file

@ -233,7 +233,7 @@ static void tst5() {
#endif
}
void tst6() {
static void tst6() {
environment env;
expr x = Const("x");
expr t = Fun({x, Type()}, mk_app(x, x));
@ -253,5 +253,6 @@ int main() {
tst3();
tst4();
tst5();
tst6();
return has_violations() ? 1 : 0;
}

View file

@ -8,3 +8,6 @@ Definition f (A: Type) (a : A) : A :=
let b := g A a,
c := g A b
in c
Show f _ 10.
Show f _ (- 10).

View file

@ -3,3 +3,5 @@
Π (A : Type) (a : A), A
Assumed: g
Defined: f
f Nat 10
f Int (- 10)