7772c16033
After this commit, in the type checker, when checking convertability, we first compute a normal form without expanding opaque terms. If the terms are convertible, then we are done, and saved a lot of time by not expanding unnecessary definitions. If they are not, instead of throwing an error, we try again expanding the opaque terms. This seems to be the best of both worlds. The opaque flag is a hint for the type checker, but it would never prevent us from type checking a valid term. Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
60 lines
2.5 KiB
C++
60 lines
2.5 KiB
C++
/*
|
|
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 "kernel/environment.h"
|
|
#include "kernel/abstract.h"
|
|
#include "library/arith/special_fn.h"
|
|
#include "library/arith/real.h"
|
|
|
|
namespace lean {
|
|
MK_CONSTANT(exp_fn, name("exp"));
|
|
MK_CONSTANT(log_fn, name("log"));
|
|
|
|
MK_CONSTANT(real_pi, name("\u03C0")); // lower case pi
|
|
MK_CONSTANT(sin_fn, name("sin"));
|
|
MK_CONSTANT(cos_fn, name("cos"));
|
|
MK_CONSTANT(tan_fn, name("tan"));
|
|
MK_CONSTANT(cot_fn, name("cot"));
|
|
MK_CONSTANT(sec_fn, name("sec"));
|
|
MK_CONSTANT(csc_fn, name("csc"));
|
|
|
|
MK_CONSTANT(sinh_fn, name("sinh"));
|
|
MK_CONSTANT(cosh_fn, name("cosh"));
|
|
MK_CONSTANT(tanh_fn, name("tanh"));
|
|
MK_CONSTANT(coth_fn, name("coth"));
|
|
MK_CONSTANT(sech_fn, name("sech"));
|
|
MK_CONSTANT(csch_fn, name("csch"));
|
|
|
|
void import_special_fn(environment const & env) {
|
|
if (!env->mark_builtin_imported("special_fn"))
|
|
return;
|
|
import_real(env);
|
|
|
|
expr r_r = Real >> Real;
|
|
expr x = Const("x");
|
|
|
|
env->add_var(exp_fn_name, r_r);
|
|
env->add_var(log_fn_name, r_r);
|
|
|
|
env->add_var(real_pi_name, Real);
|
|
env->add_definition(name("pi"), Real, mk_real_pi()); // alias for pi
|
|
env->add_var(sin_fn_name, r_r);
|
|
env->add_opaque_definition(cos_fn_name, r_r, Fun({x, Real}, Sin(rSub(x, rDiv(mk_real_pi(), rVal(2))))));
|
|
env->add_opaque_definition(tan_fn_name, r_r, Fun({x, Real}, rDiv(Sin(x), Cos(x))));
|
|
env->add_opaque_definition(cot_fn_name, r_r, Fun({x, Real}, rDiv(Cos(x), Sin(x))));
|
|
env->add_opaque_definition(sec_fn_name, r_r, Fun({x, Real}, rDiv(rVal(1), Cos(x))));
|
|
env->add_opaque_definition(csc_fn_name, r_r, Fun({x, Real}, rDiv(rVal(1), Sin(x))));
|
|
|
|
env->add_opaque_definition(sinh_fn_name, r_r, Fun({x, Real}, rDiv(rSub(rVal(1), Exp(rMul(rVal(-2), x))),
|
|
rMul(rVal(2), Exp(rNeg(x))))));
|
|
env->add_opaque_definition(cosh_fn_name, r_r, Fun({x, Real}, rDiv(rAdd(rVal(1), Exp(rMul(rVal(-2), x))),
|
|
rMul(rVal(2), Exp(rNeg(x))))));
|
|
env->add_opaque_definition(tanh_fn_name, r_r, Fun({x, Real}, rDiv(Sinh(x), Cosh(x))));
|
|
env->add_opaque_definition(coth_fn_name, r_r, Fun({x, Real}, rDiv(Cosh(x), Sinh(x))));
|
|
env->add_opaque_definition(sech_fn_name, r_r, Fun({x, Real}, rDiv(rVal(1), Cosh(x))));
|
|
env->add_opaque_definition(csch_fn_name, r_r, Fun({x, Real}, rDiv(rVal(1), Sinh(x))));
|
|
}
|
|
}
|