Arguments eq_dec _ _ _ _ : simpl never.

Lemma Forall_suffix_max : forall {A} (P : A -> Prop) l1 l2 i j
(Hi : 0 <= i <= Zlength l1) (Hj : 0 <= j <= Zlength l1)
(Hl1 : Forall P (sublist j (Zlength l1) l1))
(Hl2 : sublist i (Zlength l1) l1 = sublist i (Zlength l2) l2),
Forall P (sublist (Z.max i j) (Zlength l2) l2).