equal
deleted
inserted
replaced
181 equal_elim (symmetric rew_imp) thm |
181 equal_elim (symmetric rew_imp) thm |
182 |
182 |
183 fun add_final (arg as (thy, thm)) = |
183 fun add_final (arg as (thy, thm)) = |
184 if name = "" |
184 if name = "" |
185 then arg |> Library.swap |
185 then arg |> Library.swap |
186 else (writeln (" " ^ name ^ ": " ^ (Display.string_of_thm thm)); |
186 else (writeln (" " ^ name ^ ": " ^ Display.string_of_thm_global thy thm); |
187 PureThy.store_thm (Binding.name name, thm) thy) |
187 PureThy.store_thm (Binding.name name, thm) thy) |
188 in |
188 in |
189 args |> apsnd (remove_alls frees) |
189 args |> apsnd (remove_alls frees) |
190 |> apsnd undo_imps |
190 |> apsnd undo_imps |
191 |> apsnd standard |
191 |> apsnd standard |