Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 3 additions & 0 deletions CHANGELOG_UNRELEASED.md
Original file line number Diff line number Diff line change
Expand Up @@ -79,6 +79,9 @@
- in `measure_extension.v`:
+ definition `caratheodory_measure`

- in `subspace_topology.v`:
+ lemma `withinU_continuous_patch`

### Changed

- moved from `measurable_structure.v` to `classical_sets.v`:
Expand Down
22 changes: 22 additions & 0 deletions theories/topology_theory/subspace_topology.v
Original file line number Diff line number Diff line change
Expand Up @@ -711,3 +711,25 @@ HB.instance Definition _ :=
@isContinuous.Build (subspace A) Z (g \o f) continuous_comp_subproof.

End continuous_fun_comp.

Section continuous_patch.
Context {U V : topologicalType}.
Variables (A B : set U) (f g : U -> V).
Hypothesis contf : {within A, continuous f}.
Hypothesis contg : {within B, continuous g}.
Hypothesis closedA : closed A.
Hypothesis closedB : closed B.
Hypothesis AB_fg : forall x, x \in A `&` B -> f x = g x.

Lemma withinU_continuous_patch : {within A `|` B, continuous (patch g A f)}.
Proof.
pose gAf := patch g A f.
apply: withinU_continuous => //.
- suff : {in A, f =1 gAf} by move/subspace_eq_continuous; exact.
by rewrite /gAf /patch => r ->.
- suff : {in B, g =1 gAf} by move/subspace_eq_continuous; exact.
move=> r rB; rewrite /gAf /patch; case: ifPn => // rA.
by apply/esym/AB_fg; rewrite in_setI rA.
Qed.

End continuous_patch.
Loading