unfold milieu in |- *; intros.
elim H0; intros H1 H2; clear H0; try exact H2.
apply H2; auto.
Qed.
Axiom
point_aligne :
forall A B C : PO,
colineaire (vec A B) (vec C B) -> colineaire (vec A B) (vec A C).

(* Specifications: *)
Lemma existence_mediatrice_base_isocele :
forall A B C D : PO,
isocele A B C -> isocele D B C -> bissectrice D A B C /\ bissectrice A D B C.