fact: Definition multfraction_fun (x y : fraction_set) : fraction_set := Build_fraction (ring_mult (num x) (num y)) (ring_mult (den x) (den y)) (INTEGRAL_DOMAIN_prop_rev (den_prf x) (den_prf y)).
imports: Integral_domain_facts Cfield_cat Abelian_group_facts Ring_util