28 lines
674 B
C
28 lines
674 B
C
|
/*
|
||
|
|
Copyright (c) 2015 Microsoft Corporation. All rights reserved.
|
||
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
||
|
|
|
||
|
|
Author: Rob Lewis
|
||
|
|
*/
|
||
|
|
#pragma once
|
||
|
|
#include "kernel/environment.h"
|
||
|
|
|
||
|
|
namespace lean {
|
||
|
|
class norm_num_context {
|
||
|
|
environment m_env;
|
||
|
|
public:
|
||
|
|
norm_num_context(environment const & env):m_env(env) {}
|
||
|
|
|
||
|
|
bool is_numeral(expr const & e) const;
|
||
|
|
pair<expr, expr> mk_norm(expr const & e);
|
||
|
|
};
|
||
|
|
|
||
|
|
inline bool is_numeral(environment const & env, expr const & e) {
|
||
|
|
return norm_num_context(env).is_numeral(e);
|
||
|
|
}
|
||
|
|
|
||
|
|
inline pair<expr, expr> mk_norm_num(environment const & env, expr const & e) {
|
||
|
|
return norm_num_context(env).mk_norm(e);
|
||
|
|
}
|
||
|
|
}
|