let assigns_goal m1 reg m2 =
    (* Not very usefull, since assigns_supported = false !! *)
    let region =
      List.map
        (function
           | F.Aloc(_,Path _) | F.Arange(_,Path _,_) 
           | F.Aloc(_,PRef _) | F.Arange(_,PRef _,_)
           | F.Aloc(_,PRpar _) | F.Arange(_,PRpar _,_) 
           | F.Aloc(_,ARef _) | F.Arange(_,ARef _,_)
           | F.Aloc(_,ARpar _) | F.Arange(_,ARpar _,_) ->
               WpLog.fatal 
                 "Proof of assigns-clause with hoare-region"
           | F.Aloc(te,Mloc l) -> F.Aloc(te,l)
           | F.Arange(te,Mloc l,rg) -> F.Arange(te,l,rg))
        reg
    in
    M.assigns_goal m1.mem region m2.mem