src/HOL/Mutabelle/mutabelle_extra.ML
changeset 46314 f6532c597300
parent 46310 8af202923906
child 46315 40522961d4b1
equal deleted inserted replaced
46313:0c4f18fe8218 46314:f6532c597300
   256 
   256 
   257 val forbidden_mutant_constnames =
   257 val forbidden_mutant_constnames =
   258  ["HOL.induct_equal",
   258  ["HOL.induct_equal",
   259   "HOL.induct_implies",
   259   "HOL.induct_implies",
   260   "HOL.induct_conj",
   260   "HOL.induct_conj",
       
   261   "HOL.induct_forall",
   261  @{const_name undefined},
   262  @{const_name undefined},
   262  @{const_name default},
   263  @{const_name default},
   263  @{const_name dummy_pattern},
   264  @{const_name dummy_pattern},
   264  @{const_name "HOL.simp_implies"},
   265  @{const_name "HOL.simp_implies"},
   265  @{const_name "bot_fun_inst.bot_fun"},
   266  @{const_name "bot_fun_inst.bot_fun"},
   274  @{const_name "ord_fun_inst.less_fun"},
   275  @{const_name "ord_fun_inst.less_fun"},
   275  @{const_name Meson.skolem},
   276  @{const_name Meson.skolem},
   276  @{const_name ATP.fequal},
   277  @{const_name ATP.fequal},
   277  @{const_name transfer_morphism},
   278  @{const_name transfer_morphism},
   278  @{const_name enum_prod_inst.enum_all_prod},
   279  @{const_name enum_prod_inst.enum_all_prod},
   279  @{const_name enum_prod_inst.enum_ex_prod}
   280  @{const_name enum_prod_inst.enum_ex_prod},
       
   281  @{const_name Quickcheck.catch_match}
   280  (*@{const_name "==>"}, @{const_name "=="}*)]
   282  (*@{const_name "==>"}, @{const_name "=="}*)]
   281 
   283 
   282 val forbidden_mutant_consts =
   284 val forbidden_mutant_consts =
   283   [
   285   [
   284    (@{const_name "Groups.zero_class.zero"}, @{typ "prop => prop => prop"}),
   286    (@{const_name "Groups.zero_class.zero"}, @{typ "prop => prop => prop"}),