200 (@{const_name "HOL.simp_implies"}, "prop => prop => prop"), |
200 (@{const_name "HOL.simp_implies"}, "prop => prop => prop"), |
201 (@{const_name "bot_fun_inst.bot_fun"}, "'a"), |
201 (@{const_name "bot_fun_inst.bot_fun"}, "'a"), |
202 (@{const_name "top_fun_inst.top_fun"}, "'a"), |
202 (@{const_name "top_fun_inst.top_fun"}, "'a"), |
203 (@{const_name "Pure.term"}, "'a"), |
203 (@{const_name "Pure.term"}, "'a"), |
204 (@{const_name "top_class.top"}, "'a"), |
204 (@{const_name "top_class.top"}, "'a"), |
205 (@{const_name "eq_class.eq"}, "'a"), |
205 (@{const_name "HOL.equal"}, "'a"), |
206 (@{const_name "Quotient.Quot_True"}, "'a")(*, |
206 (@{const_name "Quotient.Quot_True"}, "'a")(*, |
207 (@{const_name "uminus"}, "'a"), |
207 (@{const_name "uminus"}, "'a"), |
208 (@{const_name "Nat.size"}, "'a"), |
208 (@{const_name "Nat.size"}, "'a"), |
209 (@{const_name "Groups.abs"}, "'a") *)] |
209 (@{const_name "Groups.abs"}, "'a") *)] |
210 |
210 |
235 @{const_name "HOL.simp_implies"}, |
235 @{const_name "HOL.simp_implies"}, |
236 @{const_name "bot_fun_inst.bot_fun"}, |
236 @{const_name "bot_fun_inst.bot_fun"}, |
237 @{const_name "top_fun_inst.top_fun"}, |
237 @{const_name "top_fun_inst.top_fun"}, |
238 @{const_name "Pure.term"}, |
238 @{const_name "Pure.term"}, |
239 @{const_name "top_class.top"}, |
239 @{const_name "top_class.top"}, |
240 @{const_name "eq_class.eq"}, |
240 @{const_name "HOL.equal"}, |
241 @{const_name "Quotient.Quot_True"}] |
241 @{const_name "Quotient.Quot_True"}] |
242 |
242 |
243 fun is_forbidden_mutant t = |
243 fun is_forbidden_mutant t = |
244 let |
244 let |
245 val consts = Term.add_const_names t [] |
245 val consts = Term.add_const_names t [] |