feat(frontends/lean): add print [no_pattern] command

src/frontends/lean/builtin_cmds.cpp

@@ -508,6 +508,19 @@ static void print_backward_rules(parser & p) {
     out << brs;
 }
 
+static void print_no_patterns(parser & p) {
+    io_state_stream out = p.regular_stream();
+    auto s = get_no_patterns(p.env());
+    buffer<name> ns;
+    s.to_buffer(ns);
+    std::sort(ns.begin(), ns.end());
+    for (unsigned i = 0; i < ns.size(); i++) {
+        if (i > 0) out << ", ";
+        out << ns[i];
+    }
+    out << "\n";
+}
+
 environment print_cmd(parser & p) {
     flycheck_information info(p.regular_stream());
     if (info.enabled()) {
@@ -524,6 +537,9 @@ environment print_cmd(parser & p) {
         options opts = out.get_options();
         opts = opts.update(get_pp_notation_option_name(), false);
         out.update_options(opts) << e << endl;
+    } else if (p.curr_is_token_or_id(get_no_pattern_attr_tk())) {
+        p.next();
+        print_no_patterns(p);
     } else if (p.curr_is_token_or_id(get_reducible_tk())) {
         p.next();
         print_reducible_info(p, reducible_status::Reducible);

src/library/blast/forward/pattern.cpp

@@ -69,6 +69,10 @@ environment add_no_pattern(environment const & env, name const & n, bool persist
     return no_pattern_ext::add_entry(env, get_dummy_ios(), n, persistent);
 }
 
+name_set const & get_no_patterns(environment const & env) {
+    return no_pattern_ext::get_state(env);
+}
+
 /** pattern_le */
 struct pattern_le_fn {
     tmp_type_context & m_ctx;

src/library/blast/forward/pattern.h

@@ -22,6 +22,8 @@ bool has_patterns(expr const & e);
 environment add_no_pattern(environment const & env, name const & n, bool persistent);
 /** \brief Return true if constant \c n is marked as [no_pattern] in the given environment. */
 bool is_no_pattern(environment const & env, name const & n);
+/** \brief Return the set of constants marked as no-patterns */
+name_set const & get_no_patterns(environment const & env);
 
 void initialize_pattern();
 void finalize_pattern();

tests/lean/run/print_no_pattern.lean

@@ -0,0 +1 @@
+print [no_pattern]