proper proof body context for Simplifier plugins (solvers, loopers, ...) -- avoid crash due to Subgoal.FOCUS (before e58bc223f46c);
authorwenzelm
Thu, 19 Dec 2019 15:29:48 +0100
changeset 71318 1be996d8bb98
parent 71317 e58bc223f46c
child 71319 26614beb3529
proper proof body context for Simplifier plugins (solvers, loopers, ...) -- avoid crash due to Subgoal.FOCUS (before e58bc223f46c);
src/Pure/raw_simplifier.ML
--- a/src/Pure/raw_simplifier.ML	Thu Dec 19 15:22:35 2019 +0100
+++ b/src/Pure/raw_simplifier.ML	Thu Dec 19 15:29:48 2019 +0100
@@ -1350,6 +1350,7 @@
 
     val ctxt =
       raw_ctxt
+      |> Variable.set_body true
       |> Context_Position.set_visible false
       |> inc_simp_depth
       |> (fn ctxt => trace_invoke {depth = simp_depth ctxt, term = Thm.term_of ct} ctxt);