Ltac Midpoint := eauto with Midpoint.

Lemma l7_22_aux : forall A1 A2 B1 B2 C M1 M2, Bet A1 C A2 -> Bet B1 C B2 -> Cong C A1 C B1 -> Cong C A2 C B2 -> is_midpoint M1 A1 B1 -> is_midpoint M2 A2 B2 -> le C A1 C A2 -> Bet M1 C M2.