(** The predicate out P A B informally means that P is on the line A B outside the segment A B. *) 
  
Definition out := fun P A B => A<>P /\ B<>P /\ (Bet P A B \/ Bet P B A).

Lemma l6_13_1 : forall P A B, out P A B -> le P A P B -> Bet P A B.