#[global]
Instance Rops: (@Ring_ops R 0%R 1%R Rplus Rmult Rminus Ropp (@eq R)).#[global]
Instance Rri : (Ring (Ro:=Rops)).#[global]
Instance Rcri: (Cring (Rr:=Rri)).

Lemma R_one_zero: 1%R <> 0%R.