@@ -496,24 +496,24 @@ def homeoOfEquivCompactToT2 [CompactSpace X] [T2Space Y] {f : X ≃ Y} (hf : Con
496496
497497variable {X : Type *} {s t : TopologicalSpace X} {B : Set X}
498498
499- /-- Suppose we have two Hausdorff topologies `s, t` on `X`. If `t` is finer than `s` and `X ` is
500- compact under `t`, then `s = t`. -/
499+ /-- Suppose we have two topologies `s, t` on `X`. If `t` is finer than `s`, `s ` is Hausdorff, and
500+ `X` is compact under `t`, then `s = t`. -/
501501theorem _root_.CompactSpace.eq_of_le_compact_t2 (hst : t ≤ s) (hs : @T2Space X s)
502502 (ht : @CompactSpace X t) : s = t := by
503503 simpa [homeoOfEquivCompactToT2, induced_id] using
504504 @(@homeoOfEquivCompactToT2 X X t s ht hs (Equiv.refl X)
505505 (continuous_iff_le_induced.2 (Equiv.coe_refl ▸ (@induced_id X s).symm ▸ hst))).induced_eq
506506
507- /-- Suppose we have two Hausdorff topologies `s, t` on `X`. If `t` is strictly finer than `s` and
508- `X` is compact under `s`, then `X` is not compact under `t`. -/
507+ /-- Suppose we have two topologies `s, t` on `X`. If `t` is strictly finer than `s`, `s` is
508+ Hausdorff, and `X` is compact under `s`, then `X` is not compact under `t`. -/
509509theorem _root_.CompactSpace.nonCompact_of_lt (hst : t < s) (hs : @T2Space X s) :
510510 @NoncompactSpace X t := by
511511 refine not_compactSpace_iff.1 (fun hct => ?_)
512512 grind [hct.eq_of_le_compact_t2 hst.le hs]
513513
514- /-- Suppose we have two Hausdorff topologies `s, t` on `X`. If `t` is finer than `s` and `B ` is
515- a compact subset of `X` under `t`, then the subspace topology on `B` induced by `s` is equal to the
516- one induced by `t`. -/
514+ /-- Suppose we have two topologies `s, t` on `X`. If `t` is finer than `s`, `s ` is Hausdorff, and
515+ `B` is a compact subset of `X` under `t`, then the subspace topology on `B` induced by `s` is equal
516+ to the one induced by `t`. -/
517517theorem _root_.IsCompact.eq_of_le (hst : t ≤ s) (hs : @T2Space X s) (hB : @IsCompact X t B) :
518518 @instTopologicalSpaceSubtype X B s = @instTopologicalSpaceSubtype X B t :=
519519 (isCompact_iff_compactSpace.1 hB).eq_of_le_compact_t2 (induced_mono hst) inferInstance
0 commit comments