Metamath Proof Explorer


Theorem oprabid

Description: The law of concretion. Special case of Theorem 9.5 of Quine p. 61. Usage of this theorem is discouraged because it depends on ax-13 . Use the weaker oprabidw when possible. (Contributed by Mario Carneiro, 20-Mar-2013) (New usage is discouraged.)

Ref Expression
Assertion oprabid xyzxyz|φφ

Proof

Step Hyp Ref Expression
1 opex xyzV
2 opex xyV
3 vex zV
4 2 3 eqvinop w=xyzatw=atat=xyz
5 4 biimpi w=xyzatw=atat=xyz
6 eqeq1 w=atw=xyzat=xyz
7 vex aV
8 vex tV
9 7 8 opth1 at=xyza=xy
10 6 9 syl6bi w=atw=xyza=xy
11 vex xV
12 vex yV
13 11 12 eqvinop a=xyrsa=rsrs=xy
14 opeq1 a=rsat=rst
15 14 eqeq2d a=rsw=atw=rst
16 11 12 3 otth2 xyz=rstx=ry=sz=t
17 euequ ∃!xx=r
18 eupick ∃!xx=rxx=ryy=szz=tφx=ryy=szz=tφ
19 17 18 mpan xx=ryy=szz=tφx=ryy=szz=tφ
20 euequ ∃!yy=s
21 eupick ∃!yy=syy=szz=tφy=szz=tφ
22 20 21 mpan yy=szz=tφy=szz=tφ
23 euequ ∃!zz=t
24 eupick ∃!zz=tzz=tφz=tφ
25 23 24 mpan zz=tφz=tφ
26 22 25 syl6 yy=szz=tφy=sz=tφ
27 19 26 syl6 xx=ryy=szz=tφx=ry=sz=tφ
28 27 3impd xx=ryy=szz=tφx=ry=sz=tφ
29 16 28 biimtrid xx=ryy=szz=tφxyz=rstφ
30 df-3an x=ry=sz=tx=ry=sz=t
31 16 30 bitri xyz=rstx=ry=sz=t
32 31 anbi1i xyz=rstφx=ry=sz=tφ
33 anass x=ry=sz=tφx=ry=sz=tφ
34 anass x=ry=sz=tφx=ry=sz=tφ
35 32 33 34 3bitri xyz=rstφx=ry=sz=tφ
36 35 3exbii xyzxyz=rstφxyzx=ry=sz=tφ
37 nfcvf2 ¬xx=z_zx
38 nfcvd ¬xx=z_zr
39 37 38 nfeqd ¬xx=zzx=r
40 39 exdistrf xzx=ry=sz=tφxx=rzy=sz=tφ
41 40 eximi yxzx=ry=sz=tφyxx=rzy=sz=tφ
42 excom xyzx=ry=sz=tφyxzx=ry=sz=tφ
43 excom xyx=rzy=sz=tφyxx=rzy=sz=tφ
44 41 42 43 3imtr4i xyzx=ry=sz=tφxyx=rzy=sz=tφ
45 nfcvf2 ¬xx=y_yx
46 nfcvd ¬xx=y_yr
47 45 46 nfeqd ¬xx=yyx=r
48 47 exdistrf xyx=rzy=sz=tφxx=ryzy=sz=tφ
49 nfcvf2 ¬yy=z_zy
50 nfcvd ¬yy=z_zs
51 49 50 nfeqd ¬yy=zzy=s
52 51 exdistrf yzy=sz=tφyy=szz=tφ
53 52 anim2i x=ryzy=sz=tφx=ryy=szz=tφ
54 53 eximi xx=ryzy=sz=tφxx=ryy=szz=tφ
55 44 48 54 3syl xyzx=ry=sz=tφxx=ryy=szz=tφ
56 36 55 sylbi xyzxyz=rstφxx=ryy=szz=tφ
57 29 56 syl11 xyz=rstxyzxyz=rstφφ
58 eqeq1 w=rstw=xyzrst=xyz
59 eqcom rst=xyzxyz=rst
60 58 59 bitrdi w=rstw=xyzxyz=rst
61 60 anbi1d w=rstw=xyzφxyz=rstφ
62 61 3exbidv w=rstxyzw=xyzφxyzxyz=rstφ
63 62 imbi1d w=rstxyzw=xyzφφxyzxyz=rstφφ
64 60 63 imbi12d w=rstw=xyzxyzw=xyzφφxyz=rstxyzxyz=rstφφ
65 57 64 mpbiri w=rstw=xyzxyzw=xyzφφ
66 15 65 syl6bi a=rsw=atw=xyzxyzw=xyzφφ
67 66 adantr a=rsrs=xyw=atw=xyzxyzw=xyzφφ
68 67 exlimivv rsa=rsrs=xyw=atw=xyzxyzw=xyzφφ
69 13 68 sylbi a=xyw=atw=xyzxyzw=xyzφφ
70 69 com3l w=atw=xyza=xyxyzw=xyzφφ
71 10 70 mpdd w=atw=xyzxyzw=xyzφφ
72 71 adantr w=atat=xyzw=xyzxyzw=xyzφφ
73 72 exlimivv atw=atat=xyzw=xyzxyzw=xyzφφ
74 5 73 mpcom w=xyzxyzw=xyzφφ
75 19.8a w=xyzφzw=xyzφ
76 19.8a zw=xyzφyzw=xyzφ
77 19.8a yzw=xyzφxyzw=xyzφ
78 75 76 77 3syl w=xyzφxyzw=xyzφ
79 78 ex w=xyzφxyzw=xyzφ
80 74 79 impbid w=xyzxyzw=xyzφφ
81 df-oprab xyz|φ=w|xyzw=xyzφ
82 1 80 81 elab2 xyzxyz|φφ