let axiom_env here =
let frame = M.userdef_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 ;
}