dsimp
case h
X : Type u_1
inst✝ : ProperInvolutiveInv X
c : Set (InvFreeSets X)
hcChain : IsChain LE.le c
sup : InvFreeSets X := chainUnion c hcChain
A : InvFreeSets X
hAc : A ∈ c
x : X
hxA : x ∈ ↑A
⊢ (fun i => ⋃ i_1, ⋃ (_ : i_1 ∈ c ∧ ↑i_1 = i), i) ↑A = ↑A
case h
X : Type u_1
inst✝ : ProperInvolutiveInv X
c : Set (InvFreeSets X)
hcChain : IsChain LE.le c
sup : InvFreeSets X := chainUnion c hcChain
A : InvFreeSets X
hAc : A ∈ c
x : X
hxA : x ∈ ↑A
⊢ ⋃ i, ⋃ (_ : i ∈ c ∧ ↑i = ↑A), ↑A = ↑A