michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(library/util): add mk_heq

Browse source
This commit is contained in:
Leonardo de Moura 2014-12-18 15:53:23 -08:00
parent 1ca8723c54
commit a97bef7df2
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/library/util.cpp
View file

@ -171,6 +171,8 @@ static name * g_eq_name = nullptr;
static name * g_eq_refl_name = nullptr; static name * g_eq_refl_name = nullptr;
static name * g_eq_rec_name = nullptr; static name * g_eq_rec_name = nullptr;
static name * g_heq_name = nullptr;
static name * g_sigma_name = nullptr; static name * g_sigma_name = nullptr;
static name * g_sigma_mk_name = nullptr; static name * g_sigma_mk_name = nullptr;
@ -193,6 +195,8 @@ void initialize_library_util() {
g_eq_refl_name = new name{"eq", "refl"}; g_eq_refl_name = new name{"eq", "refl"};
g_eq_rec_name = new name{"eq", "rec"}; g_eq_rec_name = new name{"eq", "rec"};
g_heq_name = new name("heq");
g_sigma_name = new name("sigma"); g_sigma_name = new name("sigma");
g_sigma_mk_name = new name{"sigma", "dpair"}; g_sigma_mk_name = new name{"sigma", "dpair"};
} }
@ -213,6 +217,7 @@ void finalize_library_util() {
delete g_eq_name; delete g_eq_name;
delete g_eq_refl_name; delete g_eq_refl_name;
delete g_eq_rec_name; delete g_eq_rec_name;
delete g_heq_name;
delete g_sigma_name; delete g_sigma_name;
delete g_sigma_mk_name; delete g_sigma_mk_name;
} }
@ -294,6 +299,13 @@ expr mk_eq(type_checker & tc, expr const & lhs, expr const & rhs) {
return mk_app(mk_constant(*g_eq_name, {lvl}), A, lhs, rhs); return mk_app(mk_constant(*g_eq_name, {lvl}), A, lhs, rhs);
} }
expr mk_heq(type_checker & tc, expr const & lhs, expr const & rhs) {
expr A = tc.whnf(tc.infer(lhs).first).first;
expr B = tc.whnf(tc.infer(rhs).first).first;
level lvl = sort_level(tc.ensure_type(A).first);
return mk_app(mk_constant(*g_heq_name, {lvl}), A, lhs, B, rhs);
}
void mk_telescopic_eq(type_checker & tc, buffer<expr> const & t, buffer<expr> const & s, buffer<expr> & eqs) { void mk_telescopic_eq(type_checker & tc, buffer<expr> const & t, buffer<expr> const & s, buffer<expr> & eqs) {
lean_assert(t.size() == s.size()); lean_assert(t.size() == s.size());
lean_assert(std::all_of(s.begin(), s.end(), is_local)); lean_assert(std::all_of(s.begin(), s.end(), is_local));