Metamath Proof Explorer


Theorem dfiota3

Description: A definition of iota using minimal quantifiers. (Contributed by Scott Fenton, 19-Feb-2013)

Ref Expression
Assertion dfiota3 ιx|φ=x|φ𝖲𝗂𝗇𝗀𝗅𝖾𝗍𝗈𝗇𝗌

Proof

Step Hyp Ref Expression
1 df-iota ιx|φ=y|x|φ=y
2 eqabcb y|x|φ=y=z|wz=x|φz=wyx|φ=yyz|wz=x|φz=w
3 exdistr zwyzz=x|φz=wzyzwz=x|φz=w
4 vex yV
5 sneq w=yw=y
6 5 eqeq2d w=yx|φ=wx|φ=y
7 4 6 ceqsexv ww=yx|φ=wx|φ=y
8 vsnex wV
9 eqeq1 z=wz=x|φw=x|φ
10 eleq2 z=wyzyw
11 9 10 anbi12d z=wz=x|φyzw=x|φyw
12 eqcom w=x|φx|φ=w
13 velsn ywy=w
14 equcom y=ww=y
15 13 14 bitri yww=y
16 12 15 anbi12ci w=x|φyww=yx|φ=w
17 11 16 bitrdi z=wz=x|φyzw=yx|φ=w
18 8 17 ceqsexv zz=wz=x|φyzw=yx|φ=w
19 an13 z=wz=x|φyzyzz=x|φz=w
20 19 exbii zz=wz=x|φyzzyzz=x|φz=w
21 18 20 bitr3i w=yx|φ=wzyzz=x|φz=w
22 21 exbii ww=yx|φ=wwzyzz=x|φz=w
23 7 22 bitr3i x|φ=ywzyzz=x|φz=w
24 excom wzyzz=x|φz=wzwyzz=x|φz=w
25 23 24 bitri x|φ=yzwyzz=x|φz=w
26 eluniab yz|wz=x|φz=wzyzwz=x|φz=w
27 3 25 26 3bitr4i x|φ=yyz|wz=x|φz=w
28 2 27 mpgbir y|x|φ=y=z|wz=x|φz=w
29 df-sn x|φ=z|z=x|φ
30 dfsingles2 𝖲𝗂𝗇𝗀𝗅𝖾𝗍𝗈𝗇𝗌=z|wz=w
31 29 30 ineq12i x|φ𝖲𝗂𝗇𝗀𝗅𝖾𝗍𝗈𝗇𝗌=z|z=x|φz|wz=w
32 inab z|z=x|φz|wz=w=z|z=x|φwz=w
33 19.42v wz=x|φz=wz=x|φwz=w
34 33 bicomi z=x|φwz=wwz=x|φz=w
35 34 abbii z|z=x|φwz=w=z|wz=x|φz=w
36 32 35 eqtri z|z=x|φz|wz=w=z|wz=x|φz=w
37 31 36 eqtri x|φ𝖲𝗂𝗇𝗀𝗅𝖾𝗍𝗈𝗇𝗌=z|wz=x|φz=w
38 37 unieqi x|φ𝖲𝗂𝗇𝗀𝗅𝖾𝗍𝗈𝗇𝗌=z|wz=x|φz=w
39 28 38 eqtr4i y|x|φ=y=x|φ𝖲𝗂𝗇𝗀𝗅𝖾𝗍𝗈𝗇𝗌
40 39 unieqi y|x|φ=y=x|φ𝖲𝗂𝗇𝗀𝗅𝖾𝗍𝗈𝗇𝗌
41 1 40 eqtri ιx|φ=x|φ𝖲𝗂𝗇𝗀𝗅𝖾𝗍𝗈𝗇𝗌