cvc5-cvc5-1.2.0.src.theory.sets.proof_checker.cpp Maven / Gradle / Ivy

Go to download
Show more of this group Show more artifacts with this name
Show all versions of cvc5-turnkey Show documentation
TurnKey artifact for cvc5
The newest version!
/******************************************************************************
 * Top contributors (to current version):
 *   Andrew Reynolds
 *
 * This file is part of the cvc5 project.
 *
 * Copyright (c) 2009-2024 by the authors listed in the file AUTHORS
 * in the top-level source directory and their institutional affiliations.
 * All rights reserved.  See the file COPYING in the top-level source
 * directory for licensing information.
 * ****************************************************************************
 *
 * Implementation of sets proof checker.
 */

#include "theory/sets/proof_checker.h"

#include "expr/skolem_manager.h"

namespace cvc5::internal {
namespace theory {
namespace sets {

SetsProofRuleChecker::SetsProofRuleChecker(NodeManager* nm)
    : ProofRuleChecker(nm)
{
}

void SetsProofRuleChecker::registerTo(ProofChecker* pc)
{
  pc->registerChecker(ProofRule::SETS_SINGLETON_INJ, this);
  pc->registerChecker(ProofRule::SETS_EXT, this);
}

Node SetsProofRuleChecker::checkInternal(ProofRule id,
                                         const std::vector& children,
                                         const std::vector& args)
{
  NodeManager* nm = nodeManager();
  if (id == ProofRule::SETS_SINGLETON_INJ)
  {
    Assert(children.size() == 1);
    Assert(args.empty());
    Node eq = children[0];
    if (eq.getKind() != Kind::EQUAL || eq[0].getKind() != Kind::SET_SINGLETON
        || eq[1].getKind() != Kind::SET_SINGLETON)
    {
      return Node::null();
    }
    return eq[0][0].eqNode(eq[1][0]);
  }
  else if (id == ProofRule::SETS_EXT)
  {
    Assert(children.size() == 1);
    Assert(args.empty());
    Node deq = children[0];
    if (deq.getKind() != Kind::NOT || deq[0].getKind() != Kind::EQUAL
        || !deq[0][0].getType().isSet())
    {
      return Node::null();
    }
    Node a = deq[0][0];
    Node b = deq[0][1];
    SkolemManager* sm = nm->getSkolemManager();
    Node k = sm->mkSkolemFunction(SkolemId::SETS_DEQ_DIFF, {a, b});
    Node as = nm->mkNode(Kind::SET_MEMBER, k, a);
    Node bs = nm->mkNode(Kind::SET_MEMBER, k, b);
    return as.eqNode(bs).notNode();
  }
  // no rule
  return Node::null();
}

}  // namespace sets
}  // namespace theory
}  // namespace cvc5::internal