∀ {𝕜 : Type u_1} [inst : NontriviallyNormedField 𝕜] {H : Type u_2} [inst_1 : TopologicalSpace H] {E : Type u_3}
  [inst_2 : NormedAddCommGroup E] [inst_3 : NormedSpace 𝕜 E] {I : ModelWithCorners 𝕜 E H} {M : Type u_4}
  [inst_4 : TopologicalSpace M] [inst_5 : ChartedSpace H M] [inst_6 : IsManifold I (minSmoothness 𝕜 2) M]
  [CompleteSpace E] {n : WithTop ℕ∞} [IsManifold I (n + 1) M] {m : WithTop ℕ∞} {U V : (x : M) → TangentSpace I x}
  {s : Set M} {x : M},
  ContMDiffWithinAt I I.tangent n (fun x => { proj := x, snd := U x }) s x →
    ContMDiffWithinAt I I.tangent n (fun x => { proj := x, snd := V x }) s x →
      UniqueMDiffOn I s →
        x ∈ s →
          minSmoothness 𝕜 (m + 1) ≤ n →
            ContMDiffWithinAt I I.tangent m (fun x => { proj := x, snd := VectorField.mlieBracketWithin I U V s x }) s x