Proof with finish.
intros.
unfold Proj in *.
spliter.
repeat split; auto.
intro.
apply H3.
eapply (par_col_par_2 _ C); Col; Par.
(*perm_apply (par_col_par X Y A C).*)
ColR.
Qed.

(* Specifications: *)
Lemma project_trivial : forall P A B X Y,
A <> B -> X <> Y ->
Col A B P -> ~ Par A B X Y ->
Proj P P A B X Y.
Lemma pj_col_project : forall P P' A B X Y,
A <> B -> X <> Y ->
Col P' A B ->
~ Par A B X Y ->
Pj X Y P P' ->
Proj P P' A B X Y.