(** Predicates to compare segment lengths. *)
  
Definition le := fun A B C D =>
   exists y, Bet C y D /\ Cong A B C y.Definition ge := fun A B C D => le C D A B.

Lemma l5_6 : forall A B C D A' B' C' D', le A B C D /\ Cong A B A' B' /\ Cong C D C' D' -> le A' B' C' D'.