Proof using.
induction entries; intros.
- simpl in *. intuition.
- simpl in *. break_if; intuition.
+ subst. in_crush.
+ subst. do_bool. omega.
+ do_bool. find_apply_hyp_hyp. omega.
Qed.
Definition contiguous_range_exact_lo xs lo :=
(forall i,
lo < i <= maxIndex xs ->
exists e,
eIndex e = i /\
In e xs) /\
(forall e,
In e xs ->
lo < eIndex e).

(* Specifications: *)
Lemma removeAfterIndex_uniqueIndices :
forall l i,
uniqueIndices l ->
uniqueIndices (removeAfterIndex l i).