-- Lean 4 proof step from Mathlib.Condensed.Light.Sequence (goal)
Goal:
R : Type
inst : CommRing R
X Y : LightCondMod R
p : X ⟶ Y
hp : Epi p
S : LightProfinite
f :
  obj (free R)
      (tensorObj (𝒞 :=
          CompHausLike.category fun (X : TopCat.{0}) ↦
            TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))
          S ℕ∪{∞}).toCondensed ⟶
    Y
T : LightProfinite
π :
  T ⟶
    tensorObj (𝒞 :=
      CompHausLike.category fun (X : TopCat.{0}) ↦
        TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))
      S ℕ∪{∞}
g : obj (free R) T.toCondensed ⟶ X
hπ : Epi π
comm : CategoryTheory.Functor.map (lightProfiniteToLightCondSet ⋙ free R) π ≫ f = g ≫ p
S' T' : LightProfinite
y' : S' ⟶ S
π' :
  T' ⟶
    tensorObj (𝒞 :=
      CompHausLike.category fun (X : TopCat.{0}) ↦
        TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))
      S' ℕ∪{∞}
g' : T' ⟶ T
hπ'_1 : Epi π'
hy' : Epi y'
comp : π' ≫ y' ▷ ℕ∪{∞} = g' ≫ π
epi : Epi (cover π')
split :
  SplitEpi (X := LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞}))
    (LightProfinite.fibreIncl ∞ (π' ≫ snd S' ℕ∪{∞}) ≫ π' ≫ fst S' ℕ∪{∞})
hS' :
  Nonempty
    (↑(S'.toTop (P := fun (X : TopCat.{0}) ↦
          TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
      Type)
this_1 : Mono (X := LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞})) (LightProfinite.fibreIncl ∞ (π' ≫ snd S' ℕ∪{∞}))
this_2 :
  Nonempty
    (↑((LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞})).toTop (P := fun (X : TopCat.{0}) ↦
          TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
      Type)
r_inf : T' ⟶ LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞})
hr : LightProfinite.fibreIncl ∞ (π' ≫ snd S' ℕ∪{∞}) ≫ r_inf = 𝟙 (LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞}))
hπ'' : RegularEpi (lightProfiniteToLightCondSet.map π') := regularEpiOfEpi (lightProfiniteToLightCondSet.map π')
this : EffectiveEpi π'
hπ' : RegularEpi (lightProfiniteToLightCondSet.map π') :=
  regularEpiOfPreserves π' lightProfiniteToLightCondSet
    (pullback.cone (P := fun (X : TopCat.{0}) ↦
      TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type)) π' π')
    (pullback.isLimit (P := fun (X : TopCat.{0}) ↦
      TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type)) π' π')
hc :
  Limits.IsColimit (C := LightCondMod R) (F := Limits.parallelPair hπ'.left hπ'.right ⋙ free R)
    (mapCocone (free R) (Limits.Cofork.ofπ (lightProfiniteToLightCondSet.map π') ⋯))
⊢ Eq (α := LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞}) ⟶ ℕ∪{∞})
    ((LightProfinite.fibreIncl ∞ (π' ≫ snd S' ℕ∪{∞}) ≫ π') ≫ snd S' ℕ∪{∞})
    ((LightProfinite.fibreIncl ∞ (π' ≫ snd S' ℕ∪{∞}) ≫
        π' ≫
          fst S' ℕ∪{∞} ≫
            lift (𝟙 S')
              (CompHausLike.const (P := fun (X : TopCat.{0}) ↦
                TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type)) S' ∞)) ≫
      snd S' ℕ∪{∞})
have h : ∀
  (a :
    (↑((LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞})).toTop (P := fun (X : TopCat.{0}) ↦
          TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
      Type)),
  Eq (α :=
    (↑(ℕ∪{∞}.toTop (P := fun (X : TopCat.{0}) ↦
          TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
      Type))
    ((ConcreteCategory.hom (FC :=
            fun
              (x1 x2 :
                CompHausLike fun (X : TopCat.{0}) ↦
                  TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type)) ↦
            C((↑(x1.toTop (P := fun (X : TopCat.{0}) ↦
                    TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
                Type),
              (↑(x2.toTop (P := fun (X : TopCat.{0}) ↦
                    TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
                Type)))
            (CC :=
            fun
              (X :
                CompHausLike fun (X : TopCat.{0}) ↦
                  TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type)) ↦
            (↑(X.toTop (P := fun (X : TopCat.{0}) ↦
                  TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
              Type))
            (X := LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞}))
            ((LightProfinite.fibreIncl ∞ (π' ≫ snd S' ℕ∪{∞}) ≫ π') ≫ snd S' ℕ∪{∞}) :
          (a : (↑(LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞})).toTop : Type)) → (↑ℕ∪{∞}.toTop : Type))
        a :
      (↑(ℕ∪{∞}.toTop (P := fun (X : TopCat.{0}) ↦
            TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
        Type))
    ((ConcreteCategory.hom (FC :=
            fun
              (x1 x2 :
                CompHausLike fun (X : TopCat.{0}) ↦
                  TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type)) ↦
            C((↑(x1.toTop (P := fun (X : TopCat.{0}) ↦
                    TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
                Type),
              (↑(x2.toTop (P := fun (X : TopCat.{0}) ↦
                    TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
                Type)))
            (CC :=
            fun
              (X :
                CompHausLike fun (X : TopCat.{0}) ↦
                  TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type)) ↦
            (↑(X.toTop (P := fun (X : TopCat.{0}) ↦
                  TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
              Type))
            (X := LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞}))
            ((LightProfinite.fibreIncl ∞ (π' ≫ snd S' ℕ∪{∞}) ≫
                π' ≫
                  fst S' ℕ∪{∞} ≫
                    lift (𝟙 S')
                      (CompHausLike.const (P := fun (X : TopCat.{0}) ↦
                        TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type)) S' ∞)) ≫
              snd S' ℕ∪{∞}) :
          (a : (↑(LightProfinite.fibre ∞ (π' ≫ snd S' ℕ∪{∞})).toTop : Type)) → (↑ℕ∪{∞}.toTop : Type))
        a :
      (↑(ℕ∪{∞}.toTop (P := fun (X : TopCat.{0}) ↦
            TotallyDisconnectedSpace (↑X : Type) ∧ SecondCountableTopology (↑X : Type))) :
        Type))
Tactic: ext a