src/HOL/Mutabelle/mutabelle_extra.ML
changeset 38857 97775f3e8722
parent 38795 848be46708dc
child 38864 4abe644fcea5
equal deleted inserted replaced
38856:168dba35ecf3 38857:97775f3e8722
   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 []