feat(frontends/lean): add command #congr_rel for testing new congruence lemma for equivalence relations

This commit is contained in:
Leonardo de Moura 2015-11-17 15:43:10 -08:00
parent 16bcd2f522
commit f363975856
3 changed files with 23 additions and 5 deletions

View file

@ -1287,7 +1287,9 @@ static environment replace_cmd(parser & p) {
return env; return env;
} }
static environment congr_cmd_core(parser & p, bool simp) { enum class congr_kind { Simp, Default, Rel };
static environment congr_cmd_core(parser & p, congr_kind kind) {
environment const & env = p.env(); environment const & env = p.env();
auto pos = p.pos(); auto pos = p.pos();
expr e; level_param_names ls; expr e; level_param_names ls;
@ -1296,7 +1298,12 @@ static environment congr_cmd_core(parser & p, bool simp) {
app_builder b(ctx); app_builder b(ctx);
fun_info_manager infom(ctx); fun_info_manager infom(ctx);
congr_lemma_manager cm(b, infom); congr_lemma_manager cm(b, infom);
auto r = simp ? cm.mk_congr_simp(e) : cm.mk_congr(e); optional<congr_lemma> r;
switch (kind) {
case congr_kind::Simp: r = cm.mk_congr_simp(e); break;
case congr_kind::Default: r = cm.mk_congr(e); break;
case congr_kind::Rel: r = cm.mk_rel_iff_congr(e); break;
}
if (!r) if (!r)
throw parser_error("failed to generated congruence lemma", pos); throw parser_error("failed to generated congruence lemma", pos);
auto out = p.regular_stream(); auto out = p.regular_stream();
@ -1320,11 +1327,15 @@ static environment congr_cmd_core(parser & p, bool simp) {
} }
static environment congr_simp_cmd(parser & p) { static environment congr_simp_cmd(parser & p) {
return congr_cmd_core(p, true); return congr_cmd_core(p, congr_kind::Simp);
} }
static environment congr_cmd(parser & p) { static environment congr_cmd(parser & p) {
return congr_cmd_core(p, false); return congr_cmd_core(p, congr_kind::Default);
}
static environment congr_rel_cmd(parser & p) {
return congr_cmd_core(p, congr_kind::Rel);
} }
static environment simplify_cmd(parser & p) { static environment simplify_cmd(parser & p) {
@ -1435,6 +1446,7 @@ void init_cmd_table(cmd_table & r) {
add_cmd(r, cmd_info("#replace", "(for debugging purposes)", replace_cmd)); add_cmd(r, cmd_info("#replace", "(for debugging purposes)", replace_cmd));
add_cmd(r, cmd_info("#congr", "(for debugging purposes)", congr_cmd)); add_cmd(r, cmd_info("#congr", "(for debugging purposes)", congr_cmd));
add_cmd(r, cmd_info("#congr_simp", "(for debugging purposes)", congr_simp_cmd)); add_cmd(r, cmd_info("#congr_simp", "(for debugging purposes)", congr_simp_cmd));
add_cmd(r, cmd_info("#congr_rel", "(for debugging purposes)", congr_rel_cmd));
add_cmd(r, cmd_info("#normalizer", "(for debugging purposes)", normalizer_cmd)); add_cmd(r, cmd_info("#normalizer", "(for debugging purposes)", normalizer_cmd));
add_cmd(r, cmd_info("#accessible", "(for debugging purposes) display number of accessible declarations for blast tactic", accessible_cmd)); add_cmd(r, cmd_info("#accessible", "(for debugging purposes) display number of accessible declarations for blast tactic", accessible_cmd));
add_cmd(r, cmd_info("#decl_stats", "(for debugging purposes) display declaration statistics", decl_stats_cmd)); add_cmd(r, cmd_info("#decl_stats", "(for debugging purposes) display declaration statistics", decl_stats_cmd));

View file

@ -121,7 +121,7 @@ void init_token_table(token_table & t) {
"multiple_instances", "find_decl", "attribute", "persistent", "multiple_instances", "find_decl", "attribute", "persistent",
"include", "omit", "migrate", "init_quotient", "init_hits", "#erase_cache", "#projections", "#telescope_eq", "include", "omit", "migrate", "init_quotient", "init_hits", "#erase_cache", "#projections", "#telescope_eq",
"#compile", "#accessible", "#decl_stats", "#relevant_thms", "#simplify", "#app_builder", "#refl", "#symm", "#compile", "#accessible", "#decl_stats", "#relevant_thms", "#simplify", "#app_builder", "#refl", "#symm",
"#trans", "#replace", "#congr", "#congr_simp", "#normalizer", "#abstract_expr", nullptr}; "#trans", "#replace", "#congr", "#congr_simp", "#congr_rel", "#normalizer", "#abstract_expr", nullptr};
pair<char const *, char const *> aliases[] = pair<char const *, char const *> aliases[] =
{{g_lambda_unicode, "fun"}, {"forall", "Pi"}, {g_forall_unicode, "Pi"}, {g_pi_unicode, "Pi"}, {{g_lambda_unicode, "fun"}, {"forall", "Pi"}, {g_forall_unicode, "Pi"}, {g_pi_unicode, "Pi"},

View file

@ -0,0 +1,6 @@
import data.list
open perm
#congr_rel @eq
#congr_rel @iff
#congr_rel @perm