#include "math/lp/nla_basics_lemmas.h"
#include "math/lp/nla_core.h"
namespace nla {
monotone::monotone(core * c) : common(c) {}
void monotone::monotonicity_lemma() {
unsigned shift = random();
unsigned size = c().m_to_refine.size();
for (unsigned i = 0; i < size && !done(); i++) {
lpvar v = c().m_to_refine[(i + shift) % size];
monotonicity_lemma(c().emons()[v]);
}
}
void monotone::monotonicity_lemma(monic const& m) {
SASSERT(!check_monic(m));
if (c().mon_has_zero(m.vars()))
return;
if (c().has_big_num(m))
return;
const rational prod_val = abs(c().product_value(m));
const rational m_val = abs(var_val(m));
bool is_lt = m_val < prod_val;
if (c().throttle().insert_new(nla_throttle::MONOTONE_LEMMA, m.var(), is_lt))
return;
if (is_lt)
monotonicity_lemma_lt(m);
else if (m_val > prod_val)
monotonicity_lemma_gt(m);
}
void monotone::monotonicity_lemma_gt(const monic& m) {
lemma_builder lemma(c(), "monotonicity > ");
rational product(1);
for (lpvar j : m.vars()) {
auto v = c().val(j);
lemma |= ineq(j, v.is_neg() ? llc::LT : llc::GT, v);
lemma |= ineq(j, v.is_neg() ? llc::GT : llc::LT, 0);
product *= v;
}
lemma |= ineq(m.var(), product.is_neg() ? llc::GE : llc::LE, product);
}
void monotone::monotonicity_lemma_lt(const monic& m) {
lemma_builder lemma(c(), "monotonicity <");
rational product(1);
for (lpvar j : m.vars()) {
auto v = c().val(j);
lemma |= ineq(j, v.is_neg() ? llc::GT : llc::LT, v);
product *= v;
}
lemma |= ineq(m.var(), product.is_neg() ? llc::LE : llc::GE, product);
}
}