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

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