intros f g a x a0 q cf eps ep.
destruct (cf eps ep) as [a' [a'p Pa']].
exists (Rmin a a'); split.
- unfold Rmin; destruct (Rle_dec a a').
+ assumption.
+ assumption.
- intros y cy; rewrite <- !q.
+ apply Pa'.
split;[| apply Rlt_le_trans with (Rmin a a');[ | apply Rmin_r]];tauto.
+ rewrite Rdist_eq; assumption.
+ apply Rlt_le_trans with (Rmin a a');[ | apply Rmin_l]; tauto.
Qed.

Lemma continuity_div :
forall f1 f2,
continuity f1 ->
continuity f2 -> (forall x:R, f2 x <> 0) -> continuity (f1 / f2).