Metamath Proof Explorer


Theorem ipolublem

Description: Lemma for ipolubdm and ipolub . (Contributed by Zhi Wang, 28-Sep-2024)

Ref Expression
Hypotheses ipolub.i I=toIncF
ipolub.f φFV
ipolub.s φSF
ipolublem.l ˙=I
Assertion ipolublem φXFSXzFSzXzySy˙XzFySy˙zX˙z

Proof

Step Hyp Ref Expression
1 ipolub.i I=toIncF
2 ipolub.f φFV
3 ipolub.s φSF
4 ipolublem.l ˙=I
5 unissb SXySyX
6 2 ad2antrr φXFySFV
7 3 ad2antrr φXFySSF
8 simpr φXFySyS
9 7 8 sseldd φXFySyF
10 simplr φXFySXF
11 1 4 ipole FVyFXFy˙XyX
12 6 9 10 11 syl3anc φXFySy˙XyX
13 12 ralbidva φXFySy˙XySyX
14 5 13 bitr4id φXFSXySy˙X
15 unissb SzySyz
16 6 adantlr φXFzFySFV
17 9 adantlr φXFzFySyF
18 simplr φXFzFySzF
19 1 4 ipole FVyFzFy˙zyz
20 16 17 18 19 syl3anc φXFzFySy˙zyz
21 20 ralbidva φXFzFySy˙zySyz
22 15 21 bitr4id φXFzFSzySy˙z
23 2 ad2antrr φXFzFFV
24 simplr φXFzFXF
25 simpr φXFzFzF
26 1 4 ipole FVXFzFX˙zXz
27 23 24 25 26 syl3anc φXFzFX˙zXz
28 27 bicomd φXFzFXzX˙z
29 22 28 imbi12d φXFzFSzXzySy˙zX˙z
30 29 ralbidva φXFzFSzXzzFySy˙zX˙z
31 14 30 anbi12d φXFSXzFSzXzySy˙XzFySy˙zX˙z