intros.
case (decide_before j i); auto.
Qed.

Lemma predicate_split_seq_after_notafter :
forall (A : Setoid) (n : nat) (v : seq n A) (i : fin n) (P : Predicate A),
(forall j : fin n, after j i -> Pred_fun P (v j)) ->
(forall j : fin n, notafter j i -> Pred_fun P (v j)) ->
forall j : fin n, Pred_fun P (v j).