lean2/src/tests/library/arith.cpp

/*
Copyright (c) 2013 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.

Author: Leonardo de Moura
*/
#include "util/thread.h"
#include "util/test.h"
#include "kernel/builtin.h"
#include "kernel/normalizer.h"
#include "kernel/type_checker.h"
#include "kernel/abstract.h"
#include "library/io_state_stream.h"
#include "library/arith/arith.h"
#include "frontends/lean/frontend.h"
using namespace lean;

static void tst0() {
    environment env;
    init_test_frontend(env);
    normalizer  norm(env);
    env->add_var("n", Nat);
    expr n = Const("n");
    lean_assert_eq(mk_nat_type(), Nat);
    lean_assert_eq(norm(mk_Nat_mul(nVal(2), nVal(3))), nVal(6));
    lean_assert_eq(norm(mk_Nat_le(nVal(2), nVal(3))), True);
    lean_assert_eq(norm(mk_Nat_le(nVal(5), nVal(3))), False);
    lean_assert_eq(norm(mk_Nat_le(nVal(2), nVal(3))), True);
    lean_assert_eq(norm(mk_Nat_le(n, nVal(3))), mk_Nat_le(n, nVal(3)));
    env->add_var("x", Real);
    expr x = Const("x");
    lean_assert_eq(mk_real_type(), Real);
    lean_assert_eq(norm(mk_Real_mul(rVal(2), rVal(3))), rVal(6));
    lean_assert_eq(norm(mk_Real_div(rVal(2), rVal(0))), rVal(0));
    lean_assert_eq(norm(mk_Real_le(rVal(2),  rVal(3))), True);
    lean_assert_eq(norm(mk_Real_le(rVal(5),  rVal(3))), False);
    lean_assert_eq(norm(mk_Real_le(rVal(2),  rVal(3))), True);
    lean_assert_eq(norm(mk_Real_le(x, rVal(3))), mk_Real_le(x, rVal(3)));
    env->add_var("i", Int);
    expr i = Const("i");
    lean_assert_eq(norm(mk_int_to_real(i)), mk_int_to_real(i));
    lean_assert_eq(norm(mk_int_to_real(iVal(2))), rVal(2));
    lean_assert_eq(mk_int_type(), Int);
    lean_assert_eq(norm(mk_nat_to_int(n)), mk_nat_to_int(n));
    lean_assert_eq(norm(mk_nat_to_int(nVal(2))), iVal(2));
    lean_assert_eq(norm(mk_Int_div(iVal(2), iVal(0))), iVal(0));
}

static void tst1() {
    environment env;
    init_test_frontend(env);
    expr e = mk_int_value(mpz(10));
    lean_assert(is_int_value(e));
    lean_assert(type_check(e, env) == Int);
    std::cout << "e: " << e << "\n";
}

static void tst2() {
    environment env;
    init_test_frontend(env);
    expr e = mk_Int_add(iVal(10), iVal(30));
    std::cout << e << "\n";
    std::cout << normalize(e, env) << "\n";
    lean_assert(normalize(e, env) == iVal(40));
    std::cout << type_check(mk_Int_add_fn(), env) << "\n";
    lean_assert(type_check(e, env) == Int);
    lean_assert(type_check(mk_app(mk_Int_add_fn(), iVal(10)), env) == (Int >> Int));
    lean_assert(is_int_value(normalize(e, env)));
    expr e2 = Fun("a", Int, mk_Int_add(Const("a"), mk_Int_add(iVal(10), iVal(30))));
    std::cout << e2 << " --> " << normalize(e2, env) << "\n";
    lean_assert(type_check(e2, env) == mk_arrow(Int, Int));
    lean_assert(normalize(e2, env) == Fun("a", Int, mk_Int_add(Const("a"), iVal(40))));
}

static void tst3() {
    environment env;
    init_test_frontend(env);
    expr e = mk_Int_mul(iVal(10), iVal(30));
    std::cout << e << "\n";
    std::cout << normalize(e, env) << "\n";
    lean_assert(normalize(e, env) == iVal(300));
    std::cout << type_check(mk_Int_mul_fn(), env) << "\n";
    lean_assert(type_check(e, env) == Int);
    lean_assert(type_check(mk_app(mk_Int_mul_fn(), iVal(10)), env) == mk_arrow(Int, Int));
    lean_assert(is_int_value(normalize(e, env)));
    expr e2 = Fun("a", Int, mk_Int_mul(Const("a"), mk_Int_mul(iVal(10), iVal(30))));
    std::cout << e2 << " --> " << normalize(e2, env) << "\n";
    lean_assert(type_check(e2, env) == (Int >> Int));
    lean_assert(normalize(e2, env) == Fun("a", Int, mk_Int_mul(Const("a"), iVal(300))));
}

static void tst4() {
    environment env;
    init_test_frontend(env);
    expr e = mk_Int_sub(iVal(10), iVal(30));
    std::cout << e << "\n";
    std::cout << normalize(e, env) << "\n";
    lean_assert(normalize(e, env, context(), true) == iVal(-20));
    std::cout << type_check(mk_Int_sub_fn(), env) << "\n";
    lean_assert(type_check(e, env) == Int);
    lean_assert(type_check(mk_app(mk_Int_sub_fn(), iVal(10)), env) == mk_arrow(Int, Int));
    lean_assert(is_int_value(normalize(e, env, context(), true)));
    expr e2 = Fun("a", Int, mk_Int_sub(Const("a"), mk_Int_sub(iVal(10), iVal(30))));
    std::cout << e2 << " --> " << normalize(e2, env) << "\n";
    lean_assert(type_check(e2, env) == (Int >> Int));
    lean_assert_eq(normalize(e2, env, context(), true), Fun("a", Int, mk_Int_add(Const("a"), iVal(20))));
}

static void tst5() {
    environment env;
    init_test_frontend(env);
    env->add_var(name("a"), Int);
    expr e = HEq(iVal(3), iVal(4));
    std::cout << e << " --> " << normalize(e, env) << "\n";
    lean_assert(normalize(e, env) == False);
    lean_assert(normalize(HEq(Const("a"), iVal(3)), env) == HEq(Const("a"), iVal(3)));
}

static void tst6() {
    std::cout << "tst6\n";
    std::cout << mk_Int_add_fn().raw() << "\n";
    std::cout << mk_Int_add_fn().raw() << "\n";

    #ifndef __APPLE__
    thread t1([](){ save_stack_info(); std::cout << "t1: " << mk_Int_add_fn().raw() << "\n"; });
    t1.join();
    thread t2([](){ save_stack_info(); std::cout << "t2: " << mk_Int_add_fn().raw() << "\n"; });
    t2.join();
    #endif
    std::cout << mk_Int_add_fn().raw() << "\n";
}

int main() {
    save_stack_info();
    tst0();
    tst1();
    tst2();
    tst3();
    tst4();
    tst5();
    tst6();
    return has_violations() ? 1 : 0;
}