Ltac CopR :=
 let tpoint := constr:(Tpoint) in
 let col := constr:(Col) in
 let cop := constr:(Coplanar) in
   assert_ncols; Cop_refl tpoint col cop.

Lemma image_image_in : forall A B P P' M, P <> P'-> ReflectL P P' A B -> Col A B M -> Col P M P' -> ReflectL_at M P P' A B.