theorem
  r multreal is_distributive_wrt addreal
proof
  r in REAL by XREAL_0:def 1;
  hence thesis by Th3,FINSEQOP:54;
end;
