Definition complete : Prop :=
forall x:nat->X, cauchy x ->
exists x0:X, net_limit x x0 (I:=nat_DS)
(X:=MetricTopology d d_metric).
End Completeness.
Arguments cauchy {X}.
Arguments complete {X}.
Section closed_subset_of_complete.
Variable X:Type.
Variable d:X->X->R.
Hypothesis d_metric:metric d.
Variable F:Ensemble X.
Let FT := { x:X | In F x }.
Let d_restriction := fun x y:FT => d (proj1_sig x) (proj1_sig y).

Lemma d_restriction_metric: metric d_restriction.