let pp_annots fmt acc =
  let acc = acc.info in
  let pp_pred k b p =
    Format.fprintf fmt "%s%s: %a@."
      k (if b then "" else " (h)"WpPropId.pp_pred_of_pred_info p
  in
  let pp_pred_list k l = List.iter (fun p -> pp_pred k true p) l in
  let pp_pred_b_list k l = List.iter (fun (b, p) -> pp_pred k b p) l in
     pp_pred_list "H" acc.p_hyp;
     pp_pred_list "G" acc.p_goal;
     pp_pred_b_list "H+G" acc.p_both;
     pp_pred_b_list "C" acc.p_cut;
     pp_pred_list "CallHyp" acc.call_hyp;
     pp_pred_b_list "CallPre" acc.call_pre;
     WpPropId.pp_assign_info "HA" fmt acc.a_hyp;
     WpPropId.pp_assign_info "GA" fmt acc.a_goal;
     WpPropId.pp_assign_info "CallA" fmt acc.a_call