equal
deleted
inserted
replaced
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; |