如何在coq api中获取命名目标的名称

open Coqast
open Coqapi

let get_current_goal_name () =
  let open Term in
  let open Constr in
  let open Names in
  let open Globnames in
  let open Termops in
  let open Pp in
  let coq = Coq.init () in
  let _ = Coq.query coq (Query.make "Print Goal") in
  let goals = Coq.goal_list coq in
  match goals with
  | [] -> raise (Failure "No goals.")
  | goal :: _ ->
     let goal_decl = Coq.goal_decl coq goal in
     let goal_name = goal_decl.goal_concl.hyps in
     List.map (fun id -> Id.to_string id) goal_name

let () =
  try
    let names = get_current_goal_name () in
    Format.printf "Current goal names: %a@." (Pp.separated_list Pp.string) names
  with e ->
    Format.eprintf "Error: %s@." (Printexc.to_string e)