Section Grid.
Variable O E E' : Tpoint.
Variable grid_ok : ~ Col O E E'.
End Grid.
(** We omit lemma 14.26 which states that we have a division ring. *)

Lemma change_grid_prod1 : forall O E E' B C O' A' B' C',
Par_strict O E O' E' -> Ar1 O E E B C -> Ar1 O' E' A' B' C' ->
Pj O O' E E' -> Pj O O' E A' -> Pj O O' B B' -> Pj O O' C C' ->
Prod O E E' E B C ->
Prod O' E' E A' B' C'.