reserve x,y for object,
        i,j,k,m,n for Nat;

theorem Th8:
  for f1,f2,g1,g2 be complex-valued FinSequence st len f1 = len g1 holds
    (f1^f2) (#) (g1^g2) = (f1(#)g1)^(f2(#)g2)
proof
  let f1,f2,g1,g2 be complex-valued FinSequence such that
  A1:len f1 = len g1;
  len f2 <= len g2 or len f2 >= len g2;
  hence thesis by A1,Lm1;
end;
