Lemma projete_ortho_cote : forall A B C M P Q T : PO, colineaire (vec C A) (vec C Q) -> colineaire (vec P C) (vec P B) -> colineaire (vec B A) (vec B T) -> orthogonal (vec T M) (vec T B) -> orthogonal (vec P M) (vec P B) -> orthogonal (vec Q M) (vec Q C) -> R (double (cons (vec P Q) (vec P T))) (plus (double (cons (vec C A) (vec C M))) (double (cons (vec B M) (vec B A)))).