src/HOL/Tools/BNF/bnf_lfp_size.ML
changeset 71214 5727bcc3c47c
parent 71179 592e2afdd50c
child 72154 2b41b710f6ef
equal deleted inserted replaced
71213:39ccdbbed539 71214:5727bcc3c47c
   371          (size_neqN, size_neq_thmss, [])]
   371          (size_neqN, size_neq_thmss, [])]
   372         |> massage_multi_notes;
   372         |> massage_multi_notes;
   373 
   373 
   374       val (noted, lthy3) =
   374       val (noted, lthy3) =
   375         lthy2
   375         lthy2
   376         |> Spec_Rules.add "" Spec_Rules.equational size_consts size_simps
   376         |> Spec_Rules.add Binding.empty Spec_Rules.equational size_consts size_simps
   377         |> Spec_Rules.add "" Spec_Rules.equational overloaded_size_consts overloaded_size_simps
   377         |> Spec_Rules.add Binding.empty Spec_Rules.equational
       
   378             overloaded_size_consts overloaded_size_simps
   378         |> Code.declare_default_eqns (map (rpair true) (flat size_thmss))
   379         |> Code.declare_default_eqns (map (rpair true) (flat size_thmss))
   379           (*Ideally, this would be issued only if the "code" plugin is enabled.*)
   380           (*Ideally, this would be issued only if the "code" plugin is enabled.*)
   380         |> Local_Theory.notes notes;
   381         |> Local_Theory.notes notes;
   381 
   382 
   382       val phi0 = substitute_noted_thm noted;
   383       val phi0 = substitute_noted_thm noted;