z3/src/math/lp/horner.cpp

/*++
  Copyright (c) 2017 Microsoft Corporation

  Module Name:

  <name>

  Abstract:

  <abstract>

  Author:
  Nikolaj Bjorner (nbjorner)
  Lev Nachmanson (levnach)

  Revision History:


  --*/

#include "math/lp/horner.h"
#include "math/lp/nla_core.h"
#include "math/lp/lp_utils.h"
#include "math/lp/cross_nested.h"

namespace nla {
typedef intervals::interval interv;
horner::horner(core * c) : common(c), m_intervals(c, c->reslim()) {}

// Returns true if the row has at least two monomials sharing a variable
template <typename T>
bool horner::row_is_interesting(const T& row) const {
    std::unordered_set<lpvar> seen;
    for (const auto& p : row) {
        lpvar j = p.var();
        if (!c().is_monomial_var(j))
            continue;
        auto & m = c().emons()[j];
        
        std::unordered_set<lpvar> local_vars;
        for (lpvar k : m.vars()) { // have to do it to ignore the powers
            local_vars.insert(k);
        }
        for (lpvar k : local_vars) {
            auto it = seen.find(k);
            if (it == seen.end())
                seen.insert(k);
            else
                return true;
        }
    }
    return false;
}

void horner::lemmas_on_expr(nex& e) {
    TRACE("nla_horner", tout << "e = " << e << "\n";);    
    cross_nested cn(e, [this](const nex& n) {
                           auto i = interval_of_expr(n);
                           TRACE("nla_horner", tout << "callback n = " << n << "\ni="; m_intervals.display(tout, i) << "\n";);
                           
                           m_intervals.check_interval_for_conflict_on_zero(i);} );
    cn.run();
}


template <typename T> 
void horner::lemmas_on_row(const T& row) {
    if (!row_is_interesting(row))
        return;
    nex e = create_sum_from_row(row);
    lemmas_on_expr(e);
}

void horner::horner_lemmas() {
    if (!c().m_settings.run_horner()) {
        TRACE("nla_solver", tout << "not generating horner lemmas\n";);
        return;
    }

    const auto& matrix = c().m_lar_solver.A_r();
    // choose only rows that depend on m_to_refine variables
    std::set<unsigned> rows_to_check; // we need it to be determenistic: cannow work with the unordered_set
    for (lpvar j : c().m_to_refine) {
        for (auto & s : matrix.m_columns[j])
            rows_to_check.insert(s.var());
    }
    for (unsigned i : rows_to_check) {        
        lemmas_on_row(matrix.m_rows[i]);
    }
}

typedef nla_expr<rational> nex;

nex horner::nexvar(lpvar j) const {
    // todo: consider deepen the recursion
    if (!c().is_monomial_var(j))
        return nex::var(j);
    const monomial& m = c().emons()[j];
    nex e(expr_type::MUL);
    for (lpvar k : m.vars()) {
        e.add_child(nex::var(k));
    }
    return e;
}

template <typename T> nex horner::create_sum_from_row(const T& row) {
    TRACE("nla_horner", tout << "row="; m_core->print_term(row, tout) << "\n";);
    SASSERT(row.size() > 1);
    nex e(expr_type::SUM);
    for (const auto &p : row) {        
        e.add_child(nex::scalar(p.coeff())* nexvar(p.var()));
    }
    return e;
}


void horner::set_interval_for_scalar(interv& a, const rational& v) {
    m_intervals.set_lower(a, v);
    m_intervals.set_upper(a, v);
    m_intervals.set_lower_is_open(a, false);
    m_intervals.set_lower_is_inf(a, false);
    m_intervals.set_upper_is_open(a, false);
    m_intervals.set_upper_is_inf(a, false);
}

interv horner::interval_of_expr(const nex& e) {
    interv a;
    switch (e.type()) {
    case expr_type::SCALAR:
        set_interval_for_scalar(a, e.value());
        return a;
    case expr_type::SUM:
        return interval_of_sum(e);
    case expr_type::MUL:
        return interval_of_mul(e);
    case expr_type::VAR:
        set_var_interval(e.var(), a);
        return a;
    default:
        TRACE("nla_horner_details", tout << e.type() << "\n";);
        SASSERT(false);
        return interv();
    }
}
interv horner::interval_of_mul(const nex& e) {
    SASSERT(e.is_mul());
    auto & es = e.children();
    interval_deps_combine_rule comb_rule;
    interv a = interval_of_expr(es[0]);
    if (m_intervals.is_zero(a)) {
        m_intervals.set_zero_interval_deps_for_mult(a);
        TRACE("nla_horner_details", tout << "es[0]= "<< es[0] << std::endl << "a = "; m_intervals.display(tout, a); );
        return a;
    }
    TRACE("nla_horner_details", tout << "es[0]= "<< es[0] << std::endl << "a = "; m_intervals.display(tout, a); );
    for (unsigned k = 1; k < es.size(); k++) {
        interv b = interval_of_expr(es[k]);
        if (m_intervals.is_zero(b)) {
            m_intervals.set_zero_interval_deps_for_mult(b);
            TRACE("nla_horner_details", tout << "es[k]= "<< es[k] << std::endl << ", "; m_intervals.display(tout, b); );
            TRACE("nla_horner_details", tout << "got zero\n"; );
            return b;
        }
        TRACE("nla_horner_details", tout << "es[k]= "<< es[k] << ", "; m_intervals.display(tout, b); );
        interv c;
        m_intervals.mul(a, b, c, comb_rule);
        m_intervals.combine_deps(a, b, comb_rule, c);
        TRACE("nla_horner_details", tout << "a "; m_intervals.display(tout, a););
        TRACE("nla_horner_details", tout << "c "; m_intervals.display(tout, c););
        m_intervals.set(a, c);
        TRACE("nla_horner_details", tout << "part mult "; m_intervals.display(tout, a););
    }
    TRACE("nla_horner_details",  tout << "e=" << e << "\n";
          tout << " return "; m_intervals.display(tout, a););
    return a;
}

interv horner::interval_of_sum(const nex& e) {
    TRACE("nla_horner_details", tout << "e=" << e << "\n";);
    SASSERT(e.is_sum());
    auto & es = e.children(); 
    interv a = interval_of_expr(es[0]);
    if (m_intervals.is_inf(a)) {
        TRACE("nla_horner_details",  tout << "e=" << e << "\n";
          tout << " interv = "; m_intervals.display(tout, a););
        return a;
    }
        
    for (unsigned k = 1; k < es.size(); k++) {
        TRACE("nla_horner_details_sum", tout <<  "es[" << k << "]= " << es[k] << "\n";);
        interv b = interval_of_expr(es[k]);
        if (m_intervals.is_inf(b)) {
            TRACE("nla_horner_details", tout << "got inf\n";);
            return b;
        }
        interv c;
        interval_deps_combine_rule combine_rule;
        TRACE("nla_horner_details_sum", tout << "a = "; m_intervals.display(tout, a) << "\nb = "; m_intervals.display(tout, b) << "\n";);
        m_intervals.add(a, b, c, combine_rule);
        m_intervals.combine_deps(a, b, combine_rule, c);
        m_intervals.set(a, c);
        TRACE("nla_horner_details_sum", tout << es[k] << ", ";
              m_intervals.display(tout, a); tout << "\n";);
        if (m_intervals.is_inf(a)) {
            TRACE("nla_horner_details", tout << "got infinity\n";);            
            return a;
        }
    }
    TRACE("nla_horner_details",  tout << "e=" << e << "\n";
          tout << " interv = "; m_intervals.display(tout, a););
    return a;
}
// sets the dependencies also
void horner::set_var_interval(lpvar v, interv& b) {
    m_intervals.set_var_interval_with_deps(v, b);    
    TRACE("nla_horner_details_var", tout << "v = "; print_var(v, tout) << "\n"; m_intervals.display(tout, b););    
}
}