Metamath Proof Explorer


Theorem ressuss

Description: Value of the uniform structure of a restricted space. (Contributed by Thierry Arnoux, 12-Dec-2017)

Ref Expression
Assertion ressuss AVUnifStW𝑠A=UnifStW𝑡A×A

Proof

Step Hyp Ref Expression
1 eqid BaseW=BaseW
2 eqid UnifSetW=UnifSetW
3 1 2 ussval UnifSetW𝑡BaseW×BaseW=UnifStW
4 3 oveq1i UnifSetW𝑡BaseW×BaseW𝑡A×A=UnifStW𝑡A×A
5 fvex UnifSetWV
6 fvex BaseWV
7 6 6 xpex BaseW×BaseWV
8 sqxpexg AVA×AV
9 restco UnifSetWVBaseW×BaseWVA×AVUnifSetW𝑡BaseW×BaseW𝑡A×A=UnifSetW𝑡BaseW×BaseWA×A
10 5 7 8 9 mp3an12i AVUnifSetW𝑡BaseW×BaseW𝑡A×A=UnifSetW𝑡BaseW×BaseWA×A
11 4 10 eqtr3id AVUnifStW𝑡A×A=UnifSetW𝑡BaseW×BaseWA×A
12 inxp BaseW×BaseWA×A=BaseWA×BaseWA
13 incom ABaseW=BaseWA
14 eqid W𝑠A=W𝑠A
15 14 1 ressbas AVABaseW=BaseW𝑠A
16 13 15 eqtr3id AVBaseWA=BaseW𝑠A
17 16 sqxpeqd AVBaseWA×BaseWA=BaseW𝑠A×BaseW𝑠A
18 12 17 eqtrid AVBaseW×BaseWA×A=BaseW𝑠A×BaseW𝑠A
19 18 oveq2d AVUnifSetW𝑡BaseW×BaseWA×A=UnifSetW𝑡BaseW𝑠A×BaseW𝑠A
20 14 2 ressunif AVUnifSetW=UnifSetW𝑠A
21 20 oveq1d AVUnifSetW𝑡BaseW𝑠A×BaseW𝑠A=UnifSetW𝑠A𝑡BaseW𝑠A×BaseW𝑠A
22 eqid BaseW𝑠A=BaseW𝑠A
23 eqid UnifSetW𝑠A=UnifSetW𝑠A
24 22 23 ussval UnifSetW𝑠A𝑡BaseW𝑠A×BaseW𝑠A=UnifStW𝑠A
25 24 a1i AVUnifSetW𝑠A𝑡BaseW𝑠A×BaseW𝑠A=UnifStW𝑠A
26 19 21 25 3eqtrd AVUnifSetW𝑡BaseW×BaseWA×A=UnifStW𝑠A
27 11 26 eqtr2d AVUnifStW𝑠A=UnifStW𝑡A×A