
theorem Th21:
  for V be non empty ModuleStr over F_Complex for p be RFunctional
  of V holds p is Functional of RealVS(V)
proof
  let V be non empty ModuleStr over F_Complex;
  let p be RFunctional of V;
  the addLoopStr of V = the addLoopStr of RealVS(V) by Def17;
  hence thesis;
end;
