intros A B M O H H0; try assumption.
unfold double in |- *.
lapply (triangle_isocele (A:=O) (B:=M) (C:=B)); intros.
lapply (isocele_permute (A:=O) (B:=M) (C:=A)); intros.
cut
(R
(plus (cons (vec O A) (vec O B))
(plus (cons (vec M B) (vec M A)) (cons (vec M B) (vec M A))))
(plus pi pi)).
intros.
apply
transitive
with
(plus
(plus (cons (vec O A) (vec O B))
(plus (cons (vec M B) (vec M A)) (cons (vec M B) (vec M A))))
(plus (cons (vec M A) (vec M B)) (cons (vec M A) (vec M B)))).
apply
transitive
with
(plus zero (plus (cons (vec M A) (vec M B)) (cons (vec M A) (vec M B)))).
apply symetrique.
apply zero_plus_a.
apply
transitive
with
(plus (plus pi pi)
(plus (cons (vec M A) (vec M B)) (cons (vec M A) (vec M B)))).
apply compatible.
apply symetrique.
apply pi_plus_pi.
apply reflexive.
apply
transitive
with
(plus (plus pi pi)
(plus (cons (vec M A) (vec M B)) (cons (vec M A) (vec M B)))).
apply compatible.
apply reflexive.
apply reflexive.
apply compatible.
apply symetrique.
try exact H3.
apply reflexive.
apply
transitive
with
(plus (cons (vec O A) (vec O B))
(plus (plus (cons (vec M B) (vec M A)) (cons (vec M B) (vec M A)))
(plus (cons (vec M A) (vec M B)) (cons (vec M A) (vec M B))))).
apply symetrique.
apply point_angle.plus_assoc.
apply transitive with (plus (cons (vec O A) (vec O B)) zero).
apply compatible.
apply reflexive.
apply
transitive
with
(plus (plus (cons (vec M B) (vec M A)) (cons (vec M A) (vec M B)))
(plus (cons (vec M B) (vec M A)) (cons (vec M A) (vec M B)))).
apply calcul4.
apply transitive with (plus zero zero).
apply compatible.
apply permute.
apply permute.
apply zero_plus_a.
apply plus_zero.
apply
transitive
with
(plus (plus (cons (vec O A) (vec O M)) (cons (vec O M) (vec O B)))
(plus (plus (cons (vec M O) (vec M A)) (cons (vec M B) (vec M O)))
(plus (cons (vec M O) (vec M A)) (cons (vec M B) (vec M O))))).
apply compatible.
apply symetrique.
apply Chasles.
apply compatible.
apply symetrique.
apply
transitive with (plus (cons (vec M B) (vec M O)) (cons (vec M O) (vec M A))).
apply plus_sym.
apply Chasles.
apply symetrique.
apply
transitive with (plus (cons (vec M B) (vec M O)) (cons (vec M O) (vec M A))).
apply plus_sym.
apply Chasles.
apply
transitive
with
(plus
(plus (cons (vec O A) (vec O M))
(plus (cons (vec M O) (vec M A)) (cons (vec M O) (vec M A))))
(plus (cons (vec O M) (vec O B))
(plus (cons (vec M B) (vec M O)) (cons (vec M B) (vec M O))))).
apply symetrique.
apply calcul3.
apply compatible.
try exact H2.
try exact H1.
try exact H.
try exact H0.
Qed.

(* Specifications: *)
Theorem tangente :
forall A B O T : PO,
isocele O A B ->
orthogonal (vec A T) (vec O A) ->
R (double (cons (vec A T) (vec A B))) (cons (vec O A) (vec O B)).
Lemma triangle_rectangle :
forall A B M O : PO,
isocele O M A ->
isocele O M B ->
orthogonal (vec M A) (vec M B) -> R (cons (vec O A) (vec O B)) pi.