let call_normal caller_env ~get_pre ~get_post ~get_assigns
      stmt lv fct args wp_normal
      =
    on_context caller_env  "call_normal" wp_normal Close_context Keep_assigns
      (fun caller_env p_assigns p_normal ->
         let get_exits _kf = [] in
         let p_exit = F.p_true in
         fst ( call caller_env ~get_pre ~get_post ~get_exits ~get_assigns
                 stmt lv fct args p_assigns p_normal p_exit ))