let code_annot_names ca = match ca.annot_content with
  | AAssert (_, named_pred) | AInvariant (_,_,named_pred) -> named_pred.name
  | AVariant (term, _) -> term.term_name
  | _ -> []