intro x hxA
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
⊢ Set.Subset (↑A) (⋃ i, ⋃ i_1, ⋃ (_ : i_1 ∈ c ∧ ↑i_1 = i), i)
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
⊢ x ∈ ⋃ i, ⋃ i_1, ⋃ (_ : i_1 ∈ c ∧ ↑i_1 = i), i