Definition fraction0 := Build_fraction (monoid_unit R) (ring_unit R) diff10.

(* Specifications: *)
Lemma eqfraction0 : forall x : fraction, eqfraction x fraction0 -> Equal (num x) (monoid_unit R).
Lemma eqfraction_num0 : forall x : fraction, Equal (num x) (monoid_unit R) -> eqfraction x fraction0.
Lemma eqfraction_sym : symmetric eqfraction.
Lemma eqfraction_trans : transitive eqfraction.