Users' Mathboxes Mathbox for Mario Carneiro < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  satfsschain Structured version   Visualization version   GIF version

Theorem satfsschain 35351
Description: The binary relation of a satisfaction predicate as function over wff codes is an increasing chain (with respect to inclusion). (Contributed by AV, 15-Oct-2023.)
Hypothesis
Ref Expression
satfsschain.s 𝑆 = (𝑀 Sat 𝐸)
Assertion
Ref Expression
satfsschain (((𝑀𝑉𝐸𝑊) ∧ (𝐴 ∈ ω ∧ 𝐵 ∈ ω)) → (𝐵𝐴 → (𝑆𝐵) ⊆ (𝑆𝐴)))

Proof of Theorem satfsschain
Dummy variables 𝑎 𝑏 𝑖 𝑘 𝑢 𝑣 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fveq2 6858 . . . . . . 7 (𝑏 = 𝐵 → (𝑆𝑏) = (𝑆𝐵))
21sseq2d 3979 . . . . . 6 (𝑏 = 𝐵 → ((𝑆𝐵) ⊆ (𝑆𝑏) ↔ (𝑆𝐵) ⊆ (𝑆𝐵)))
32imbi2d 340 . . . . 5 (𝑏 = 𝐵 → (((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝑏)) ↔ ((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝐵))))
4 fveq2 6858 . . . . . . 7 (𝑏 = 𝑎 → (𝑆𝑏) = (𝑆𝑎))
54sseq2d 3979 . . . . . 6 (𝑏 = 𝑎 → ((𝑆𝐵) ⊆ (𝑆𝑏) ↔ (𝑆𝐵) ⊆ (𝑆𝑎)))
65imbi2d 340 . . . . 5 (𝑏 = 𝑎 → (((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝑏)) ↔ ((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝑎))))
7 fveq2 6858 . . . . . . 7 (𝑏 = suc 𝑎 → (𝑆𝑏) = (𝑆‘suc 𝑎))
87sseq2d 3979 . . . . . 6 (𝑏 = suc 𝑎 → ((𝑆𝐵) ⊆ (𝑆𝑏) ↔ (𝑆𝐵) ⊆ (𝑆‘suc 𝑎)))
98imbi2d 340 . . . . 5 (𝑏 = suc 𝑎 → (((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝑏)) ↔ ((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆‘suc 𝑎))))
10 fveq2 6858 . . . . . . 7 (𝑏 = 𝐴 → (𝑆𝑏) = (𝑆𝐴))
1110sseq2d 3979 . . . . . 6 (𝑏 = 𝐴 → ((𝑆𝐵) ⊆ (𝑆𝑏) ↔ (𝑆𝐵) ⊆ (𝑆𝐴)))
1211imbi2d 340 . . . . 5 (𝑏 = 𝐴 → (((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝑏)) ↔ ((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝐴))))
13 ssidd 3970 . . . . . 6 ((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝐵))
1413a1i 11 . . . . 5 (𝐵 ∈ ω → ((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝐵)))
15 pm2.27 42 . . . . . . . . 9 ((𝑀𝑉𝐸𝑊) → (((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝑎)) → (𝑆𝐵) ⊆ (𝑆𝑎)))
1615adantl 481 . . . . . . . 8 ((((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) ∧ (𝑀𝑉𝐸𝑊)) → (((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝑎)) → (𝑆𝐵) ⊆ (𝑆𝑎)))
17 simpr 484 . . . . . . . . . 10 (((((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) ∧ (𝑀𝑉𝐸𝑊)) ∧ (𝑆𝐵) ⊆ (𝑆𝑎)) → (𝑆𝐵) ⊆ (𝑆𝑎))
18 ssun1 4141 . . . . . . . . . . . 12 (𝑆𝑎) ⊆ ((𝑆𝑎) ∪ {⟨𝑥, 𝑦⟩ ∣ ∃𝑢 ∈ (𝑆𝑎)(∃𝑣 ∈ (𝑆𝑎)(𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∧ 𝑦 = ((𝑀m ω) ∖ ((2nd𝑢) ∩ (2nd𝑣)))) ∨ ∃𝑖 ∈ ω (𝑥 = ∀𝑔𝑖(1st𝑢) ∧ 𝑦 = {𝑧 ∈ (𝑀m ω) ∣ ∀𝑘𝑀 ({⟨𝑖, 𝑘⟩} ∪ (𝑧 ↾ (ω ∖ {𝑖}))) ∈ (2nd𝑢)}))})
19 simpl 482 . . . . . . . . . . . . 13 ((𝑀𝑉𝐸𝑊) → 𝑀𝑉)
20 simpr 484 . . . . . . . . . . . . 13 ((𝑀𝑉𝐸𝑊) → 𝐸𝑊)
21 simplll 774 . . . . . . . . . . . . 13 ((((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) ∧ (𝑀𝑉𝐸𝑊)) → 𝑎 ∈ ω)
22 satfsschain.s . . . . . . . . . . . . . 14 𝑆 = (𝑀 Sat 𝐸)
2322satfvsuc 35348 . . . . . . . . . . . . 13 ((𝑀𝑉𝐸𝑊𝑎 ∈ ω) → (𝑆‘suc 𝑎) = ((𝑆𝑎) ∪ {⟨𝑥, 𝑦⟩ ∣ ∃𝑢 ∈ (𝑆𝑎)(∃𝑣 ∈ (𝑆𝑎)(𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∧ 𝑦 = ((𝑀m ω) ∖ ((2nd𝑢) ∩ (2nd𝑣)))) ∨ ∃𝑖 ∈ ω (𝑥 = ∀𝑔𝑖(1st𝑢) ∧ 𝑦 = {𝑧 ∈ (𝑀m ω) ∣ ∀𝑘𝑀 ({⟨𝑖, 𝑘⟩} ∪ (𝑧 ↾ (ω ∖ {𝑖}))) ∈ (2nd𝑢)}))}))
2419, 20, 21, 23syl2an23an 1425 . . . . . . . . . . . 12 ((((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) ∧ (𝑀𝑉𝐸𝑊)) → (𝑆‘suc 𝑎) = ((𝑆𝑎) ∪ {⟨𝑥, 𝑦⟩ ∣ ∃𝑢 ∈ (𝑆𝑎)(∃𝑣 ∈ (𝑆𝑎)(𝑥 = ((1st𝑢)⊼𝑔(1st𝑣)) ∧ 𝑦 = ((𝑀m ω) ∖ ((2nd𝑢) ∩ (2nd𝑣)))) ∨ ∃𝑖 ∈ ω (𝑥 = ∀𝑔𝑖(1st𝑢) ∧ 𝑦 = {𝑧 ∈ (𝑀m ω) ∣ ∀𝑘𝑀 ({⟨𝑖, 𝑘⟩} ∪ (𝑧 ↾ (ω ∖ {𝑖}))) ∈ (2nd𝑢)}))}))
2518, 24sseqtrrid 3990 . . . . . . . . . . 11 ((((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) ∧ (𝑀𝑉𝐸𝑊)) → (𝑆𝑎) ⊆ (𝑆‘suc 𝑎))
2625adantr 480 . . . . . . . . . 10 (((((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) ∧ (𝑀𝑉𝐸𝑊)) ∧ (𝑆𝐵) ⊆ (𝑆𝑎)) → (𝑆𝑎) ⊆ (𝑆‘suc 𝑎))
2717, 26sstrd 3957 . . . . . . . . 9 (((((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) ∧ (𝑀𝑉𝐸𝑊)) ∧ (𝑆𝐵) ⊆ (𝑆𝑎)) → (𝑆𝐵) ⊆ (𝑆‘suc 𝑎))
2827ex 412 . . . . . . . 8 ((((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) ∧ (𝑀𝑉𝐸𝑊)) → ((𝑆𝐵) ⊆ (𝑆𝑎) → (𝑆𝐵) ⊆ (𝑆‘suc 𝑎)))
2916, 28syld 47 . . . . . . 7 ((((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) ∧ (𝑀𝑉𝐸𝑊)) → (((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝑎)) → (𝑆𝐵) ⊆ (𝑆‘suc 𝑎)))
3029ex 412 . . . . . 6 (((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) → ((𝑀𝑉𝐸𝑊) → (((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝑎)) → (𝑆𝐵) ⊆ (𝑆‘suc 𝑎))))
3130com23 86 . . . . 5 (((𝑎 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝑎) → (((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝑎)) → ((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆‘suc 𝑎))))
323, 6, 9, 12, 14, 31findsg 7873 . . . 4 (((𝐴 ∈ ω ∧ 𝐵 ∈ ω) ∧ 𝐵𝐴) → ((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝐴)))
3332ex 412 . . 3 ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (𝐵𝐴 → ((𝑀𝑉𝐸𝑊) → (𝑆𝐵) ⊆ (𝑆𝐴))))
3433com23 86 . 2 ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → ((𝑀𝑉𝐸𝑊) → (𝐵𝐴 → (𝑆𝐵) ⊆ (𝑆𝐴))))
3534impcom 407 1 (((𝑀𝑉𝐸𝑊) ∧ (𝐴 ∈ ω ∧ 𝐵 ∈ ω)) → (𝐵𝐴 → (𝑆𝐵) ⊆ (𝑆𝐴)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  wo 847   = wceq 1540  wcel 2109  wral 3044  wrex 3053  {crab 3405  cdif 3911  cun 3912  cin 3913  wss 3914  {csn 4589  cop 4595  {copab 5169  cres 5640  suc csuc 6334  cfv 6511  (class class class)co 7387  ωcom 7842  1st c1st 7966  2nd c2nd 7967  m cmap 8799  𝑔cgna 35321  𝑔cgol 35322   Sat csat 35323
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5234  ax-sep 5251  ax-nul 5261  ax-pow 5320  ax-pr 5387  ax-un 7711  ax-inf2 9594
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-reu 3355  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3934  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4872  df-iun 4957  df-br 5108  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5533  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5591  df-we 5593  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6274  df-ord 6335  df-on 6336  df-lim 6337  df-suc 6338  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-f1 6516  df-fo 6517  df-f1o 6518  df-fv 6519  df-ov 7390  df-oprab 7391  df-mpo 7392  df-om 7843  df-2nd 7969  df-frecs 8260  df-wrecs 8291  df-recs 8340  df-rdg 8378  df-sat 35330
This theorem is referenced by:  satfvsucsuc  35352  satffunlem2lem2  35393  satffunlem2  35395  satfun  35398
  Copyright terms: Public domain W3C validator