30 lines
837 B
C++
30 lines
837 B
C++
|
/*
|
||
|
|
Copyright (c) 2015 Microsoft Corporation. All rights reserved.
|
||
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
||
|
|
|
||
|
|
Author: Leonardo de Moura
|
||
|
|
*/
|
||
|
|
#include "library/blast/gexpr.h"
|
||
|
|
#include "library/blast/blast.h"
|
||
|
|
|
||
|
|
namespace lean {
|
||
|
|
namespace blast {
|
||
|
|
expr gexpr::to_expr(type_context & ctx) const {
|
||
|
|
if (m_univ_poly) {
|
||
|
|
declaration const & fdecl = ctx.env().get(const_name(m_expr));
|
||
|
|
buffer<level> ls_buffer;
|
||
|
|
unsigned num_univ_ps = fdecl.get_num_univ_params();
|
||
|
|
for (unsigned i = 0; i < num_univ_ps; i++)
|
||
|
|
ls_buffer.push_back(ctx.mk_uvar());
|
||
|
|
levels ls = to_list(ls_buffer.begin(), ls_buffer.end());
|
||
|
|
return mk_constant(const_name(m_expr), ls);
|
||
|
|
} else {
|
||
|
|
return m_expr;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
expr gexpr::to_expr() const {
|
||
|
|
return to_expr(get_type_context());
|
||
|
|
}
|
||
|
|
}}
|