reserve E, F, G,S,T,W,Y for RealNormSpace;
reserve f,f1,f2 for PartFunc of S,T;
reserve Z for Subset of S;
reserve i,n for Nat;

theorem Th7:
  for f be Lipschitzian BilinearOperator of E,F,G
  holds
  ( for z1,z2 be Point of [:E,F:]
    holds partdiff`1(f, z1 + z2) = partdiff`1(f, z1) + partdiff`1(f, z2) )
    &
  ( for z be Point of [:E,F:], a be Real
    holds partdiff`1(f, a * z) = a * partdiff`1(f,z) )
    &
  ( for z1,z2 be Point of [:E,F:]
    holds partdiff`1(f, z1 - z2) = partdiff`1(f, z1) - partdiff`1(f, z2) )
  proof
    let f be Lipschitzian BilinearOperator of E,F,G;

    A1:
    now
      let z1,z2 be Point of [:E,F:];
      for x be VECTOR of E
      holds partdiff`1(f, z1 + z2).x = partdiff`1(f,z1).x + partdiff`1(f,z2).x
      proof
        let x be VECTOR of E;
        A2: (partdiff`1(f, z1)).x
         = (f * (reproj1 z1)).x by Th4
        .= f.((reproj1 z1).x) by FUNCT_2:15
        .= f.(x, z1`2) by NDIFF_7:def 1;

        A3: (partdiff`1(f,z2)).x
         = (f * (reproj1 z2)).x by Th4
        .= f.((reproj1 z2).x) by FUNCT_2:15
        .= f.(x, z2`2) by NDIFF_7:def 1;

        thus partdiff`1(f, z1 + z2).x
         = (f * reproj1(z1 + z2)).x by Th4
        .= f.((reproj1(z1 + z2)).x) by FUNCT_2:15
        .= f.[x,(z1 + z2)`2] by NDIFF_7:def 1
        .= f.(x, z1`2 + z2`2) by Th5
        .= partdiff`1(f, z1).x + partdiff`1(f, z2).x by A2,A3,LOPBAN_8:12;
      end;
      hence partdiff`1(f, z1 + z2) = partdiff`1(f, z1) + partdiff`1(f, z2)
        by LOPBAN_1:35;
    end;

    A4:
    now
      let z1 be Point of [:E,F:], a be Real;
      for x be VECTOR of E
      holds partdiff`1(f, a * z1).x = a * partdiff`1(f, z1).x
      proof
        let x be VECTOR of E;
        A5: partdiff`1(f, z1).x
         = (f * (reproj1 z1)).x by Th4
        .= f.((reproj1 z1).x) by FUNCT_2:15
        .= f.(x, z1`2) by NDIFF_7:def 1;
        thus partdiff`1(f, a * z1).x
        = (f * reproj1(a * z1)).x by Th4
        .= f.((reproj1(a * z1)).x) by FUNCT_2:15
        .= f.[x, (a * z1)`2] by NDIFF_7:def 1
        .= f.(x, a * z1`2) by Th5
        .= a * partdiff`1(f, z1).x by A5,LOPBAN_8:12;
      end;
      hence partdiff`1(f, a * z1) = a * partdiff`1(f, z1) by LOPBAN_1:36;
    end;

    now
      let z1,z2 be Point of [:E,F:];
      thus partdiff`1(f, z1 - z2)
       = partdiff`1(f, z1 + (-1) * z2) by RLVECT_1:16
      .= partdiff`1(f, z1) + partdiff`1(f, (-1) * z2) by A1
      .= partdiff`1(f, z1) + (-1) * partdiff`1(f, z2) by A4
      .= partdiff`1(f, z1) - partdiff`1(f, z2) by RLVECT_1:16;
    end;
    hence thesis by A1,A4;
  end;
