let add_lvar e x t =
   {
    formals_in_pre = e.formals_in_pre ;
    frame = e.frame ;
    label = e.label ;
    lvars = Logic_var.Map.add x t e.lvars ;
    xvars = e.xvars ;
  }