src/Pure/Isar/proof_context.ML
changeset 70733 ce1afe0f3071
parent 70730 7b5ee1fa5029
child 70734 31364e70ff3e
--- a/src/Pure/Isar/proof_context.ML	Wed Sep 18 22:46:01 2019 +0200
+++ b/src/Pure/Isar/proof_context.ML	Thu Sep 19 10:52:18 2019 +0200
@@ -417,8 +417,7 @@
 (* augment context by implicit term declarations *)
 
 fun augment t ctxt = ctxt
-  |> not (Variable.is_body ctxt) ?
-      Variable.add_fixes_direct (rev (Variable.add_free_names ctxt t []))
+  |> Variable.add_fixes_implicit t
   |> Variable.declare_term t
   |> Soft_Type_System.augment t;