Set Implicit Arguments.
Unset Strict Implicit.
Parameter V : Type.
Parameter AV : Type.
Parameter cons : V -> V -> AV.
Parameter R : AV -> AV -> Prop.
Parameter opp : V -> V.
Parameter zero : AV.
Parameter pi : AV.
Parameter plus : AV -> AV -> AV.
intros u v; try assumption.
apply (transitive (a:=plus (cons u v) (cons v u)) (b:=cons u u) (c:=zero));
auto.
exact (Chasles u v u).
apply angle_nul.
Qed.
Axiom
compatible : forall a b c d : AV, R a b -> R c d -> R (plus a c) (plus b d).
Parameter vR : V -> V -> Prop.
Axiom
vR_R_compatible :
forall u u' v v' : V, vR u u' -> vR v v' -> R (cons u v) (cons u' v').
Parameter PO : Type.
Parameter vec : PO -> PO -> V.
intros u; try assumption.
elim non_vide_P; intros A H; clear H.
elim v_vec with (u := u) (A := A); intros B H; try exact H.
apply v_trans with (opp (opp (vec A B))).
apply opp_compatible; apply opp_compatible.
try exact H.
apply v_trans with (opp (vec B A)).
apply opp_compatible.
apply v_trans with (vec B A).
apply opp_vect.
apply v_refl.
apply v_trans with (vec A B).
apply opp_vect.
apply v_sym; auto.
Qed.
Hint Resolve opp_opp opp_compatible v_refl v_sym.
intros u; try assumption.
apply transitive with (cons (opp u) (opp (opp u))).
apply vR_R_compatible.
apply v_refl.
apply v_sym; apply opp_opp.
apply angle_plat.
Qed.
elim non_vide_V.
intros u H; try assumption.
apply transitive with (plus (cons u (opp u)) (cons (opp u) u)).
apply compatible.
apply symetrique; auto.
apply angle_plat.
apply symetrique; auto.
apply oppu_u.
apply transitive with (cons u u).
apply Chasles.
auto.
apply angle_nul.
Qed.
intros u v; try assumption.
apply transitive with (plus (cons u v) (cons v (opp v))).
apply symetrique; auto.
apply Chasles.
apply compatible.
apply reflexive.
apply angle_plat.
Qed.
intros u v; try assumption.
apply transitive with (plus (cons (opp u) u) (cons u v)).
apply symetrique; auto.
apply Chasles.
apply compatible.
apply oppu_u.
apply reflexive.
Qed.
intros u v w t; try assumption.
apply transitive with (plus (cons u v) (cons v t)).
apply symetrique; auto.
apply Chasles.
apply compatible.
apply reflexive.
apply symetrique; auto.
apply Chasles.
Qed.
intros a b c; try assumption.
elim non_vide_V; intros u H; clear H.
elim angle_cons with (a := a) (u := u); intros v H; try exact H.
elim angle_cons with (a := b) (u := v); intros v0 H0; try exact H0.
elim angle_cons with (a := c) (u := v0); intros v1 H1; try exact H1.
apply transitive with (plus (cons u v) (plus (cons v v0) (cons v0 v1))).
apply compatible; auto.
apply compatible; auto.
apply transitive with (cons u v1).
apply symetrique; auto.
apply Chasles_2.
apply transitive with (plus (cons u v0) (cons v0 v1)).
apply symetrique; auto.
apply Chasles.
apply compatible; auto.
apply transitive with (plus (cons u v) (cons v v0)).
apply symetrique; auto.
apply Chasles.
apply compatible; auto.
apply symetrique; auto.
apply symetrique; auto.
apply symetrique; auto.
Qed.
intros a b c d H H0; try assumption.
apply compatible.
try exact H.
apply symetrique; try exact H0.
Qed.
intros u v; try assumption.
apply transitive with (plus (cons u v) (cons v v)).
apply compatible.
apply reflexive.
apply symetrique; auto.
apply angle_nul.
apply Chasles.
Qed.
intros u v; try assumption.
apply transitive with (plus (cons u u) (cons u v)).
apply compatible.
apply symetrique; auto.
apply angle_nul.
apply reflexive.
apply Chasles.
Qed.
elim non_vide_V.
intros u H; try assumption.
apply transitive with (plus (cons u (opp u)) zero).
apply compatible.
apply symetrique.
apply angle_plat.
apply reflexive.
apply transitive with (cons u (opp u)).
apply plus_zero.
apply angle_plat.
Qed.
intros a; try assumption.
elim non_vide_V; intros u H1; clear H1.
elim angle_cons with (a := a) (u := u); intros v H1; try exact H1.
apply transitive with (plus zero (cons u v)).
apply compatible.
apply reflexive.
try exact H1.
apply transitive with (cons u v).
apply zero_plus.
apply symetrique; auto.
Qed.
intros u v w t H; try assumption.
apply transitive with (plus zero (cons v u)).
apply symetrique; auto.
apply zero_plus.
apply transitive with (plus (plus (cons v u) (cons u v)) (cons v u)).
apply compatible.
apply symetrique; auto.
apply permute.
apply reflexive.
apply transitive with (plus (cons v u) (plus (cons w t) (cons t w))).
apply transitive with (plus (cons v u) (plus (cons u v) (cons v u))).
apply symetrique; auto.
apply point_angle.plus_assoc.
apply compatible.
apply reflexive.
apply transitive with zero.
apply permute.
apply symetrique; auto.
apply permute.
apply transitive with (plus (plus (cons v u) (cons w t)) (cons t w)).
apply point_angle.plus_assoc.
apply transitive with (plus zero (cons t w)).
apply compatible.
apply transitive with (plus (cons v u) (cons u v)).
apply compatible.
apply reflexive.
apply symetrique; auto.
apply permute.
apply reflexive.
apply zero_plus.
Qed.
intros u v w t s H H0; try assumption.
apply transitive with (plus (cons v u) (cons u t)).
apply symetrique; auto.
apply Chasles.
apply transitive with (plus (cons w u) (cons u s)).
apply compatible.
apply R_permute.
try exact H.
try exact H0.
apply Chasles.
Qed.
intros a b c d H H0; try assumption.
elim non_vide_V; intros u H1; clear H1.
elim angle_cons with (a := a) (u := u); intros v H1; try exact H1.
elim angle_cons with (a := c) (u := u); intros w H2; try exact H2.
elim angle_cons with (a := b) (u := v); intros t H3; try exact H3.
elim angle_cons with (a := d) (u := w); intros s H4; try exact H4.
cut (R (cons v t) (cons w s)); intros.
apply transitive with (cons v t).
try exact H3.
apply transitive with (cons w s).
try exact H5.
apply symetrique; auto.
apply regulier_cons with u.
apply transitive with a.
apply symetrique; auto.
apply transitive with c; auto.
apply transitive with (plus (cons u v) (cons v t)).
apply symetrique; auto.
apply Chasles.
apply transitive with (plus a b).
apply compatible.
apply symetrique; auto.
apply symetrique; auto.
apply transitive with (plus c d).
try exact H0.
apply transitive with (plus (cons u w) (cons w s)).
apply compatible.
try exact H2.
try exact H4.
apply Chasles.
Qed.
intros a b c; try assumption.
apply transitive with (plus (plus b c) a).
apply plus_sym.
apply transitive with (plus b (plus c a)).
apply symetrique; auto.
apply point_angle.plus_assoc.
apply compatible.
apply reflexive.
apply plus_sym.
Qed.
intros u v; try assumption.
apply
transitive with (plus (cons (opp u) u) (plus (cons u v) (cons v (opp v)))).
apply Chasles_2.
apply symetrique; auto.
apply
transitive with (plus (cons u v) (plus (cons (opp u) u) (cons v (opp v)))).
cut (R (plus (cons (opp u) u) (cons v (opp v))) zero).
intros H; try assumption.
apply transitive with (plus (cons u v) zero).
apply symetrique.
apply plus_zero.
apply compatible.
apply reflexive.
apply symetrique; auto.
apply transitive with (plus pi pi).
apply compatible.
apply oppu_u.
apply angle_plat.
apply pi_plus_pi.
apply calcul.
Qed.
intros u v u' v' H; try assumption.
apply transitive with (plus (cons u u') (plus (cons u' v') (cons v' v))).
apply Chasles_2.
apply symetrique; auto.
apply transitive with (plus (cons u' v') (plus (cons u u') (cons v' v))).
apply transitive with (plus (cons u' v') zero).
apply symetrique.
apply plus_zero.
apply compatible.
apply reflexive.
apply symetrique; auto.
apply transitive with (plus (cons v v') (cons v' v)).
apply compatible.
try exact H.
apply reflexive.
apply transitive with (cons v v).
apply Chasles.
apply angle_nul.
apply calcul.
Qed.
intros i u v u' v' H H0; try assumption.
apply transitive with (plus (cons u i) (cons i v)).
apply symetrique.
apply Chasles.
apply transitive with (plus (cons i u') (cons v' i)).
apply compatible.
apply R_permute.
apply symetrique; auto.
apply symetrique; auto.
apply transitive with (plus (cons v' i) (cons i u')).
apply plus_sym.
apply Chasles.
Qed.
intros a b c d; try assumption.
apply transitive with (plus a (plus (plus b c) d)).
apply symetrique.
apply point_angle.plus_assoc.
apply transitive with (plus (plus a (plus b c)) d).
apply point_angle.plus_assoc.
apply transitive with (plus (plus (plus a b) c) d).
apply compatible.
apply point_angle.plus_assoc.
apply reflexive.
apply transitive with (plus (plus a b) (plus c d)).
apply symetrique.
apply point_angle.plus_assoc.
apply transitive with (plus (plus a b) (plus d c)).
apply compatible.
apply reflexive.
apply plus_sym.
apply transitive with (plus (plus (plus a b) d) c).
apply transitive with (plus (plus a b) (plus d c)).
apply reflexive.
apply point_angle.plus_assoc.
apply compatible.
apply symetrique.
apply point_angle.plus_assoc.
apply reflexive.
Qed.
intros u v w; try assumption.
apply
transitive
with
(plus (cons u v)
(plus (plus (cons (opp v) (opp w)) (plus (cons (opp w) w) pi))
(cons w (opp u)))).
apply compatible.
apply reflexive.
cut
(R
(plus (plus (cons (opp v) (opp w)) (plus (cons (opp w) w) pi))
(cons w (opp u)))
(plus (cons w (opp u))
(plus (cons (opp v) (opp w)) (plus (cons (opp w) w) pi)))).
intros.
apply
transitive
with
(plus (cons w (opp u))
(plus (cons (opp v) (opp w)) (plus (cons (opp w) w) pi))).
apply compatible.
apply reflexive.
apply transitive with (plus (cons (opp v) (opp w)) zero).
apply symetrique.
apply plus_zero.
apply compatible.
apply reflexive.
apply transitive with (plus pi pi).
apply symetrique.
try exact pi_plus_pi.
apply symetrique.
apply compatible.
apply oppu_u.
apply reflexive.
apply plus_sym.
apply plus_sym.
cut
(R
(plus (plus (cons (opp v) (opp w)) (plus (cons (opp w) w) pi))
(cons w (opp u)))
(plus
(plus (cons (opp v) (opp w)) (plus (cons (opp w) w) (cons w (opp u))))
pi)).
intros.
apply
transitive
with
(plus (cons u v)
(plus
(plus (cons (opp v) (opp w))
(plus (cons (opp w) w) (cons w (opp u)))) pi)).
apply compatible.
apply reflexive.
try exact H.
apply transitive with (plus (cons u v) (plus (cons (opp v) (opp u)) pi)).
apply compatible.
apply reflexive.
apply compatible.
apply symetrique.
apply (Chasles_2 (opp v) (opp w) w (opp u)).
apply reflexive.
apply transitive with (plus (plus (cons u v) (cons (opp v) (opp u))) pi).
apply point_angle.plus_assoc.
apply transitive with (plus zero pi).
apply compatible.
apply transitive with (plus (cons u v) (cons v u)).
apply compatible.
apply reflexive.
apply oppu_oppv.
apply transitive with (cons u u).
apply Chasles.
apply angle_nul.
apply reflexive.
apply transitive with (plus pi zero).
apply plus_sym.
apply pi_plus_zero.
apply calcul2.
Qed.
intros A B C; try assumption.
apply
transitive
with
(plus (cons (vec A B) (vec A C))
(plus (cons (vec B C) (opp (vec A B)))
(cons (opp (vec A C)) (opp (vec B C))))).
apply compatible.
apply reflexive.
apply compatible.
apply vR_R_compatible.
apply v_refl.
apply v_sym.
apply opp_vect.
apply vR_R_compatible.
apply v_sym; apply opp_vect.
apply v_sym; apply opp_vect.
apply somme_pi.
Qed.
Definition isocele (A B C : PO) : Prop :=
R (cons (vec B C) (vec B A)) (cons (vec C A) (vec C B)).
Definition double (a : AV) := plus a a.
intros A B C H; try assumption.
unfold double in |- *.
unfold isocele in H.
apply
transitive
with
(plus (cons (vec A B) (vec A C))
(plus (cons (vec B C) (vec B A)) (cons (vec C A) (vec C B)))).
apply compatible.
apply reflexive.
apply compatible.
apply reflexive.
try exact H.
apply somme_triangle.
Qed.
Axiom
calcul3 :
forall a b c d e f : AV,
R (plus (plus a (plus b c)) (plus d (plus e f)))
(plus (plus a d) (plus (plus b e) (plus c f))).
intros u v w; try assumption.
cut
(R
(plus (plus (cons u v) (plus (cons w (opp u)) (cons (opp v) (opp w))))
(plus (cons v u) (plus (cons (opp u) w) (cons (opp w) (opp v)))))
(plus pi pi)).
intros.
apply
regulier
with
(a := plus (cons u v) (plus (cons w (opp u)) (cons (opp v) (opp w))))
(c := pi).
apply somme_pi.
try exact H.
apply
transitive
with
(plus (plus (cons u v) (cons v u))
(plus (plus (cons w (opp u)) (cons (opp u) w))
(plus (cons (opp v) (opp w)) (cons (opp w) (opp v))))).
apply calcul3.
apply transitive with (plus zero (plus zero zero)).
apply compatible.
apply permute.
apply compatible.
apply permute.
apply permute.
apply symetrique.
apply transitive with zero.
try exact pi_plus_pi.
apply symetrique.
apply transitive with (plus zero zero).
apply compatible.
apply reflexive.
apply zero_plus_a.
apply zero_plus_a.
Qed.
intros A B C H; try assumption.
unfold double in |- *.
unfold isocele in H.
apply
transitive
with
(plus (cons (vec A C) (vec A B))
(plus (cons (opp (vec A B)) (vec B C))
(cons (opp (vec B C)) (opp (vec A C))))).
apply compatible.
apply reflexive.
apply compatible.
apply vR_R_compatible.
apply v_sym; apply opp_vect.
apply v_refl.
apply R_permute.
apply transitive with (cons (vec C A) (vec C B)).
try exact H.
apply vR_R_compatible.
apply v_sym; apply opp_vect.
apply v_sym; apply opp_vect.
apply somme_permute.
Qed.
Hint Resolve Chasles Chasles_2 angle_plat angle_nul oppu_u permute pi_plus_pi
u_oppv oppu_oppv oppu_v point_angle.plus_assoc plus_zero zero_plus_a
R_permute regulier plus_sym reflexive symetrique.
unfold double in |- *.
auto.
Qed.
Hint Resolve double_zero.
Axiom
calcul4 :
forall a b c d : AV,
R (plus (plus a b) (plus c d)) (plus (plus a c) (plus b d)).

Lemma double_permute :
forall u v w t : V,
R (double (cons u v)) (double (cons w t)) ->
R (double (cons v u)) (double (cons t w)).