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.

(* Specifications: *)
Lemma triangle_isocele : forall A B C : PO, isocele A B C -> R (plus (cons (vec A B) (vec A C)) (double (cons (vec B C) (vec B A)))) pi.