Metamath Proof Explorer


Theorem satfv1fvfmla1

Description: The value of the 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 satfv1fvfmla1 MVEWIωJωKωLωMSatE1𝑜X=aMω|¬aIEaJ¬aKEaL

Proof

Step Hyp Ref Expression
1 satfv1fvfmla1.x X=I𝑔J𝑔K𝑔L
2 simpl MVEWMV
3 simpr MVEWEW
4 1onn 1𝑜ω
5 4 a1i MVEW1𝑜ω
6 2 3 5 3jca MVEWMVEW1𝑜ω
7 6 3ad2ant1 MVEWIωJωKωLωMVEW1𝑜ω
8 satffun MVEW1𝑜ωFunMSatE1𝑜
9 7 8 syl MVEWIωJωKωLωFunMSatE1𝑜
10 simp2l MVEWIωJωKωLωIω
11 simp2r MVEWIωJωKωLωJω
12 simp3l MVEWIωJωKωLωKω
13 simp3r MVEWIωJωKωLωLω
14 eqid aMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬aKEaL
15 1 14 pm3.2i X=I𝑔J𝑔K𝑔LaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬aKEaL
16 15 a1i MVEWIωJωKωLωX=I𝑔J𝑔K𝑔LaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬aKEaL
17 oveq1 k=Kk𝑔l=K𝑔l
18 17 oveq2d k=KI𝑔J𝑔k𝑔l=I𝑔J𝑔K𝑔l
19 18 eqeq2d k=KX=I𝑔J𝑔k𝑔lX=I𝑔J𝑔K𝑔l
20 fveq2 k=Kak=aK
21 20 breq1d k=KakEalaKEal
22 21 notbid k=K¬akEal¬aKEal
23 22 orbi2d k=K¬aIEaJ¬akEal¬aIEaJ¬aKEal
24 23 rabbidv k=KaMω|¬aIEaJ¬akEal=aMω|¬aIEaJ¬aKEal
25 24 eqeq2d k=KaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬akEalaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬aKEal
26 19 25 anbi12d k=KX=I𝑔J𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬akEalX=I𝑔J𝑔K𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬aKEal
27 oveq2 l=LK𝑔l=K𝑔L
28 27 oveq2d l=LI𝑔J𝑔K𝑔l=I𝑔J𝑔K𝑔L
29 28 eqeq2d l=LX=I𝑔J𝑔K𝑔lX=I𝑔J𝑔K𝑔L
30 fveq2 l=Lal=aL
31 30 breq2d l=LaKEalaKEaL
32 31 notbid l=L¬aKEal¬aKEaL
33 32 orbi2d l=L¬aIEaJ¬aKEal¬aIEaJ¬aKEaL
34 33 rabbidv l=LaMω|¬aIEaJ¬aKEal=aMω|¬aIEaJ¬aKEaL
35 34 eqeq2d l=LaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬aKEalaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬aKEaL
36 29 35 anbi12d l=LX=I𝑔J𝑔K𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬aKEalX=I𝑔J𝑔K𝑔LaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬aKEaL
37 26 36 rspc2ev KωLωX=I𝑔J𝑔K𝑔LaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬aKEaLkωlωX=I𝑔J𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬akEal
38 12 13 16 37 syl3anc MVEWIωJωKωLωkωlωX=I𝑔J𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬akEal
39 38 orcd MVEWIωJωKωLωkωlωX=I𝑔J𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬akEalnωX=𝑔nI𝑔JaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-J=nzEzzEaJif-J=naIEzaIEaJ
40 oveq1 i=Ii𝑔j=I𝑔j
41 40 oveq1d i=Ii𝑔j𝑔k𝑔l=I𝑔j𝑔k𝑔l
42 41 eqeq2d i=IX=i𝑔j𝑔k𝑔lX=I𝑔j𝑔k𝑔l
43 fveq2 i=Iai=aI
44 43 breq1d i=IaiEajaIEaj
45 44 notbid i=I¬aiEaj¬aIEaj
46 45 orbi1d i=I¬aiEaj¬akEal¬aIEaj¬akEal
47 46 rabbidv i=IaMω|¬aiEaj¬akEal=aMω|¬aIEaj¬akEal
48 47 eqeq2d i=IaMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEalaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaj¬akEal
49 42 48 anbi12d i=IX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEalX=I𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaj¬akEal
50 49 2rexbidv i=IkωlωX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEalkωlωX=I𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaj¬akEal
51 eqidd i=In=n
52 51 40 goaleq12d i=I𝑔ni𝑔j=𝑔nI𝑔j
53 52 eqeq2d i=IX=𝑔ni𝑔jX=𝑔nI𝑔j
54 eqeq1 i=Ii=nI=n
55 biidd i=Iif-j=nzEzzEajif-j=nzEzzEaj
56 43 breq1d i=IaiEzaIEz
57 56 44 ifpbi23d i=Iif-j=naiEzaiEajif-j=naIEzaIEaj
58 54 55 57 ifpbi123d i=Iif-i=nif-j=nzEzzEajif-j=naiEzaiEajif-I=nif-j=nzEzzEajif-j=naIEzaIEaj
59 58 ralbidv i=IzMif-i=nif-j=nzEzzEajif-j=naiEzaiEajzMif-I=nif-j=nzEzzEajif-j=naIEzaIEaj
60 59 rabbidv i=IaMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj=aMω|zMif-I=nif-j=nzEzzEajif-j=naIEzaIEaj
61 60 eqeq2d i=IaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-j=nzEzzEajif-j=naIEzaIEaj
62 53 61 anbi12d i=IX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajX=𝑔nI𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-j=nzEzzEajif-j=naIEzaIEaj
63 62 rexbidv i=InωX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajnωX=𝑔nI𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-j=nzEzzEajif-j=naIEzaIEaj
64 50 63 orbi12d i=IkωlωX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEalnωX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajkωlωX=I𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaj¬akEalnωX=𝑔nI𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-j=nzEzzEajif-j=naIEzaIEaj
65 oveq2 j=JI𝑔j=I𝑔J
66 65 oveq1d j=JI𝑔j𝑔k𝑔l=I𝑔J𝑔k𝑔l
67 66 eqeq2d j=JX=I𝑔j𝑔k𝑔lX=I𝑔J𝑔k𝑔l
68 fveq2 j=Jaj=aJ
69 68 breq2d j=JaIEajaIEaJ
70 69 notbid j=J¬aIEaj¬aIEaJ
71 70 orbi1d j=J¬aIEaj¬akEal¬aIEaJ¬akEal
72 71 rabbidv j=JaMω|¬aIEaj¬akEal=aMω|¬aIEaJ¬akEal
73 72 eqeq2d j=JaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaj¬akEalaMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬akEal
74 67 73 anbi12d j=JX=I𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaj¬akEalX=I𝑔J𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬akEal
75 74 2rexbidv j=JkωlωX=I𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaj¬akEalkωlωX=I𝑔J𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬akEal
76 eqidd j=Jn=n
77 76 65 goaleq12d j=J𝑔nI𝑔j=𝑔nI𝑔J
78 77 eqeq2d j=JX=𝑔nI𝑔jX=𝑔nI𝑔J
79 eqeq1 j=Jj=nJ=n
80 biidd j=JzEzzEz
81 68 breq2d j=JzEajzEaJ
82 79 80 81 ifpbi123d j=Jif-j=nzEzzEajif-J=nzEzzEaJ
83 biidd j=JaIEzaIEz
84 79 83 69 ifpbi123d j=Jif-j=naIEzaIEajif-J=naIEzaIEaJ
85 82 84 ifpbi23d j=Jif-I=nif-j=nzEzzEajif-j=naIEzaIEajif-I=nif-J=nzEzzEaJif-J=naIEzaIEaJ
86 85 ralbidv j=JzMif-I=nif-j=nzEzzEajif-j=naIEzaIEajzMif-I=nif-J=nzEzzEaJif-J=naIEzaIEaJ
87 86 rabbidv j=JaMω|zMif-I=nif-j=nzEzzEajif-j=naIEzaIEaj=aMω|zMif-I=nif-J=nzEzzEaJif-J=naIEzaIEaJ
88 87 eqeq2d j=JaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-j=nzEzzEajif-j=naIEzaIEajaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-J=nzEzzEaJif-J=naIEzaIEaJ
89 78 88 anbi12d j=JX=𝑔nI𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-j=nzEzzEajif-j=naIEzaIEajX=𝑔nI𝑔JaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-J=nzEzzEaJif-J=naIEzaIEaJ
90 89 rexbidv j=JnωX=𝑔nI𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-j=nzEzzEajif-j=naIEzaIEajnωX=𝑔nI𝑔JaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-J=nzEzzEaJif-J=naIEzaIEaJ
91 75 90 orbi12d j=JkωlωX=I𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaj¬akEalnωX=𝑔nI𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-j=nzEzzEajif-j=naIEzaIEajkωlωX=I𝑔J𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬akEalnωX=𝑔nI𝑔JaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-J=nzEzzEaJif-J=naIEzaIEaJ
92 64 91 rspc2ev IωJωkωlωX=I𝑔J𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aIEaJ¬akEalnωX=𝑔nI𝑔JaMω|¬aIEaJ¬aKEaL=aMω|zMif-I=nif-J=nzEzzEaJif-J=naIEzaIEaJiωjωkωlωX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEalnωX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
93 10 11 39 92 syl3anc MVEWIωJωKωLωiωjωkωlωX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEalnωX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
94 1 ovexi XV
95 94 a1i MVEWIωJωKωLωXV
96 ovex MωV
97 96 rabex aMω|¬aIEaJ¬aKEaLV
98 eqeq1 x=Xx=i𝑔j𝑔k𝑔lX=i𝑔j𝑔k𝑔l
99 eqeq1 y=aMω|¬aIEaJ¬aKEaLy=aMω|¬aiEaj¬akEalaMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEal
100 98 99 bi2anan9 x=Xy=aMω|¬aIEaJ¬aKEaLx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEal
101 100 2rexbidv x=Xy=aMω|¬aIEaJ¬aKEaLkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalkωlωX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEal
102 eqeq1 x=Xx=𝑔ni𝑔jX=𝑔ni𝑔j
103 eqeq1 y=aMω|¬aIEaJ¬aKEaLy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
104 102 103 bi2anan9 x=Xy=aMω|¬aIEaJ¬aKEaLx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
105 104 rexbidv x=Xy=aMω|¬aIEaJ¬aKEaLnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajnωX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
106 101 105 orbi12d x=Xy=aMω|¬aIEaJ¬aKEaLkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajkωlωX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEalnωX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
107 106 2rexbidv x=Xy=aMω|¬aIEaJ¬aKEaLiωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajiωjωkωlωX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEalnωX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
108 107 opelopabga XVaMω|¬aIEaJ¬aKEaLVXaMω|¬aIEaJ¬aKEaLxy|iωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajiωjωkωlωX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEalnωX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
109 95 97 108 sylancl MVEWIωJωKωLωXaMω|¬aIEaJ¬aKEaLxy|iωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajiωjωkωlωX=i𝑔j𝑔k𝑔laMω|¬aIEaJ¬aKEaL=aMω|¬aiEaj¬akEalnωX=𝑔ni𝑔jaMω|¬aIEaJ¬aKEaL=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
110 93 109 mpbird MVEWIωJωKωLωXaMω|¬aIEaJ¬aKEaLxy|iωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
111 110 olcd MVEWIωJωKωLωXaMω|¬aIEaJ¬aKEaLMSatEXaMω|¬aIEaJ¬aKEaLxy|iωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
112 elun XaMω|¬aIEaJ¬aKEaLMSatExy|iωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEajXaMω|¬aIEaJ¬aKEaLMSatEXaMω|¬aIEaJ¬aKEaLxy|iωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
113 111 112 sylibr MVEWIωJωKωLωXaMω|¬aIEaJ¬aKEaLMSatExy|iωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
114 eqid MSatE=MSatE
115 114 satfv1 MVEWMSatE1𝑜=MSatExy|iωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
116 115 eleq2d MVEWXaMω|¬aIEaJ¬aKEaLMSatE1𝑜XaMω|¬aIEaJ¬aKEaLMSatExy|iωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
117 116 3ad2ant1 MVEWIωJωKωLωXaMω|¬aIEaJ¬aKEaLMSatE1𝑜XaMω|¬aIEaJ¬aKEaLMSatExy|iωjωkωlωx=i𝑔j𝑔k𝑔ly=aMω|¬aiEaj¬akEalnωx=𝑔ni𝑔jy=aMω|zMif-i=nif-j=nzEzzEajif-j=naiEzaiEaj
118 113 117 mpbird MVEWIωJωKωLωXaMω|¬aIEaJ¬aKEaLMSatE1𝑜
119 funopfv FunMSatE1𝑜XaMω|¬aIEaJ¬aKEaLMSatE1𝑜MSatE1𝑜X=aMω|¬aIEaJ¬aKEaL
120 9 118 119 sylc MVEWIωJωKωLωMSatE1𝑜X=aMω|¬aIEaJ¬aKEaL