Skip to main content
fpvandoorn/carleson
Source indexedlemma ยท leanprover/lean4:v4.32.0

URel.eq

Carleson.Discrete.ForestUnion ยท Carleson/Discrete/ForestUnion.lean:196 to 205

Source documentation

Lemma 5.4.1, part 1.

Exact Lean statement

lemma URel.eq (hu : u โˆˆ ๐”˜โ‚‚ k n j) (hu' : u' โˆˆ ๐”˜โ‚‚ k n j) (huu' : URel k n j u u') : ๐“˜ u = ๐“˜ u'

Complete declaration

Lean source

Canonical source
Full Lean sourceLean 4
lemma URel.eq (hu : u โˆˆ ๐”˜โ‚‚ k n j) (hu' : u' โˆˆ ๐”˜โ‚‚ k n j) (huu' : URel k n j u u') : ๐“˜ u = ๐“˜ u' := by  by_cases e : u = u'; ยท rw [e]  have ndj := not_disjoint hu hu' huu'  have nโ‚ := (hu.1.2 _ hu'.1.1).mt ndj  rw [disjoint_comm] at ndj  have nโ‚‚ := (hu'.1.2 _ hu.1.1).mt ndj  simp_rw [URel, e, false_or, ๐”—โ‚, mem_setOf] at huu'; obtain โŸจp, โŸจ_, _, slโ‚โŸฉ, slโ‚‚โŸฉ := huu'  rcases le_or_gt (๐”ฐ u) (๐”ฐ u') with h | h  ยท exact eq_of_le_of_not_lt (Grid.le_dyadic h slโ‚.1 slโ‚‚.1) nโ‚  ยท exact (eq_of_le_of_not_lt (Grid.le_dyadic h.le slโ‚‚.1 slโ‚.1) nโ‚‚).symm