let havoc_region hkind caller_mem region prop =
    match region with
      | A_everything ->
          WpModel.quantify caller_mem prop
      | A_region region ->
          let hs =
            List.concat
              (List.map (WpModel.subst_havoc caller_mem) region) in
          begin
            match hkind with
              | WpPropId.StmtAssigns -> D.havoc_static hs prop
              | WpPropId.LoopAssigns -> D.havoc_inductive hs prop
          end