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 complete_subset_is_closed:
complete d_restriction d_restriction_metric ->
closed F (X:=MetricTopology d d_metric).