(****************** between_identity ************************)

(* Specifications: *)
Lemma bet_identity : forall A B, Bet A B A -> A = B.
(************************************************************)
Lemma morph : forall l m, EqL l m -> (forall A, IncidL A l <-> IncidL A m).
Lemma point3_online_exists : forall A B l, IncidL A l -> IncidL B l -> exists C, IncidL C l  /\ C <> A /\ C <> B.
Lemma not_betH121 : forall A B, ~BetH A B A.
(***************************** cong_identity ***********************)
Lemma cong_identity : forall A B C , Cong A B C C -> A = B.
(************************ cong_inner_transitivity ****************************)
Lemma cong_inner_transitivity : forall A B C D E F, Cong A B C D -> Cong A B E F -> Cong C D E F.
Lemma other_point_on_line : forall A l, IncidL A l -> exists B, A <> B /\ IncidL B l.
Lemma bet_disjoint : forall A B C, BetH A B C -> disjoint A B B C.
intros.