From fe484b26f3d847216dfcc5b85e81b8b37fe56fe6 Mon Sep 17 00:00:00 2001
From: Leonardo de Moura <leonardo@microsoft.com>
Date: Thu, 16 Oct 2014 13:39:38 -0700
Subject: [PATCH] refactor(kernel/expr): remove dead code

---
 src/kernel/expr.cpp | 29 -----------------------------
 src/kernel/expr.h   | 14 --------------
 2 files changed, 43 deletions(-)

diff --git a/src/kernel/expr.cpp b/src/kernel/expr.cpp
index 930d44af6..bb782ac91 100644
--- a/src/kernel/expr.cpp
+++ b/src/kernel/expr.cpp
@@ -427,13 +427,6 @@ expr const & get_app_args(expr const & e, buffer<expr> & args) {
     return *it;
 }
 
-void flat_app(expr const & e, buffer<expr> & args) {
-    unsigned i = args.size();
-    args.push_back(expr());
-    expr const & f = get_app_args(e, args);
-    args[i] = f;
-}
-
 expr const & get_app_rev_args(expr const & e, buffer<expr> & args) {
     expr const * it = &e;
     while (is_app(*it)) {
@@ -472,16 +465,6 @@ expr mk_arrow(expr const & t, expr const & e, tag g) {
     return mk_pi(get_default_var_name(), t, e, binder_info(), g);
 }
 
-expr mk_pi(unsigned sz, expr const * domain, expr const & range, tag g) {
-    expr r = range;
-    unsigned i = sz;
-    while (i > 0) {
-        --i;
-        r = mk_pi(name(g_default_var_name, i), domain[i], r, binder_info(), g);
-    }
-    return r;
-}
-
 static expr * g_Prop  = nullptr;
 static expr * g_Type1 = nullptr;
 expr mk_Prop() { return *g_Prop; }
@@ -516,18 +499,6 @@ expr update_app(expr const & e, expr const & new_fn, expr const & new_arg) {
         return e;
 }
 
-expr update_rev_app(expr const & e, unsigned num, expr const * new_args) {
-    expr const * it = &e;
-    for (unsigned i = 0; i < num - 1; i++) {
-        if (!is_app(*it) || !is_eqp(app_arg(*it), new_args[i]))
-            return mk_rev_app(num, new_args, e.get_tag());
-        it = &app_fn(*it);
-    }
-    if (!is_eqp(*it, new_args[num - 1]))
-        return mk_rev_app(num, new_args, e.get_tag());
-    return e;
-}
-
 expr update_binding(expr const & e, expr const & new_domain, expr const & new_body) {
     if (!is_eqp(binding_domain(e), new_domain) || !is_eqp(binding_body(e), new_body))
         return mk_binding(e.kind(), binding_name(e), new_domain, new_body, binding_info(e), e.get_tag());
diff --git a/src/kernel/expr.h b/src/kernel/expr.h
index d8bf50b06..f0908aa71 100644
--- a/src/kernel/expr.h
+++ b/src/kernel/expr.h
@@ -466,12 +466,6 @@ inline expr mk_pi(name const & n, expr const & t, expr const & e, binder_info co
 }
 expr mk_sort(level const & l, tag g = nulltag);
 
-/** \brief Return <tt>Pi(x.{sz-1}, domain[sz-1], ..., Pi(x.{0}, domain[0], range)...)</tt> */
-expr mk_pi(unsigned sz, expr const * domain, expr const & range, tag g = nulltag);
-inline expr mk_pi(buffer<expr> const & domain, expr const & range, tag g = nulltag) {
-    return mk_pi(domain.size(), domain.data(), range, g);
-}
-
 expr mk_Prop();
 expr mk_Type();
 
@@ -568,8 +562,6 @@ inline unsigned get_free_var_range(expr const & e) {
 inline bool has_free_vars(expr const & e) { return get_free_var_range(e) > 0; }
 /** \brief Return true iff the given expression does not have free variables. */
 inline bool closed(expr const & e) { return !has_free_vars(e); }
-/** \brief Return true iff \c e contains a free variable >= low. */
-inline bool has_free_var_ge(expr const & e, unsigned low) { return get_free_var_range(e) > low; }
 /**
     \brief Given \c e of the form <tt>(...(f a1) ... an)</tt>, store a1 ... an in args.
     If \c e is not an application, then nothing is stored in args.
@@ -582,16 +574,10 @@ expr const & get_app_args(expr const & e, buffer<expr> & args);
    If e is of the form <tt>(...(f a1) ... an)</tt>, then the procedure stores [an, ..., a1] in \c args.
 */
 expr const & get_app_rev_args(expr const & e, buffer<expr> & args);
-/**
-   \brief Given an application \c e of the form <tt>(...(f a1) ... an)</tt>, store f, a1, ... an in args.
-*/
-void flat_app(expr const & e, buffer<expr> & args);
 /** \brief Given \c e of the form <tt>(...(f a_1) ... a_n)</tt>, return \c f. If \c e is not an application, then return \c e. */
 expr const & get_app_fn(expr const & e);
 /** \brief Given \c e of the form <tt>(...(f a_1) ... a_n)</tt>, return \c n. If \c e is not an application, then return 0. */
 unsigned get_app_num_args(expr const & e);
-/** \brief Return the name of constant, local, metavar */
-inline name const & named_expr_name(expr const & e) { return is_constant(e) ? const_name(e) : mlocal_name(e); }
 // =======================================
 
 // =======================================