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