Metamath Proof Explorer


Theorem satfun

Description: The satisfaction predicate as function over wff codes in the model M and the binary relation E on M . (Contributed by AV, 29-Oct-2023)

Ref Expression
Assertion satfun MVEWMSatEω:Fmlaω𝒫Mω

Proof

Step Hyp Ref Expression
1 satff MVEWxωMSatEx:Fmlax𝒫Mω
2 1 3expa MVEWxωMSatEx:Fmlax𝒫Mω
3 entric xωyωxyxyyx
4 3 adantl MVEWxωyωxyxyyx
5 nnsdomo xωyωxyxy
6 5 adantl MVEWxωyωxyxy
7 pm3.22 xωyωyωxω
8 7 anim2i MVEWxωyωMVEWyωxω
9 pssss xyxy
10 eqid MSatE=MSatE
11 10 satfsschain MVEWyωxωxyMSatExMSatEy
12 11 imp MVEWyωxωxyMSatExMSatEy
13 8 9 12 syl2an MVEWxωyωxyMSatExMSatEy
14 13 orcd MVEWxωyωxyMSatExMSatEyMSatEyMSatEx
15 14 ex MVEWxωyωxyMSatExMSatEyMSatEyMSatEx
16 6 15 sylbid MVEWxωyωxyMSatExMSatEyMSatEyMSatEx
17 nneneq xωyωxyx=y
18 17 adantl MVEWxωyωxyx=y
19 ssid MSatEyMSatEy
20 fveq2 x=yMSatEx=MSatEy
21 19 20 sseqtrrid x=yMSatEyMSatEx
22 21 olcd x=yMSatExMSatEyMSatEyMSatEx
23 18 22 syl6bi MVEWxωyωxyMSatExMSatEyMSatEyMSatEx
24 nnsdomo yωxωyxyx
25 24 ancoms xωyωyxyx
26 25 adantl MVEWxωyωyxyx
27 10 satfsschain MVEWxωyωyxMSatEyMSatEx
28 pssss yxyx
29 27 28 impel MVEWxωyωyxMSatEyMSatEx
30 29 olcd MVEWxωyωyxMSatExMSatEyMSatEyMSatEx
31 30 ex MVEWxωyωyxMSatExMSatEyMSatEyMSatEx
32 26 31 sylbid MVEWxωyωyxMSatExMSatEyMSatEyMSatEx
33 16 23 32 3jaod MVEWxωyωxyxyyxMSatExMSatEyMSatEyMSatEx
34 4 33 mpd MVEWxωyωMSatExMSatEyMSatEyMSatEx
35 34 expr MVEWxωyωMSatExMSatEyMSatEyMSatEx
36 35 ralrimiv MVEWxωyωMSatExMSatEyMSatEyMSatEx
37 2 36 jca MVEWxωMSatEx:Fmlax𝒫MωyωMSatExMSatEyMSatEyMSatEx
38 37 ralrimiva MVEWxωMSatEx:Fmlax𝒫MωyωMSatExMSatEyMSatEyMSatEx
39 fvex MSatExV
40 20 39 fiun xωMSatEx:Fmlax𝒫MωyωMSatExMSatEyMSatEyMSatExxωMSatEx:xωFmlax𝒫Mω
41 38 40 syl MVEWxωMSatEx:xωFmlax𝒫Mω
42 satom MVEWMSatEω=xωMSatEx
43 fmla Fmlaω=xωFmlax
44 43 a1i MVEWFmlaω=xωFmlax
45 42 44 feq12d MVEWMSatEω:Fmlaω𝒫MωxωMSatEx:xωFmlax𝒫Mω
46 41 45 mpbird MVEWMSatEω:Fmlaω𝒫Mω