-- Lean 4 proof step from Mathlib.ModelTheory.DirectLimit (goal)
Goal:
L : Language
ι : Type v
inst : Preorder ι
inst_1 : Nonempty ι
inst_2 : IsDirectedOrder ι
M : Type u_1
inst_3 : L.Structure M
S : OrderHom.{v, u_1} ι (L.Substructure M)
i : ι
x : ↥((S : (a : ι) → L.Substructure M) i : L.Substructure M)
⊢ Eq.{u_1 + 1} (α := ↥(iSup.{u_1, v + 1} (ι := ι) (⇑S : (a : ι) → L.Substructure M)))
    ((Equiv_iSup S :
          (a :
              DirectLimit (fun (i : ι) ↦ ↥((S : (a : ι) → L.Substructure M) i)) fun (x x_1 : ι) (h : x ≤ x_1) ↦
                Substructure.inclusion ⋯) →
            ↥(iSup (⇑S : (a : ι) → L.Substructure M)))
        ((Equiv.symm (Equiv_iSup S) :
            (a : ↥(iSup (⇑S : (a : ι) → L.Substructure M))) →
              DirectLimit (fun (i : ι) ↦ ↥((S : (a : ι) → L.Substructure M) i)) fun (x x_1 : ι) (h : x ≤ x_1) ↦
                Substructure.inclusion ⋯)
          ((Substructure.inclusion ⋯ :
              (a : ↥((S : (a : ι) → L.Substructure M) i)) → ↥(iSup (⇑S : (a : ι) → L.Substructure M)))
            x)) :
      ↥(iSup.{u_1, v + 1} (ι := ι) (⇑S : (a : ι) → L.Substructure M)))
    ((Equiv_iSup S :
          (a :
              DirectLimit (fun (i : ι) ↦ ↥((S : (a : ι) → L.Substructure M) i)) fun (x x_1 : ι) (h : x ≤ x_1) ↦
                Substructure.inclusion ⋯) →
            ↥(iSup (⇑S : (a : ι) → L.Substructure M)))
        (((of.{v, u_1, u_2, u_3} L ι (fun (x : ι) ↦ ↥((S : (a : ι) → L.Substructure M) x : L.Substructure M))
                (fun (x x_1 : ι) (h : x ≤ x_1) ↦ Substructure.inclusion ⋯) i :
              ↥((S : (a : ι) → L.Substructure M) i : L.Substructure M) ↪[L]
                DirectLimit.{v, u_1, u_2, u_3} (L := L)
                  (fun (x : ι) ↦ ↥((S : (a : ι) → L.Substructure M) x : L.Substructure M))
                  fun (x x_1 : ι) (h : x ≤ x_1) ↦ Substructure.inclusion ⋯) :
            (a : ↥((S : (a : ι) → L.Substructure M) i)) →
              DirectLimit (fun (x : ι) ↦ ↥((S : (a : ι) → L.Substructure M) x)) fun (x x_1 : ι) (h : x ≤ x_1) ↦
                Substructure.inclusion ⋯)
          x) :
      ↥(iSup.{u_1, v + 1} (ι := ι) (⇑S : (a : ι) → L.Substructure M)))
have a : Eq (α := ↥(iSup.{u_1, v + 1} (ι := ι) (⇑S : (a : ι) → L.Substructure M)))
  ((Substructure.inclusion sorry : (a : ↥((S : (a : ι) → L.Substructure M) i)) → ↥(iSup (⇑S : (a : ι) → L.Substructure M)))
      x :
    ↥(iSup.{u_1, v + 1} (ι := ι) (⇑S : (a : ι) → L.Substructure M)))
  ((Equiv_iSup S :
        (a :
            DirectLimit (fun (i : ι) ↦ ↥((S : (a : ι) → L.Substructure M) i)) fun (x x_1 : ι) (h : x ≤ x_1) ↦
              Substructure.inclusion sorry) →
          ↥(iSup (⇑S : (a : ι) → L.Substructure M)))
      (((of.{v, u_1, u_2, u_3} L ι (fun (x : ι) ↦ ↥((S : (a : ι) → L.Substructure M) x : L.Substructure M))
              (fun (x x_1 : ι) (h : x ≤ x_1) ↦ Substructure.inclusion sorry) i :
            ↥((S : (a : ι) → L.Substructure M) i : L.Substructure M) ↪[L]
              DirectLimit.{v, u_1, u_2, u_3} (L := L)
                (fun (x : ι) ↦ ↥((S : (a : ι) → L.Substructure M) x : L.Substructure M)) fun (x x_1 : ι) (h : x ≤ x_1) ↦
                Substructure.inclusion sorry) :
          (a : ↥((S : (a : ι) → L.Substructure M) i)) →
            DirectLimit (fun (x : ι) ↦ ↥((S : (a : ι) → L.Substructure M) x)) fun (x x_1 : ι) (h : x ≤ x_1) ↦
              Substructure.inclusion sorry)
        x) :
    ↥(iSup.{u_1, v + 1} (ι := ι) (⇑S : (a : ι) → L.Substructure M)))
Tactic: simp only [Equiv.apply_symm_apply]