Attention une mise à jour du serveur va être effectuée le vendredi 16 avril entre 12h et 12h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit b989b344 authored by Andrei Paskevich's avatar Andrei Paskevich

replace physical equality with task_equal in Session

also apply transformations to the proved subgoals if "all subgoals"
is selected (just as we do it for provers)
parent b8dcebfc
......@@ -1481,7 +1481,6 @@ let task_checksum t =
let transformation_on_goal g tr =
if not g.proved then
let callback subgoals =
let b =
match subgoals with
......@@ -1493,8 +1492,7 @@ let transformation_on_goal g tr =
(* eprintf "addresses: %x %x@." (Obj.magic g.task) (Obj.magic task); *)
(* *\) *)
(* s1 <> s2 *)
task != (get_task g)
not (Task.task_equal task (get_task g))
| _ -> true
if b then
......@@ -1523,7 +1521,7 @@ let transformation_on_goal g tr =
apply_transformation ~callback tr (get_task g)
let rec transform_goal_or_children ~context_unproved_goals_only tr g =
if not g.proved then
if not (g.proved && context_unproved_goals_only) then
let r = ref true in
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment