Metamath Proof Explorer


Theorem ustuqtop2

Description: Lemma for ustuqtop . (Contributed by Thierry Arnoux, 11-Jan-2018)

Ref Expression
Hypothesis utopustuq.1 N=pXranvUvp
Assertion ustuqtop2 UUnifOnXpXfiNpNp

Proof

Step Hyp Ref Expression
1 utopustuq.1 N=pXranvUvp
2 simp-6l UUnifOnXpXaNpbNpwUa=wpuUb=upUUnifOnXpX
3 simp-7l UUnifOnXpXaNpbNpwUa=wpuUb=upUUnifOnX
4 simp-4r UUnifOnXpXaNpbNpwUa=wpuUb=upwU
5 simplr UUnifOnXpXaNpbNpwUa=wpuUb=upuU
6 ustincl UUnifOnXwUuUwuU
7 3 4 5 6 syl3anc UUnifOnXpXaNpbNpwUa=wpuUb=upwuU
8 ineq12 a=wpb=upab=wpup
9 inimasn pVwup=wpup
10 9 elv wup=wpup
11 8 10 eqtr4di a=wpb=upab=wup
12 11 ad4ant24 UUnifOnXpXaNpbNpwUa=wpuUb=upab=wup
13 imaeq1 x=wuxp=wup
14 13 rspceeqv wuUab=wupxUab=xp
15 7 12 14 syl2anc UUnifOnXpXaNpbNpwUa=wpuUb=upxUab=xp
16 vex aV
17 16 inex1 abV
18 1 ustuqtoplem UUnifOnXpXabVabNpxUab=xp
19 17 18 mpan2 UUnifOnXpXabNpxUab=xp
20 19 biimpar UUnifOnXpXxUab=xpabNp
21 2 15 20 syl2anc UUnifOnXpXaNpbNpwUa=wpuUb=upabNp
22 1 ustuqtoplem UUnifOnXpXbVbNpuUb=up
23 22 elvd UUnifOnXpXbNpuUb=up
24 23 biimpa UUnifOnXpXbNpuUb=up
25 24 ad5ant13 UUnifOnXpXaNpbNpwUa=wpuUb=up
26 21 25 r19.29a UUnifOnXpXaNpbNpwUa=wpabNp
27 1 ustuqtoplem UUnifOnXpXaVaNpwUa=wp
28 27 elvd UUnifOnXpXaNpwUa=wp
29 28 biimpa UUnifOnXpXaNpwUa=wp
30 29 adantr UUnifOnXpXaNpbNpwUa=wp
31 26 30 r19.29a UUnifOnXpXaNpbNpabNp
32 31 ralrimiva UUnifOnXpXaNpbNpabNp
33 32 ralrimiva UUnifOnXpXaNpbNpabNp
34 fvex NpV
35 inficl NpVaNpbNpabNpfiNp=Np
36 34 35 ax-mp aNpbNpabNpfiNp=Np
37 33 36 sylib UUnifOnXpXfiNp=Np
38 eqimss fiNp=NpfiNpNp
39 37 38 syl UUnifOnXpXfiNpNp