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))).

(* Specifications: *)
Lemma somme_permute : forall u v w : V, R (plus (cons v u) (plus (cons (opp u) w) (cons (opp w) (opp v)))) pi.
Lemma isocele_permute : forall A B C : PO, isocele A B C -> R (plus (cons (vec A C) (vec A B)) (double (cons (vec B A) (vec B C)))) pi.
Lemma double_zero : R (double zero) zero.