∀ {𝕜 : Type u_1} [inst : NontriviallyNormedField 𝕜] {E : Type u_2} [inst_1 : NormedAddCommGroup E]
  [inst_2 : NormedSpace 𝕜 E] {F : Type u_3} [inst_3 : NormedAddCommGroup F] [inst_4 : NormedSpace 𝕜 F]
  (f : OpenPartialHomeomorph E F) {a : F} (motive : (n : WithTop ℕ∞) → ContDiffAt 𝕜 n (↑f) (↑f.symm a) → Prop)
  (n : WithTop ℕ∞) (hf : ContDiffAt 𝕜 n (↑f) (↑f.symm a)),
  (∀ (hf : ContDiffAt 𝕜 ⊤ (↑f) (↑f.symm a)), motive none hf) →
    (∀ (n : ℕ∞) (hf : ContDiffAt 𝕜 (↑n) (↑f) (↑f.symm a)), motive (some n) hf) → motive n hf