/*
Copyright (c) 2016 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.

Author: Leonardo de Moura
*/
#include "library/attribute_manager.h"

namespace lean {
void initialize_old_attributes() {
    register_prio_attribute("elim", "elimination rule that is eagerly applied by blast grinder",
                            [](environment const & env, io_state const & ios, name const & d, unsigned prio, name const & ns, bool persistent) {
                                return env;
                            },
                            [](environment const &, name const &) { return false; },
                            [](environment const & env, name const & n) {
                                return LEAN_DEFAULT_PRIORITY;
                            });
    register_prio_attribute("intro!", "introduction rule that is eagerly applied by blast grinder",
                            [](environment const & env, io_state const & ios, name const & d, unsigned prio, name const & ns, bool persistent) {
                                return env;
                            },
                            [](environment const &, name const &) { return false; },
                            [](environment const & env, name const & n) {
                                return LEAN_DEFAULT_PRIORITY;
                            });
    register_attribute("no_pattern", "do not consider terms containing this declaration in the pattern inference procedure",
                       [](environment const & env, io_state const &, name const & d, name const & ns, bool persistent) {
                           return env;
                       },
                       [](environment const &, name const &) { return false; });
    register_prio_attribute("forward", "forward chaining",
                            [](environment const & env, io_state const & ios, name const & d, unsigned prio, name const & ns, bool persistent) {
                                return env;
                            },
                            [](environment const &, name const &) { return false; },
                            [](environment const & env, name const & n) {
                                return LEAN_DEFAULT_PRIORITY;
                            });
    register_prio_attribute("intro", "introduction rule for backward chaining",
                            [](environment const & env, io_state const & ios, name const & d, unsigned prio, name const & ns, bool persistent) {
                                return env;
                            },
                            [](environment const &, name const &) { return false; },
                            [](environment const & env, name const & d) {
                                return LEAN_DEFAULT_PRIORITY;
                            });
}
void finalize_old_attributes() {}
}