let assigns_goal frame lab1 reg lab2 =
(* Not very usefull !! *)
let r_mem =
List.map
(function
| D.Aloc(_,Path _) | D.Arange(_,Path _,_) ->
Wp_parameters.fatal "Proof of assigns-clause with hoare-region"
| D.Aloc(te,Mloc l) -> D.Aloc(te,l)
| D.Arange(te,Mloc l,rg) -> D.Arange(te,l,rg))
reg
in
M.assigns_goal frame.mframe lab1 r_mem lab2