Ltac prolong A B x C D :=
 assert (sg:= Msegment_construction A B C D);
 ex_and sg x.

Lemma five_segment : forall A A' B B' C C' D D', CongM A B A' B' -> CongM B C B' C' -> CongM A D A' D' -> CongM B D B' D' -> BetM A B C -> BetM A' B' C' -> A <> B -> CongM C D C' D'.