constelm.h

Go to the documentation of this file.

// Author(s): Wieger Wesselink
// Copyright: see the accompanying file COPYING or copy at
// https://github.com/mCRL2org/mCRL2/blob/master/COPYING
//
// Distributed under the Boost Software License, Version 1.0.
// (See accompanying file LICENSE_1_0.txt or copy at
// http://www.boost.org/LICENSE_1_0.txt)
//
 
#ifndef MCRL2_LPS_CONSTELM_H
#define MCRL2_LPS_CONSTELM_H
 
#include "mcrl2/lps/detail/lps_algorithm.h"
 
namespace mcrl2
{
 
namespace lps
{
 
template <typename DataRewriter, typename Specification = specification>
class constelm_algorithm: public lps::detail::lps_algorithm<Specification>
{
  typedef typename lps::detail::lps_algorithm<Specification> super;
 
  protected:
    bool m_instantiate_global_variables;
 
    bool m_ignore_conditions;
 
    std::map<data::variable, std::size_t> m_index_of;
 
    const DataRewriter& R;
 
    void LOG_CONSTANT_PARAMETERS(const data::mutable_map_substitution<>& sigma, const std::string& constant_removed_msg = "", const std::string& nothing_removed_msg = "")
    {
      if (mCRL2logEnabled(log::verbose))
      {
        if (sigma.empty())
        {
          mCRL2log(log::verbose) << nothing_removed_msg;
        }
        else 
        {  
          mCRL2log(log::verbose) << constant_removed_msg;
          for (const auto& i : sigma)
          {
            mCRL2log(log::verbose) << data::pp(i.first) << " := " << data::pp(i.second) << std::endl;
          }
        }
      }
    }
 
    void LOG_PARAMETER_CHANGE(const data::data_expression& d_j,
                              const data::data_expression& Rd_j,
                              const data::data_expression& Rg_ij,
                              const data::mutable_map_substitution<>& sigma,
                              const std::string& msg = ""
                             )
    {
      if (mCRL2logEnabled(log::debug))
      {
        mCRL2log(log::debug) << msg
                        << data::pp(d_j) << "\n"
                        << "      value before: " << Rd_j << "\n"
                        << "      value after:  " << Rg_ij << "\n"
                        << "      replacements: " << sigma << std::endl;
      }
    }
 
    void LOG_CONDITION(const data::data_expression& cond,
                       const data::data_expression& c_i,
                       const data::mutable_map_substitution<>& sigma,
                       const std::string& msg = ""
                      )
 
    {
      if (mCRL2logEnabled(log::debug))
      {
        mCRL2log(log::debug) << msg
                        << cond
                        << sigma
                        << " -> "
                        << c_i << std::endl;
      }
    }
 
    // returns true if x contains free variables that are not in global_variables
    bool is_constant(const data::data_expression& x, const std::set<data::variable>& global_variables) const
    {
      using utilities::detail::contains;
 
      for (const data::variable& v: find_free_variables(x))
      {
        if (!contains(global_variables, v))
        {
          return false;
        }
      }
      return true;
    }
 
  public:
 
    constelm_algorithm(Specification& spec, const DataRewriter& R_)
      : lps::detail::lps_algorithm<Specification>(spec),
        m_instantiate_global_variables(false),
        m_ignore_conditions(false),
        R(R_)
    {}
 
