Metamath Proof Explorer


Theorem dfatcolem

Description: Lemma for dfatco . (Contributed by AV, 8-Sep-2022)

Ref Expression
Assertion dfatcolem GdefAtXFdefAtG''''X∃!yXFGy

Proof

Step Hyp Ref Expression
1 dfdfat2 FdefAtG''''XG''''XdomF∃!yG''''XFy
2 eqidd GdefAtXFdefAtG''''XG''''X=G''''X
3 df-dfat FdefAtG''''XG''''XdomFFunFG''''X
4 3 simplbi FdefAtG''''XG''''XdomF
5 dfatbrafv2b GdefAtXG''''XdomFG''''X=G''''XXGG''''X
6 4 5 sylan2 GdefAtXFdefAtG''''XG''''X=G''''XXGG''''X
7 2 6 mpbid GdefAtXFdefAtG''''XXGG''''X
8 eqidd GdefAtXFdefAtG''''XF''''G''''X=F''''G''''X
9 simpr GdefAtXFdefAtG''''XFdefAtG''''X
10 dfatafv2ex FdefAtG''''XF''''G''''XV
11 10 adantl GdefAtXFdefAtG''''XF''''G''''XV
12 dfatbrafv2b FdefAtG''''XF''''G''''XVF''''G''''X=F''''G''''XG''''XFF''''G''''X
13 9 11 12 syl2anc GdefAtXFdefAtG''''XF''''G''''X=F''''G''''XG''''XFF''''G''''X
14 8 13 mpbid GdefAtXFdefAtG''''XG''''XFF''''G''''X
15 4 adantl GdefAtXFdefAtG''''XG''''XdomF
16 breq2 z=G''''XXGzXGG''''X
17 16 adantl y=F''''G''''Xz=G''''XXGzXGG''''X
18 breq12 z=G''''Xy=F''''G''''XzFyG''''XFF''''G''''X
19 18 ancoms y=F''''G''''Xz=G''''XzFyG''''XFF''''G''''X
20 17 19 anbi12d y=F''''G''''Xz=G''''XXGzzFyXGG''''XG''''XFF''''G''''X
21 20 spc2egv F''''G''''XVG''''XdomFXGG''''XG''''XFF''''G''''XyzXGzzFy
22 11 15 21 syl2anc GdefAtXFdefAtG''''XXGG''''XG''''XFF''''G''''XyzXGzzFy
23 7 14 22 mp2and GdefAtXFdefAtG''''XyzXGzzFy
24 dfdfat2 GdefAtXXdomG∃!zXGz
25 tz6.12c-afv2 ∃!zXGzG''''X=zXGz
26 25 adantl XdomG∃!zXGzG''''X=zXGz
27 24 26 sylbi GdefAtXG''''X=zXGz
28 27 adantr GdefAtXFdefAtG''''XG''''X=zXGz
29 breq1 G''''X=zG''''XFyzFy
30 29 adantl FdefAtG''''XG''''X=zG''''XFyzFy
31 30 exbiri FdefAtG''''XG''''X=zzFyG''''XFy
32 31 adantl GdefAtXFdefAtG''''XG''''X=zzFyG''''XFy
33 28 32 sylbird GdefAtXFdefAtG''''XXGzzFyG''''XFy
34 33 impd GdefAtXFdefAtG''''XXGzzFyG''''XFy
35 34 exlimdv GdefAtXFdefAtG''''XzXGzzFyG''''XFy
36 35 alrimiv GdefAtXFdefAtG''''XyzXGzzFyG''''XFy
37 euim yzXGzzFyyzXGzzFyG''''XFy∃!yG''''XFy∃!yzXGzzFy
38 23 36 37 syl2anc GdefAtXFdefAtG''''X∃!yG''''XFy∃!yzXGzzFy
39 38 com12 ∃!yG''''XFyGdefAtXFdefAtG''''X∃!yzXGzzFy
40 39 adantl G''''XdomF∃!yG''''XFyGdefAtXFdefAtG''''X∃!yzXGzzFy
41 40 adantl GdefAtXG''''XdomF∃!yG''''XFyGdefAtXFdefAtG''''X∃!yzXGzzFy
42 1 41 sylan2b GdefAtXFdefAtG''''XGdefAtXFdefAtG''''X∃!yzXGzzFy
43 42 pm2.43i GdefAtXFdefAtG''''X∃!yzXGzzFy
44 df-dfat GdefAtXXdomGFunGX
45 44 simplbi GdefAtXXdomG
46 vex yV
47 46 a1i FdefAtG''''XyV
48 brcog XdomGyVXFGyzXGzzFy
49 45 47 48 syl2an GdefAtXFdefAtG''''XXFGyzXGzzFy
50 49 eubidv GdefAtXFdefAtG''''X∃!yXFGy∃!yzXGzzFy
51 43 50 mpbird GdefAtXFdefAtG''''X∃!yXFGy