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

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.