∀ {Γ : Subgroup (GL (Fin 2) ℝ)} {k : ℤ} {α : Type u_1} [inst : SMul α ℝ] [inst_1 : SMul α ℂ]
  [inst_2 : IsScalarTower α ℝ ℂ] (c : α) (f : ModularForm Γ k) {c_1 : OnePoint ℝ},
  IsCusp c_1 Γ →
    ∀ (g : GL (Fin 2) ℝ),
      g • OnePoint.infty = c_1 →
        UpperHalfPlane.IsBoundedAtImInfty (SlashAction.map k g (c • f.toSlashInvariantForm).toFun)