Metamath Proof Explorer


Theorem erovlem

Description: Lemma for erov and eroprf . (Contributed by Jeff Madsen, 10-Jun-2010) (Revised by Mario Carneiro, 30-Dec-2014)

Ref Expression
Hypotheses eropr.1 J=A/R
eropr.2 K=B/S
eropr.3 φTZ
eropr.4 φRErU
eropr.5 φSErV
eropr.6 φTErW
eropr.7 φAU
eropr.8 φBV
eropr.9 φCW
eropr.10 φ+˙:A×BC
eropr.11 φrAsAtBuBrRstSur+˙tTs+˙u
eropr.12 ˙=xyz|pAqBx=pRy=qSz=p+˙qT
Assertion erovlem φ˙=xJ,yKιz|pAqBx=pRy=qSz=p+˙qT

Proof

Step Hyp Ref Expression
1 eropr.1 J=A/R
2 eropr.2 K=B/S
3 eropr.3 φTZ
4 eropr.4 φRErU
5 eropr.5 φSErV
6 eropr.6 φTErW
7 eropr.7 φAU
8 eropr.8 φBV
9 eropr.9 φCW
10 eropr.10 φ+˙:A×BC
11 eropr.11 φrAsAtBuBrRstSur+˙tTs+˙u
12 eropr.12 ˙=xyz|pAqBx=pRy=qSz=p+˙qT
13 simpl x=pRy=qSz=p+˙qTx=pRy=qS
14 13 reximi qBx=pRy=qSz=p+˙qTqBx=pRy=qS
15 14 reximi pAqBx=pRy=qSz=p+˙qTpAqBx=pRy=qS
16 1 eleq2i xJxA/R
17 vex xV
18 17 elqs xA/RpAx=pR
19 16 18 bitri xJpAx=pR
20 2 eleq2i yKyB/S
21 vex yV
22 21 elqs yB/SqBy=qS
23 20 22 bitri yKqBy=qS
24 19 23 anbi12i xJyKpAx=pRqBy=qS
25 reeanv pAqBx=pRy=qSpAx=pRqBy=qS
26 24 25 bitr4i xJyKpAqBx=pRy=qS
27 15 26 sylibr pAqBx=pRy=qSz=p+˙qTxJyK
28 27 pm4.71ri pAqBx=pRy=qSz=p+˙qTxJyKpAqBx=pRy=qSz=p+˙qT
29 1 2 3 4 5 6 7 8 9 10 11 eroveu φxJyK∃!zpAqBx=pRy=qSz=p+˙qT
30 iota1 ∃!zpAqBx=pRy=qSz=p+˙qTpAqBx=pRy=qSz=p+˙qTιz|pAqBx=pRy=qSz=p+˙qT=z
31 29 30 syl φxJyKpAqBx=pRy=qSz=p+˙qTιz|pAqBx=pRy=qSz=p+˙qT=z
32 eqcom ιz|pAqBx=pRy=qSz=p+˙qT=zz=ιz|pAqBx=pRy=qSz=p+˙qT
33 31 32 bitrdi φxJyKpAqBx=pRy=qSz=p+˙qTz=ιz|pAqBx=pRy=qSz=p+˙qT
34 33 pm5.32da φxJyKpAqBx=pRy=qSz=p+˙qTxJyKz=ιz|pAqBx=pRy=qSz=p+˙qT
35 28 34 bitrid φpAqBx=pRy=qSz=p+˙qTxJyKz=ιz|pAqBx=pRy=qSz=p+˙qT
36 35 oprabbidv φxyz|pAqBx=pRy=qSz=p+˙qT=xyz|xJyKz=ιz|pAqBx=pRy=qSz=p+˙qT
37 df-mpo xJ,yKιz|pAqBx=pRy=qSz=p+˙qT=xyw|xJyKw=ιz|pAqBx=pRy=qSz=p+˙qT
38 nfv wxJyKz=ιz|pAqBx=pRy=qSz=p+˙qT
39 nfv zxJyK
40 nfiota1 _zιz|pAqBx=pRy=qSz=p+˙qT
41 40 nfeq2 zw=ιz|pAqBx=pRy=qSz=p+˙qT
42 39 41 nfan zxJyKw=ιz|pAqBx=pRy=qSz=p+˙qT
43 eqeq1 z=wz=ιz|pAqBx=pRy=qSz=p+˙qTw=ιz|pAqBx=pRy=qSz=p+˙qT
44 43 anbi2d z=wxJyKz=ιz|pAqBx=pRy=qSz=p+˙qTxJyKw=ιz|pAqBx=pRy=qSz=p+˙qT
45 38 42 44 cbvoprab3 xyz|xJyKz=ιz|pAqBx=pRy=qSz=p+˙qT=xyw|xJyKw=ιz|pAqBx=pRy=qSz=p+˙qT
46 37 45 eqtr4i xJ,yKιz|pAqBx=pRy=qSz=p+˙qT=xyz|xJyKz=ιz|pAqBx=pRy=qSz=p+˙qT
47 36 12 46 3eqtr4g φ˙=xJ,yKιz|pAqBx=pRy=qSz=p+˙qT