∀ {𝕜 : Type u_1} [inst : NontriviallyNormedField 𝕜] {E : Type u_2} [inst_1 : NormedAddCommGroup E]
  [inst_2 : NormedSpace 𝕜 E] {H : Type u_4} [inst_3 : TopologicalSpace H] {I : ModelWithCorners 𝕜 E H} {M : Type u_6}
  [inst_4 : TopologicalSpace M] [inst_5 : ChartedSpace H M] [inst_6 : IsManifold I 1 M] (p : TangentBundle I M),
  chartAt (ModelProd H E) p =
    ((tangentBundleCore I M).toFiberBundleCore.localTriv (achart H p.proj)).trans
      ((chartAt H p.proj).prod (OpenPartialHomeomorph.refl E))