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