intros a; try assumption.
elim angle_cons with (a := a) (u := u); intros v H0; try exact H0.
exists (cons v u).
apply transitive with (plus (cons u v) (cons v u)).
apply compatible; auto.
auto.
Qed.
Parameter pisurdeux : AV.

Axiom double_pisurdeux : R (double pisurdeux) pi.
Hint Resolve double_pisurdeux.