feat(library/simplifier/simp_rule_set): throw exception for null simp rule

This commit is contained in:
Daniel Selsam 2015-11-16 17:48:19 -08:00
parent 7cd15aaecd
commit 56efc969fd

View file

@ -259,6 +259,7 @@ static name * g_prefix = nullptr;
simp_rule_sets add_core(tmp_type_context & tctx, simp_rule_sets const & s, simp_rule_sets add_core(tmp_type_context & tctx, simp_rule_sets const & s,
name const & id, levels const & univ_metas, expr const & e, expr const & h) { name const & id, levels const & univ_metas, expr const & e, expr const & h) {
list<expr_pair> ceqvs = to_ceqvs(tctx, e, h); list<expr_pair> ceqvs = to_ceqvs(tctx, e, h);
if (is_nil(ceqvs)) throw exception("[simp] rule invalid");
environment const & env = tctx.env(); environment const & env = tctx.env();
simp_rule_sets new_s = s; simp_rule_sets new_s = s;
for (expr_pair const & p : ceqvs) { for (expr_pair const & p : ceqvs) {