| changeset 65458 | cf504b7a7aa7 |
| parent 65049 | 928156a95e1a |
| child 67703 | 8c4806fe827f |
--- a/src/HOL/Tools/Nitpick/nitpick_hol.ML Mon Apr 10 16:43:12 2017 +0200 +++ b/src/HOL/Tools/Nitpick/nitpick_hol.ML Mon Apr 10 21:05:31 2017 +0200 @@ -1360,7 +1360,7 @@ ctxt |> Spec_Rules.get |> filter (curry (op =) Spec_Rules.Unknown o fst) |> maps (snd o snd) - |> filter_out (is_built_in_theory o Thm.theory_id_of_thm) + |> filter_out (is_built_in_theory o Thm.theory_id) |> map (subst_atomic subst o Thm.prop_of) fun arity_of_built_in_const (s, T) =