unfold orthogonal in |- *.
intros A B M O H H0 H1; try assumption.
apply transitive with (cons (vec O A) (vec O B)).
apply angle_inscrit; auto.
try exact H1.
Qed.

(* Specifications: *)
Theorem cocyclique :
forall M A B O M' : PO,
isocele O A B ->
isocele O M A ->
isocele O M B ->
isocele O M' A ->
isocele O M' B ->
R (double (cons (vec M' A) (vec M' B))) (double (cons (vec M A) (vec M B))).