(* real of mul *)

(* Specifications: *)
Lemma realMr x y : x != 0 -> x \is real -> (x * y \is real) = (y \is real).
Lemma realrM x y : y != 0 -> y \is real -> (x * y \is real) = (x \is real).
Lemma mulr_egt1 x y : 1 < x -> 1 < y -> 1 < x * y.
Definition mulr_egte1 := (mulr_ege1, mulr_egt1).