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