Quelle  vect3_fun_ops.pvs

vect3_fun_ops: THEORY
%---------------------------------------------%
%  Operations on functions : [Vect3 -> real]  %
%---------------------------------------------%
BEGIN
  IMPORTING vectors_3D

  f, f1, f2: VAR [Vect3 -> real]
  f3        : VAR [Vect3 -> nzreal]
  a         : VAR real
  x, y      : VAR Vect3

  const_fun(a) : [Vect3 -> real] = LAMBDA x : a ;

  +(f1, f2) : [Vect3 -> real] = LAMBDA x : f1(x) + f2(x);
 
  -(f1)     : [Vect3 -> real] = LAMBDA x : -f1(x);

  *(f1, f2) : [Vect3 -> real] = LAMBDA x : f1(x) * f2(x);

  *(a, f1)  : [Vect3 -> real] = LAMBDA x : a * f1(x);

  -(f1, f2) : [Vect3 -> real] = LAMBDA x : f1(x) - f2(x);

  /(f1, f3) : [Vect3 -> real] = LAMBDA x : f1(x) / f3(x);

  /(a, f3)  : [Vect3 -> real] = LAMBDA x : a / f3(x);

  inv(f3)   : [Vect3 -> real] = 1 / f3;

  abs(f1)   : [Vect3 -> nnreal] = LAMBDA x : abs(f1(x));

  n: VAR nat
  ^(f,n)    : [Vect3 -> real] =  (LAMBDA (v:Vect3): f(v)^n)

  %------------------
  %  Rewrite rules
  %------------------

  diff_function    : LEMMA f1 - f2 = f1 + (- f2)

  div_function     : LEMMA f1 / f3 = f1 * (1 /f3)

  scal_function    : LEMMA a * f1 = const_fun(a) * f1

  scaldiv_function : LEMMA a / f3 = const_fun(a) / f3

  negneg_function  : LEMMA - (- f1) = f1


END vect3_fun_ops