From 4c573380b226d05ecfda2d55c0b9fe001fbe43f3 Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Fri, 30 Oct 2015 16:46:01 -0700 Subject: [PATCH] feat(library/class): add auxiliary methods --- src/library/class.cpp | 13 +++++++++++++ src/library/class.h | 4 ++++ 2 files changed, 17 insertions(+) diff --git a/src/library/class.cpp b/src/library/class.cpp index 0947f022a..7d7d0363a 100644 --- a/src/library/class.cpp +++ b/src/library/class.cpp @@ -346,6 +346,19 @@ bool is_instance(environment const & env, name const & i) { return s.is_instance(i); } +name_predicate mk_class_pred(environment const & env) { + class_state const & s = class_ext::get_state(env); + class_state::class_instances cs = s.m_instances; + return [=](name const & n) { return cs.contains(n); }; // NOLINT +} + +name_predicate mk_instance_pred(environment const & env) { + class_state const & s = class_ext::get_state(env); + class_state::instance_priorities insts = s.m_priorities; + name_set der_insts = s.m_derived_trans_instance_set; + return [=](name const & n) { return insts.contains(n) || der_insts.contains(n); }; // NOLINT +} + bool is_derived_trans_instance(environment const & env, name const & i) { class_state const & s = class_ext::get_state(env); return s.is_derived_trans_instance(i); diff --git a/src/library/class.h b/src/library/class.h index f0f439bf9..71b34d70d 100644 --- a/src/library/class.h +++ b/src/library/class.h @@ -23,6 +23,10 @@ environment add_trans_instance(environment const & env, name const & n, unsigned bool is_class(environment const & env, name const & c); /** \brief Return true iff \c i was declared with \c add_instance. */ bool is_instance(environment const & env, name const & i); +/** \brief Return the set of active classes (as a predicate) for the given environment */ +name_predicate mk_class_pred(environment const & env); +/** \brief Return the set of active instances (as a predicate) for the given environment */ +name_predicate mk_instance_pred(environment const & env); /** \brief Return true iff \c i is a derived transitive instance. */ bool is_derived_trans_instance(environment const & env, name const & i); /** \brief Return the instances of the given class. */