let prepare_inv_fixpoint config s ca p =
  let id = mk_inv_hyp_id config.kf s ca in
  let labels = NormAtLabels.labels_loop_inv s in
    (labels, id, p)