    data::mutable_map_substitution<> compute_constant_parameters(bool instantiate_global_variables = false, bool ignore_conditions = false)
    {
      using utilities::detail::contains;
 
      data::mutable_map_substitution<> sigma;
 
      m_instantiate_global_variables = instantiate_global_variables;
      m_ignore_conditions = ignore_conditions;
      data::data_expression_list initial_state = super::m_spec.initial_process().expressions();
      data::data_expression_vector r(initial_state.begin(), initial_state.end());
 
      // essential: rewrite the initial state vector r to normal form. Essential
      // because this value is used in W below, and assigned to the right hand side of a substitution, which
      // must be a normal form.
      lps::rewrite(r, R);
 
      auto& process = super::m_spec.process();
      const std::set<data::variable>& global_variables = super::m_spec.global_variables();
      const data::variable_list& d = process.process_parameters();
      const data::data_expression_list& e = super::m_spec.initial_process().expressions();
 
      // initialize m_index_of
      unsigned index = 0;
      for (const data::variable& v: d)
      {
        m_index_of[v] = index++;
      }
 
      std::set<data::variable> G(d.begin(), d.end());
      std::set<data::variable> dG;
      auto di = d.begin();
      auto ei = e.begin();
      for (; di != d.end(); ++di, ++ei)
      {
        // The rewriter requires that the right hand sides of a substitution are in normal form.
        data::data_expression rhs = R(*ei);
        if (is_constant(rhs, global_variables))
        {
          sigma[*di] = rhs;
        }
        else
        {
          G.erase(*di);
        }
      }
 
      // undo contains undo information of instantiations of free variables
      std::map<data::variable, std::set<data::variable> > undo;
 
      do
      {
        dG.clear();
        for (const auto& summand: process.action_summands())
        {
          const data::data_expression& c_i = summand.condition();
          if (m_ignore_conditions || (R(c_i, sigma) != data::sort_bool::false_()))
          {
            for (const data::variable& j: G)
            {
              if (dG.find(j) != dG.end())
              {
                continue;
              }
              std::size_t index_j = m_index_of[j];
              const data::variable& d_j = j;
              data::data_expression g_ij = super::next_state(summand, d_j);
 
              if (R(g_ij, sigma) != R(d_j, sigma))
              {
                LOG_PARAMETER_CHANGE(d_j, R(d_j, sigma), R(g_ij, sigma), sigma, "POSSIBLE CHANGE FOR PARAMETER ");
                data::data_expression z = R(g_ij, sigma);
                if (is_variable(z) && contains(global_variables, atermpp::down_cast<data::variable>(z)))
                {
                  sigma[atermpp::down_cast<data::variable>(z)] = r[index_j];
                  undo[d_j].insert(atermpp::down_cast<data::variable>(z));
                }
                else
                {
                  dG.insert(d_j);
                  sigma[d_j] = d_j; // erase d_j
                  for (const data::variable& w: undo[d_j])
                  {
                    sigma[w] = w; // erase *w
                  }
                  undo[d_j].clear();
                }
              }
              else
              {
                LOG_PARAMETER_CHANGE(d_j, R(d_j, sigma), R(g_ij, sigma), sigma, "NO CHANGE FOR PARAMETER ");
              }
            }
          }
          else
          {
            LOG_CONDITION(summand.condition(), R(c_i, sigma), sigma, "CONDITION IS FALSE: ");
          }
        }
        for (const data::variable& v: dG)
        {
          G.erase(v);
        }
      }
      while (!dG.empty());
 
      return sigma;
    }
 
    void remove_parameters(data::mutable_map_substitution<>& sigma)
    {
      LOG_CONSTANT_PARAMETERS(sigma, "Removing the following constant parameters:\n", "No constant parameters are removed.\n");
 
      // N.B. The order of removing constant parameters and rewriting has been reversed
      // as requested by Jan Friso Groote. This may lead to some gain in performance (13%
      // in the case of 6x6 othello). Note that due to this change the intermediate result
      // after removing parameters may not be a valid LPS.
 
      // remove the constant parameters from the specification spec
      std::set<data::variable> constant_parameters;
      for (const auto& i: sigma)
      {
        constant_parameters.insert(i.first);
      }
      lps::remove_parameters(super::m_spec, constant_parameters);
 
      // rewrite the specification with substitution sigma
      lps::rewrite(super::m_spec, R, sigma);
    }
 
    void run(bool instantiate_global_variables = false, bool ignore_conditions = false)
    {
      data::mutable_map_substitution<> sigma = compute_constant_parameters(instantiate_global_variables, ignore_conditions);
      remove_parameters(sigma);
    };
};
 
template <typename DataRewriter, typename Specification>
void constelm(Specification& spec, const DataRewriter& R, bool instantiate_global_variables = false)
{
  constelm_algorithm<DataRewriter, Specification> algorithm(spec, R);
  algorithm.run(instantiate_global_variables);
}
 
} // namespace lps
 
} // namespace mcrl2
 
#endif // MCRL2_LPS_CONSTELM_H