Set Implicit Arguments.
Unset Strict Implicit.
Require Export point_cocyclicite.
unfold colineaire in |- *; intros.
apply regulier with (a := double (cons u v)) (c := double (cons u v)); auto.
apply transitive with (double (plus (cons u v) (cons v u))); auto.
apply transitive with (double zero); auto.
apply transitive with (plus zero zero); auto.
apply compatible; auto.
Qed.
Hint Resolve colineaire_sym.
unfold colineaire in |- *; intros.
apply
transitive with (double (plus (cons u' u) (plus (cons u v) (cons v v'))));
auto.
apply
transitive
with (plus (double (cons u' u)) (double (plus (cons u v) (cons v v'))));
auto.
apply
transitive
with
(plus (double (cons u' u))
(plus (double (cons u v)) (double (cons v v'))));
auto.
apply compatible; auto.
apply
transitive with (plus zero (plus (double (cons u v)) (double (cons v v'))));
auto.
apply compatible; auto.
cut (colineaire u' u); intros; auto.
apply transitive with (plus (double (cons u v)) (double (cons v v'))); auto.
apply transitive with (plus (double (cons u v)) zero); auto.
apply compatible; auto.
apply transitive with (plus zero (double (cons u v))); auto.
Qed.
Hint Resolve colineaire_modulo_pi.
unfold orthogonal in |- *; intros.
apply transitive with (double (plus (cons u v) (cons v (opp v)))); auto.
apply transitive with (plus (double (cons u v)) (double (cons v (opp v))));
auto.
apply transitive with (plus pi (double pi)); auto.
apply compatible; auto.
apply transitive with (plus pi zero); auto.
apply compatible; auto.
apply transitive with (plus zero pi); auto.
Qed.
Hint Resolve orthogonal_opp.
unfold colineaire, orthogonal in |- *; intros.
apply transitive with (double (plus (cons u v) (cons v w))); auto.
apply transitive with (plus (double (cons u v)) (double (cons v w))); auto.
apply transitive with (plus pi zero); auto.
apply compatible; auto.
apply transitive with (plus zero pi); auto.
Qed.
unfold colineaire in |- *; intros.
apply transitive with (double (plus (cons u v) (cons v w))); auto.
apply transitive with (plus (double (cons u v)) (double (cons v w))); auto.
apply transitive with (plus zero zero); auto.
apply compatible; auto.
Qed.
unfold orthogonal in |- *; intros.
apply
transitive with (double (plus (cons u u') (plus (cons u' v') (cons v' v))));
auto.
apply
transitive
with (plus (double (cons u u')) (double (plus (cons u' v') (cons v' v))));
auto.
apply
transitive
with
(plus (double (cons u u'))
(plus (double (cons u' v')) (double (cons v' v))));
auto.
apply compatible; auto.
apply transitive with (plus pi (plus (double (cons u' v')) pi)); auto.
apply compatible; auto.
apply compatible; auto.
apply regulier with (a := double (cons v v')) (c := pi); auto.
apply transitive with (double (plus (cons v v') (cons v' v))); auto.
apply transitive with (double (cons v v)); auto.
apply transitive with (double zero); auto.
apply transitive with zero; auto.
apply transitive with (plus (plus (double (cons u' v')) pi) pi); auto.
apply transitive with (plus (double (cons u' v')) (plus pi pi)); auto.
apply transitive with (plus (double (cons u' v')) zero); auto.
apply compatible; auto.
apply transitive with (plus zero (double (cons u' v'))); auto.
Qed.
Hint Resolve double_orthogonal.
intros u v H; unfold orthogonal, double in |- *.
apply transitive with (plus (cons u v) (cons v (opp u))); auto.
apply compatible; auto.
apply transitive with (cons u (opp u)); auto.
Qed.
unfold orthogonal, double in |- *; intros u v H.
apply transitive with (plus (cons v u) pi); auto.
apply regulier with (a := cons u v) (c := cons u v); auto.
apply transitive with pi; auto.
apply transitive with (plus (plus (cons u v) (cons v u)) pi); auto.
apply transitive with (plus zero pi); auto.
apply compatible; auto.
Qed.
Hint Resolve critere_orthogonal critere_orthogonal_reciproque.
Definition bissectrice (I A B C : PO) :=
R (cons (vec A B) (vec A I)) (cons (vec A I) (vec A C)).
unfold bissectrice, double in |- *; intros.
apply
transitive with (plus (cons (vec A B) (vec A I)) (cons (vec A I) (vec A C)));
auto.
apply compatible; auto.
Qed.
Hint Resolve bissectrice_double.
unfold colineaire in |- *; intros.
apply
transitive
with (double (plus (cons (vec A I) (vec A B)) (cons (vec A B) (vec A J))));
auto.
apply
transitive
with
(plus (double (cons (vec A I) (vec A B)))
(double (cons (vec A B) (vec A J)))); auto.
apply
transitive with (plus (cons (vec A C) (vec A B)) (cons (vec A B) (vec A C)));
auto.
apply compatible; unfold double in |- *.
apply
transitive with (plus (cons (vec A C) (vec A I)) (cons (vec A I) (vec A B)));
auto.
apply compatible; auto.
apply
transitive with (plus (cons (vec A B) (vec A J)) (cons (vec A J) (vec A C)));
auto.
apply compatible; auto.
Qed.
Hint Resolve bissectrice_unicite.
unfold colineaire in |- *; intros.
apply
transitive
with (double (plus (cons (vec A I) (vec A B)) (cons (vec A B) u)));
auto.
apply
transitive
with (plus (double (cons (vec A I) (vec A B))) (double (cons (vec A B) u)));
auto.
apply
transitive with (plus (cons (vec A C) (vec A B)) (cons (vec A B) (vec A C)));
auto.
apply compatible; unfold double in |- *.
apply
transitive with (plus (cons (vec A C) (vec A I)) (cons (vec A I) (vec A B)));
auto.
apply compatible; auto.
apply transitive with (plus (cons (vec A B) u) (cons u (vec A C))); auto.
apply compatible; auto.
Qed.
Hint Resolve bissectrice_direction.
unfold isocele, orthogonal, bissectrice in |- *; intros I A B C H H0.
apply
transitive
with
(double
(plus (cons (vec A I) (vec A C))
(plus (cons (vec A C) (vec C A)) (cons (vec C A) (vec B C)))));
auto.
apply
transitive
with
(plus (double (cons (vec A I) (vec A C)))
(double (plus (cons (vec A C) (vec C A)) (cons (vec C A) (vec B C)))));
auto.
apply
transitive
with
(plus (cons (vec A B) (vec A C))
(plus (double (cons (vec A C) (vec C A)))
(double (cons (vec C A) (vec B C))))); auto.
apply compatible; auto.
apply
transitive
with
(plus (cons (vec A B) (vec A C))
(plus (double pi) (double (cons (vec C A) (vec B C)))));
auto.
apply compatible; auto.
apply compatible; auto.
apply
transitive
with
(plus (cons (vec A B) (vec A C))
(plus zero (double (cons (vec C A) (vec B C)))));
auto.
apply compatible; auto.
apply compatible; auto.
apply
transitive
with (plus (cons (vec A B) (vec A C)) (double (cons (vec B C) (vec B A))));
auto.
apply compatible; auto.
apply transitive with (double (cons (vec C A) (vec C B))); auto.
apply transitive with (double (cons (vec C A) (vec B C))); auto.
apply
transitive
with (double (plus (cons (vec C A) (vec C B)) (cons (vec C B) (vec B C))));
auto.
apply
transitive
with
(plus (double (cons (vec C A) (vec C B)))
(double (cons (vec C B) (vec B C)))); auto.
apply transitive with (plus (double (cons (vec C A) (vec C B))) zero); auto.
apply compatible; auto.
apply transitive with (double pi); auto.
apply transitive with (plus zero (double (cons (vec C A) (vec C B)))); auto.
apply triangle_isocele; auto.
Qed.
intros u v H; try assumption.
apply regulier with (a := cons u v) (c := cons u v); auto.
apply transitive with (plus (cons (opp v) u) (cons u v)); auto.
apply transitive with (cons (opp v) v); auto.
apply transitive with pi; auto.
Qed.
Hint Resolve orthogonal_bissectrice.

Lemma bissectrice_hauteur_isocele :
forall I A B C : PO,
bissectrice I A B C -> orthogonal (vec A I) (vec B C) -> isocele A B C.