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 ; }