eapply l5_5_2.
unfold Le in H1.
ex_and H1 P.
prolong A C T P B'.
exists T.
split.
assumption.
assert(Bet A B T).
eapply between_exchange4.
apply H.
assumption.
eapply l2_11.
apply H6.
2: apply H3.
eapply between_exchange4.
apply H1.
assumption.
apply cong_left_commutativity.
eapply l2_11.
4: apply cong_left_commutativity.
4:apply H2.
apply between_symmetry.
eapply between_exchange3.
apply H.
assumption.
eapply between_exchange3.
apply H1.
assumption.
Cong.
Qed.

(* Specifications: *)
Lemma cong_le_le : forall A B C A' B' C', Bet A B C -> Bet A' B' C' -> Le B C B' C' -> Cong A B A' B' -> Le A C A' C'.
intros.