Metamath Proof Explorer


Theorem eroprf

Description: Functionality of an operation defined on equivalence classes. (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
eropr.13 φRX
eropr.14 φSY
eropr.15 L=C/T
Assertion eroprf φ˙:J×KL

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 eropr.13 φRX
14 eropr.14 φSY
15 eropr.15 L=C/T
16 3 ad2antrr φxJyKpAqBTZ
17 10 adantr φxJyK+˙:A×BC
18 17 fovcdmda φxJyKpAqBp+˙qC
19 ecelqsg TZp+˙qCp+˙qTC/T
20 16 18 19 syl2anc φxJyKpAqBp+˙qTC/T
21 20 15 eleqtrrdi φxJyKpAqBp+˙qTL
22 eleq1a p+˙qTLz=p+˙qTzL
23 21 22 syl φxJyKpAqBz=p+˙qTzL
24 23 adantld φxJyKpAqBx=pRy=qSz=p+˙qTzL
25 24 rexlimdvva φxJyKpAqBx=pRy=qSz=p+˙qTzL
26 25 abssdv φxJyKz|pAqBx=pRy=qSz=p+˙qTL
27 1 2 3 4 5 6 7 8 9 10 11 eroveu φxJyK∃!zpAqBx=pRy=qSz=p+˙qT
28 iotacl ∃!zpAqBx=pRy=qSz=p+˙qTιz|pAqBx=pRy=qSz=p+˙qTz|pAqBx=pRy=qSz=p+˙qT
29 27 28 syl φxJyKιz|pAqBx=pRy=qSz=p+˙qTz|pAqBx=pRy=qSz=p+˙qT
30 26 29 sseldd φxJyKιz|pAqBx=pRy=qSz=p+˙qTL
31 30 ralrimivva φxJyKιz|pAqBx=pRy=qSz=p+˙qTL
32 eqid xJ,yKιz|pAqBx=pRy=qSz=p+˙qT=xJ,yKιz|pAqBx=pRy=qSz=p+˙qT
33 32 fmpo xJyKιz|pAqBx=pRy=qSz=p+˙qTLxJ,yKιz|pAqBx=pRy=qSz=p+˙qT:J×KL
34 31 33 sylib φxJ,yKιz|pAqBx=pRy=qSz=p+˙qT:J×KL
35 1 2 3 4 5 6 7 8 9 10 11 12 erovlem φ˙=xJ,yKιz|pAqBx=pRy=qSz=p+˙qT
36 35 feq1d φ˙:J×KLxJ,yKιz|pAqBx=pRy=qSz=p+˙qT:J×KL
37 34 36 mpbird φ˙:J×KL