let axiom_env here =
    let frame = user_frame () in
    let here = Clabels.LabelParam here (* Non-expected ! *) in
    {
      formals_in_pre = false ;
      frame = frame ;
      label = here ;
      lvars = Logic_var.Map.empty ;
      xvars = Varinfo.Map.empty ;
      laddr = Logic_var.Map.empty ;
    }