reserve F for Field;
reserve S for OrtSp of F;
reserve a,b,c,d,p,q,r,x,y,z for Element of S;
reserve k,l for Element of F;

theorem Th24:
  not a _|_ b & not c _|_ b implies ProJ(c,b,a) = ProJ(b,a,c)"* ProJ(a,b,c)
proof
  set 1F = 1_F;
  assume that
A1: not a _|_ b and
A2: not c _|_ b;
  ProJ(b,a,c) <> 0.F by A1,A2,Th20;
  then
A3: -ProJ(b,a,c)" <> 0.F by VECTSP_1:25;
  ProJ(b,a,c) <> 0.F by A1,A2,Th20;
  then (-1F)*(ProJ(b,a,c)"*ProJ(b,a,c)) = (-1F)*(1F) by VECTSP_1:def 10;
  then ((-1F)*ProJ(b,a,c)")*ProJ(b,a,c) = (-1F)*(1F) by GROUP_1:def 3;
  then ((-1F)*ProJ(b,a,c)")*ProJ(b,a,c) = (-1F);
  then (-(ProJ(b,a,c)"*(1F)))*ProJ(b,a,c) = -1F by VECTSP_1:9;
  then (-ProJ(b,a,c)")*ProJ(b,a,c) = -1F;
  then ProJ(b,a,(-ProJ(b,a,c)")*c) = -1F by A1,Th12;
  then (-ProJ(b,a,c)")*c-(-1F)*a _|_ b by A1,Th11;
  then (-ProJ(b,a,c)")*c+(-(-(a))) _|_ b by VECTSP_1:14;
  then (-ProJ(b,a,c)")*c+a _|_ b by RLVECT_1:17;
  then
A4: b _|_ (-ProJ(b,a,c)")*c+a by Th2;
  not b _|_ a by A1,Th2;
  then ProJ(a,b,(-ProJ(b,a,c)")*c) = -ProJ((-ProJ (b,a,c)")*c,b,a) by A4,Th23;
  then ProJ(a,b,(-ProJ(b,a,c)")*c) = -ProJ(c,b,a) by A2,A3,Th2,Th15;
  then (-ProJ(b,a,c)")*ProJ(a,b,c) = -ProJ(c,b,a) by A1,Th2,Th12;
  then (-(ProJ(b,a,c)"*ProJ(a,b,c)))*(-1F) = (-ProJ (c,b,a))*(-1F) by
VECTSP_1:9;
  then (ProJ(b,a,c)"*ProJ(a,b,c))*(1F) = (-ProJ(c,b,a))*(-1F) by VECTSP_1:10;
  then (ProJ(b,a,c)"*ProJ(a,b,c))*(1F) = ProJ(c,b,a)*(1F) by VECTSP_1:10;
  then ProJ(b,a,c)"*ProJ(a,b,c) = ProJ(c,b,a)*(1F);
  hence thesis;
end;
