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