let havoc_region hkind caller_frame region prop =
    match region with
      | None ->
          (* Assigns Everythings *)
          WpModel.quantify_at_label caller_frame Clabels.Here prop
      | Some region ->
          let hs =
            List.concat
              (List.map (WpModel.subst_havoc caller_frame) region) in
          begin
            match hkind with
              | WpAnnot.StmtAssigns -> D.havoc_static hs prop
              | WpAnnot.LoopAssigns -> D.havoc_inductive hs prop
          end