changeset 74279 | 42db84eaee2d |
parent 74278 | a123db647573 |
child 74339 | bff865939cc3 |
--- a/src/Pure/theory.ML Thu Sep 09 22:12:05 2021 +0200 +++ b/src/Pure/theory.ML Thu Sep 09 22:29:15 2021 +0200 @@ -247,7 +247,7 @@ val lhs_vars = TFrees.build (fold TFrees.add_tfreesT (snd lhs)); val rhs_extras = TFrees.build (rhs |> fold (fold (TFrees.add_tfreesT_unless (TFrees.defined lhs_vars)) o snd)) - |> TFrees.list_set_rev; + |> TFrees.keys; val _ = if null rhs_extras then () else error ("Specification depends on extra type variables: " ^