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