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