Metamath Proof Explorer


Theorem ldgenpisyslem3

Description: Lemma for ldgenpisys . (Contributed by Thierry Arnoux, 18-Jul-2020)

Ref Expression
Hypotheses dynkin.p 𝑃 = { 𝑠 ∈ 𝒫 𝒫 𝑂 ∣ ( fi ‘ 𝑠 ) ⊆ 𝑠 }
dynkin.l 𝐿 = { 𝑠 ∈ 𝒫 𝒫 𝑂 ∣ ( ∅ ∈ 𝑠 ∧ ∀ 𝑥𝑠 ( 𝑂𝑥 ) ∈ 𝑠 ∧ ∀ 𝑥 ∈ 𝒫 𝑠 ( ( 𝑥 ≼ ω ∧ Disj 𝑦𝑥 𝑦 ) → 𝑥𝑠 ) ) }
dynkin.o ( 𝜑𝑂𝑉 )
ldgenpisys.e 𝐸 = { 𝑡𝐿𝑇𝑡 }
ldgenpisys.1 ( 𝜑𝑇𝑃 )
ldgenpisyslem3.1 ( 𝜑𝐴𝑇 )
Assertion ldgenpisyslem3 ( 𝜑𝐸 ⊆ { 𝑏 ∈ 𝒫 𝑂 ∣ ( 𝐴𝑏 ) ∈ 𝐸 } )

Proof

Step Hyp Ref Expression
1 dynkin.p 𝑃 = { 𝑠 ∈ 𝒫 𝒫 𝑂 ∣ ( fi ‘ 𝑠 ) ⊆ 𝑠 }
2 dynkin.l 𝐿 = { 𝑠 ∈ 𝒫 𝒫 𝑂 ∣ ( ∅ ∈ 𝑠 ∧ ∀ 𝑥𝑠 ( 𝑂𝑥 ) ∈ 𝑠 ∧ ∀ 𝑥 ∈ 𝒫 𝑠 ( ( 𝑥 ≼ ω ∧ Disj 𝑦𝑥 𝑦 ) → 𝑥𝑠 ) ) }
3 dynkin.o ( 𝜑𝑂𝑉 )
4 ldgenpisys.e 𝐸 = { 𝑡𝐿𝑇𝑡 }
5 ldgenpisys.1 ( 𝜑𝑇𝑃 )
6 ldgenpisyslem3.1 ( 𝜑𝐴𝑇 )
7 id ( 𝑇𝑡𝑇𝑡 )
8 7 rgenw 𝑡𝐿 ( 𝑇𝑡𝑇𝑡 )
9 ssintrab ( 𝑇 { 𝑡𝐿𝑇𝑡 } ↔ ∀ 𝑡𝐿 ( 𝑇𝑡𝑇𝑡 ) )
10 8 9 mpbir 𝑇 { 𝑡𝐿𝑇𝑡 }
11 10 4 sseqtrri 𝑇𝐸
12 11 6 sseldi ( 𝜑𝐴𝐸 )
13 1 ispisys ( 𝑇𝑃 ↔ ( 𝑇 ∈ 𝒫 𝒫 𝑂 ∧ ( fi ‘ 𝑇 ) ⊆ 𝑇 ) )
14 5 13 sylib ( 𝜑 → ( 𝑇 ∈ 𝒫 𝒫 𝑂 ∧ ( fi ‘ 𝑇 ) ⊆ 𝑇 ) )
15 14 simpld ( 𝜑𝑇 ∈ 𝒫 𝒫 𝑂 )
16 elpwi ( 𝑇 ∈ 𝒫 𝒫 𝑂𝑇 ⊆ 𝒫 𝑂 )
17 15 16 syl ( 𝜑𝑇 ⊆ 𝒫 𝑂 )
18 5 adantr ( ( 𝜑𝑏𝑇 ) → 𝑇𝑃 )
19 6 adantr ( ( 𝜑𝑏𝑇 ) → 𝐴𝑇 )
20 simpr ( ( 𝜑𝑏𝑇 ) → 𝑏𝑇 )
21 1 inelpisys ( ( 𝑇𝑃𝐴𝑇𝑏𝑇 ) → ( 𝐴𝑏 ) ∈ 𝑇 )
22 18 19 20 21 syl3anc ( ( 𝜑𝑏𝑇 ) → ( 𝐴𝑏 ) ∈ 𝑇 )
23 11 22 sseldi ( ( 𝜑𝑏𝑇 ) → ( 𝐴𝑏 ) ∈ 𝐸 )
24 23 ralrimiva ( 𝜑 → ∀ 𝑏𝑇 ( 𝐴𝑏 ) ∈ 𝐸 )
25 17 24 jca ( 𝜑 → ( 𝑇 ⊆ 𝒫 𝑂 ∧ ∀ 𝑏𝑇 ( 𝐴𝑏 ) ∈ 𝐸 ) )
26 ssrab ( 𝑇 ⊆ { 𝑏 ∈ 𝒫 𝑂 ∣ ( 𝐴𝑏 ) ∈ 𝐸 } ↔ ( 𝑇 ⊆ 𝒫 𝑂 ∧ ∀ 𝑏𝑇 ( 𝐴𝑏 ) ∈ 𝐸 ) )
27 25 26 sylibr ( 𝜑𝑇 ⊆ { 𝑏 ∈ 𝒫 𝑂 ∣ ( 𝐴𝑏 ) ∈ 𝐸 } )
28 1 2 3 4 5 12 27 ldgenpisyslem2 ( 𝜑𝐸 ⊆ { 𝑏 ∈ 𝒫 𝑂 ∣ ( 𝐴𝑏 ) ∈ 𝐸 } )