let assert_ pos = function
  | User annot ->
      begin match annot.annot_content with
        | AAssert (behav,p,status) ->
            let behav = built_behavior_ids behav in
            let asrt = assertion status in
            [mkexpr (JCPEassert (behav,asrt,locate ~pos (named_pred p))) pos]
        | AInvariant(behav,_,p) ->
            let behav = built_behavior_ids behav in
            [mkexpr (JCPEassert
                       (behav,Aassert,locate ~pos (named_pred p))) pos]
        | _ -> assert false
      end
  | AI(alarm,annot) ->
      begin match annot.annot_content with
        | AAssert (behav,p,status) ->
            let asrt =
              if pred_has_name p name_of_hint_assertion then Ahint
              else assertion status
            in
            let p = remove_pred_name p name_of_hint_assertion in
            let behav = built_behavior_ids behav in
            [mkexpr (JCPEassert (behav,asrt,locate ~alarm ~pos (named_pred p))) pos]
        | AInvariant(behav,_,p) ->
            let behav = built_behavior_ids behav in
            [mkexpr (JCPEassert
                       (behav,Aassert,locate ~alarm ~pos (named_pred p))) pos]
        | _ -> assert false
      end