let add_array_length_hyp _m var p =
    match get_array_length var.vtype with
      | None -> p
      | Some sz ->
          let h = mk_v_array_length (pointer_of_loc (L0addr var)) sz in
          let p = F.p_implies h p in
          p