Metamath Proof Explorer


Theorem fpwwe2lem2

Description: Lemma for fpwwe2 . (Contributed by Mario Carneiro, 19-May-2015) (Revised by AV, 20-Jul-2024)

Ref Expression
Hypotheses fpwwe2.1 W=xr|xArx×xrWexyx[˙r-1y/u]˙uFru×u=y
fpwwe2.2 φAV
Assertion fpwwe2lem2 φXWRXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=y

Proof

Step Hyp Ref Expression
1 fpwwe2.1 W=xr|xArx×xrWexyx[˙r-1y/u]˙uFru×u=y
2 fpwwe2.2 φAV
3 1 relopabiv RelW
4 3 a1i φRelW
5 brrelex12 RelWXWRXVRV
6 4 5 sylan φXWRXVRV
7 2 adantr φXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=yAV
8 simprll φXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=yXA
9 7 8 ssexd φXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=yXV
10 9 9 xpexd φXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=yX×XV
11 simprlr φXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=yRX×X
12 10 11 ssexd φXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=yRV
13 9 12 jca φXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=yXVRV
14 simpl x=Xr=Rx=X
15 14 sseq1d x=Xr=RxAXA
16 simpr x=Xr=Rr=R
17 14 sqxpeqd x=Xr=Rx×x=X×X
18 16 17 sseq12d x=Xr=Rrx×xRX×X
19 15 18 anbi12d x=Xr=RxArx×xXARX×X
20 weeq2 x=XrWexrWeX
21 weeq1 r=RrWeXRWeX
22 20 21 sylan9bb x=Xr=RrWexRWeX
23 16 cnveqd x=Xr=Rr-1=R-1
24 23 imaeq1d x=Xr=Rr-1y=R-1y
25 16 ineq1d x=Xr=Rru×u=Ru×u
26 25 oveq2d x=Xr=RuFru×u=uFRu×u
27 26 eqeq1d x=Xr=RuFru×u=yuFRu×u=y
28 24 27 sbceqbid x=Xr=R[˙r-1y/u]˙uFru×u=y[˙R-1y/u]˙uFRu×u=y
29 14 28 raleqbidv x=Xr=Ryx[˙r-1y/u]˙uFru×u=yyX[˙R-1y/u]˙uFRu×u=y
30 22 29 anbi12d x=Xr=RrWexyx[˙r-1y/u]˙uFru×u=yRWeXyX[˙R-1y/u]˙uFRu×u=y
31 19 30 anbi12d x=Xr=RxArx×xrWexyx[˙r-1y/u]˙uFru×u=yXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=y
32 31 1 brabga XVRVXWRXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=y
33 6 13 32 pm5.21nd φXWRXARX×XRWeXyX[˙R-1y/u]˙uFRu×u=y