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