(* The constructive equality on R. *)
Definition Req_constr (x y : R) : Prop
:= (x < y -> False) /\ (y < x -> False).

Lemma Rleft_inverse :
forall r : R, (sum (r < IQR 0) (IQR 0 < r)) -> Req_constr (/ r * r) (IQR 1).