Metamath Proof Explorer


Theorem satefvfmla1

Description: The simplified satisfaction predicate at two Godel-sets of membership combined with a Godel-set for NAND. (Contributed by AV, 17-Nov-2023)

Ref Expression
Hypothesis satfv1fvfmla1.x X=I𝑔J𝑔K𝑔L
Assertion satefvfmla1 MVIωJωKωLωMSatX=aMω|¬aIaJ¬aKaL

Proof

Step Hyp Ref Expression
1 satfv1fvfmla1.x X=I𝑔J𝑔K𝑔L
2 1 ovexi XV
3 2 jctr MVMVXV
4 3 3ad2ant1 MVIωJωKωLωMVXV
5 satefv MVXVMSatX=MSatEM×MωX
6 4 5 syl MVIωJωKωLωMSatX=MSatEM×MωX
7 sqxpexg MVM×MV
8 inex2g M×MVEM×MV
9 7 8 syl MVEM×MV
10 9 ancli MVMVEM×MV
11 10 3ad2ant1 MVIωJωKωLωMVEM×MV
12 satom MVEM×MVMSatEM×Mω=iωMSatEM×Mi
13 11 12 syl MVIωJωKωLωMSatEM×Mω=iωMSatEM×Mi
14 13 fveq1d MVIωJωKωLωMSatEM×MωX=iωMSatEM×MiX
15 satfun MVEM×MVMSatEM×Mω:Fmlaω𝒫Mω
16 11 15 syl MVIωJωKωLωMSatEM×Mω:Fmlaω𝒫Mω
17 16 ffund MVIωJωKωLωFunMSatEM×Mω
18 13 eqcomd MVIωJωKωLωiωMSatEM×Mi=MSatEM×Mω
19 18 funeqd MVIωJωKωLωFuniωMSatEM×MiFunMSatEM×Mω
20 17 19 mpbird MVIωJωKωLωFuniωMSatEM×Mi
21 1onn 1𝑜ω
22 21 a1i MVIωJωKωLω1𝑜ω
23 1 2goelgoanfmla1 IωJωKωLωXFmla1𝑜
24 23 3adant1 MVIωJωKωLωXFmla1𝑜
25 21 a1i MV1𝑜ω
26 satfdmfmla MVEM×MV1𝑜ωdomMSatEM×M1𝑜=Fmla1𝑜
27 9 25 26 mpd3an23 MVdomMSatEM×M1𝑜=Fmla1𝑜
28 27 3ad2ant1 MVIωJωKωLωdomMSatEM×M1𝑜=Fmla1𝑜
29 24 28 eleqtrrd MVIωJωKωLωXdomMSatEM×M1𝑜
30 eqid iωMSatEM×Mi=iωMSatEM×Mi
31 30 fviunfun FuniωMSatEM×Mi1𝑜ωXdomMSatEM×M1𝑜iωMSatEM×MiX=MSatEM×M1𝑜X
32 20 22 29 31 syl3anc MVIωJωKωLωiωMSatEM×MiX=MSatEM×M1𝑜X
33 14 32 eqtrd MVIωJωKωLωMSatEM×MωX=MSatEM×M1𝑜X
34 1 satfv1fvfmla1 MVEM×MVIωJωKωLωMSatEM×M1𝑜X=aMω|¬aIEM×MaJ¬aKEM×MaL
35 10 34 syl3an1 MVIωJωKωLωMSatEM×M1𝑜X=aMω|¬aIEM×MaJ¬aKEM×MaL
36 brin aIEM×MaJaIEaJaIM×MaJ
37 elmapi aMωa:ωM
38 ffvelcdm a:ωMIωaIM
39 38 ex a:ωMIωaIM
40 37 39 syl aMωIωaIM
41 ffvelcdm a:ωMJωaJM
42 41 ex a:ωMJωaJM
43 37 42 syl aMωJωaJM
44 40 43 anim12d aMωIωJωaIMaJM
45 44 com12 IωJωaMωaIMaJM
46 45 3ad2ant2 MVIωJωKωLωaMωaIMaJM
47 46 imp MVIωJωKωLωaMωaIMaJM
48 brxp aIM×MaJaIMaJM
49 47 48 sylibr MVIωJωKωLωaMωaIM×MaJ
50 49 biantrud MVIωJωKωLωaMωaIEaJaIEaJaIM×MaJ
51 fvex aJV
52 51 epeli aIEaJaIaJ
53 50 52 bitr3di MVIωJωKωLωaMωaIEaJaIM×MaJaIaJ
54 36 53 bitrid MVIωJωKωLωaMωaIEM×MaJaIaJ
55 54 notbid MVIωJωKωLωaMω¬aIEM×MaJ¬aIaJ
56 brin aKEM×MaLaKEaLaKM×MaL
57 ffvelcdm a:ωMKωaKM
58 57 ex a:ωMKωaKM
59 37 58 syl aMωKωaKM
60 ffvelcdm a:ωMLωaLM
61 60 ex a:ωMLωaLM
62 37 61 syl aMωLωaLM
63 59 62 anim12d aMωKωLωaKMaLM
64 63 com12 KωLωaMωaKMaLM
65 64 3ad2ant3 MVIωJωKωLωaMωaKMaLM
66 65 imp MVIωJωKωLωaMωaKMaLM
67 brxp aKM×MaLaKMaLM
68 66 67 sylibr MVIωJωKωLωaMωaKM×MaL
69 68 biantrud MVIωJωKωLωaMωaKEaLaKEaLaKM×MaL
70 fvex aLV
71 70 epeli aKEaLaKaL
72 69 71 bitr3di MVIωJωKωLωaMωaKEaLaKM×MaLaKaL
73 56 72 bitrid MVIωJωKωLωaMωaKEM×MaLaKaL
74 73 notbid MVIωJωKωLωaMω¬aKEM×MaL¬aKaL
75 55 74 orbi12d MVIωJωKωLωaMω¬aIEM×MaJ¬aKEM×MaL¬aIaJ¬aKaL
76 75 rabbidva MVIωJωKωLωaMω|¬aIEM×MaJ¬aKEM×MaL=aMω|¬aIaJ¬aKaL
77 35 76 eqtrd MVIωJωKωLωMSatEM×M1𝑜X=aMω|¬aIaJ¬aKaL
78 6 33 77 3eqtrd MVIωJωKωLωMSatX=aMω|¬aIaJ¬aKaL