Section Derive.
Context {K : AbsRing} {V : NormedModule K}.
Definition is_derive (f : K -> V) (x : K) (l : V) :=
filterdiff f (locally x) (fun y : K => scal y l).
Definition ex_derive (f : K -> V) (x : K) :=
exists l : V, is_derive f x l.
End Derive.
(** * Definitions on [R] *)
Definition Derive (f : R -> R) (x : R) := real (Lim (fun h => (f (x+h) - f x)/h) 0).
(** Derive is correct *)
(** Equivalence with standard library Reals *)

Lemma Derive_Reals (f : R -> R) (x : R) (pr : derivable_pt f x) :
derive_pt f x pr = Derive f x.