intros x y H'; try assumption.
apply Trans with (ring_mult (field_div x y) y:K); auto with algebra.
Qed.
Hint Resolve CFIELD_simpl_l: algebra.
Comments "Normalisation.".

(* Specifications: *)
Lemma CFIELD_mult4 :
forall a b c d : K,
Equal (ring_mult (ring_mult a b) (ring_mult c d))
(ring_mult (ring_mult a c) (ring_mult b d)).