fix problem with naming of subgoals

src/session/session.ml

@@ -1493,6 +1493,7 @@ let add_transformation ~keygen env_session transfn g goals =
   let rtransf = raw_add_transformation ~keygen ~expanded:true g transfn in
   let parent = Parent_transf rtransf in
   let i = ref 0 in
+  let parent_goal_name = g.goal_name.Ident.id_string in
   let next_subgoal task =
     incr i;
     let gid,expl,_ = goal_expl_task ~root:false task in
@@ -1501,12 +1502,15 @@ let add_transformation ~keygen env_session transfn g goals =
       | Some e -> string_of_int !i ^ ". " ^ e
     in
     let expl = Some expl in
-    let goal_name = gid.Ident.id_string ^ "." ^ (string_of_int (!i)) in
+    (* Format.eprintf "parent_goal_name = %s@." parent_goal_name; *)
+    let goal_name = parent_goal_name ^ "." ^ string_of_int !i in
     let goal_name = Ident.id_register (Ident.id_derive goal_name gid) in
+    (* Format.eprintf "goal_name = %s@." goal_name.Ident.id_string; *)
     goal_name, expl, task
   in
   let add_goal acc g =
     let name,expl,task = next_subgoal g in
+    (* Format.eprintf "call raw_add_task with name = %s@." name.Ident.id_string; *)
     let g = raw_add_task ~version:env_session.session.session_shape_version
       ~keygen ~expanded:false parent name expl task
     in