let region_included re r =
r.r_effect <- succ r.r_effect ;
let authorized =
List.fold_left
(fun re (_,_,rx) ->
WpModel.region_union re rx
) r.r_global r.r_locals
in
let p_included = WpModel.region_included re authorized in
F.p_iff (region_assigns r.r_effect) p_included