ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  mkvprop GIF version

Theorem mkvprop 7134
Description: Markov's Principle expressed in terms of propositions (or more precisely, the 𝐴 = ω case is Markov's Principle). (Contributed by Jim Kingdon, 19-Mar-2023.)
Assertion
Ref Expression
mkvprop ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) → ∃𝑛𝐴 𝜑)
Distinct variable group:   𝐴,𝑛
Allowed substitution hint:   𝜑(𝑛)

Proof of Theorem mkvprop
Dummy variable 𝑓 is distinct from all other variables.
StepHypRef Expression
1 nfv 1521 . . . . . . 7 𝑛 𝐴 ∈ Markov
2 nfra1 2501 . . . . . . 7 𝑛𝑛𝐴 DECID 𝜑
31, 2nfan 1558 . . . . . 6 𝑛(𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑)
4 simpr 109 . . . . . . . . 9 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑) ∧ 𝑛𝐴) → 𝑛𝐴)
5 0lt2o 6420 . . . . . . . . . . . 12 ∅ ∈ 2o
65a1i 9 . . . . . . . . . . 11 ((∀𝑛𝐴 DECID 𝜑𝑛𝐴) → ∅ ∈ 2o)
7 1lt2o 6421 . . . . . . . . . . . 12 1o ∈ 2o
87a1i 9 . . . . . . . . . . 11 ((∀𝑛𝐴 DECID 𝜑𝑛𝐴) → 1o ∈ 2o)
9 rsp 2517 . . . . . . . . . . . 12 (∀𝑛𝐴 DECID 𝜑 → (𝑛𝐴DECID 𝜑))
109imp 123 . . . . . . . . . . 11 ((∀𝑛𝐴 DECID 𝜑𝑛𝐴) → DECID 𝜑)
116, 8, 10ifcldcd 3561 . . . . . . . . . 10 ((∀𝑛𝐴 DECID 𝜑𝑛𝐴) → if(𝜑, ∅, 1o) ∈ 2o)
1211adantll 473 . . . . . . . . 9 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑) ∧ 𝑛𝐴) → if(𝜑, ∅, 1o) ∈ 2o)
13 eqid 2170 . . . . . . . . . 10 (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) = (𝑛𝐴 ↦ if(𝜑, ∅, 1o))
1413fvmpt2 5579 . . . . . . . . 9 ((𝑛𝐴 ∧ if(𝜑, ∅, 1o) ∈ 2o) → ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = if(𝜑, ∅, 1o))
154, 12, 14syl2anc 409 . . . . . . . 8 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑) ∧ 𝑛𝐴) → ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = if(𝜑, ∅, 1o))
1615eqeq1d 2179 . . . . . . 7 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑) ∧ 𝑛𝐴) → (((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o ↔ if(𝜑, ∅, 1o) = 1o))
17 1n0 6411 . . . . . . . . . 10 1o ≠ ∅
1817nesymi 2386 . . . . . . . . 9 ¬ ∅ = 1o
19 iftrue 3531 . . . . . . . . . 10 (𝜑 → if(𝜑, ∅, 1o) = ∅)
2019eqeq1d 2179 . . . . . . . . 9 (𝜑 → (if(𝜑, ∅, 1o) = 1o ↔ ∅ = 1o))
2118, 20mtbiri 670 . . . . . . . 8 (𝜑 → ¬ if(𝜑, ∅, 1o) = 1o)
2221con2i 622 . . . . . . 7 (if(𝜑, ∅, 1o) = 1o → ¬ 𝜑)
2316, 22syl6bi 162 . . . . . 6 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑) ∧ 𝑛𝐴) → (((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o → ¬ 𝜑))
243, 23ralimdaa 2536 . . . . 5 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑) → (∀𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o → ∀𝑛𝐴 ¬ 𝜑))
2524con3d 626 . . . 4 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑) → (¬ ∀𝑛𝐴 ¬ 𝜑 → ¬ ∀𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o))
26253impia 1195 . . 3 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) → ¬ ∀𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o)
27 mptexg 5721 . . . . 5 (𝐴 ∈ Markov → (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) ∈ V)
28273ad2ant1 1013 . . . 4 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) → (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) ∈ V)
29 ismkv 7129 . . . . . 6 (𝐴 ∈ Markov → (𝐴 ∈ Markov ↔ ∀𝑓(𝑓:𝐴⟶2o → (¬ ∀𝑛𝐴 (𝑓𝑛) = 1o → ∃𝑛𝐴 (𝑓𝑛) = ∅))))
3029ibi 175 . . . . 5 (𝐴 ∈ Markov → ∀𝑓(𝑓:𝐴⟶2o → (¬ ∀𝑛𝐴 (𝑓𝑛) = 1o → ∃𝑛𝐴 (𝑓𝑛) = ∅)))
31303ad2ant1 1013 . . . 4 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) → ∀𝑓(𝑓:𝐴⟶2o → (¬ ∀𝑛𝐴 (𝑓𝑛) = 1o → ∃𝑛𝐴 (𝑓𝑛) = ∅)))
32 nfra1 2501 . . . . . . 7 𝑛𝑛𝐴 ¬ 𝜑
3332nfn 1651 . . . . . 6 𝑛 ¬ ∀𝑛𝐴 ¬ 𝜑
341, 2, 33nf3an 1559 . . . . 5 𝑛(𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑)
35113ad2antl2 1155 . . . . 5 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) → if(𝜑, ∅, 1o) ∈ 2o)
3634, 35, 13fmptdf 5653 . . . 4 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) → (𝑛𝐴 ↦ if(𝜑, ∅, 1o)):𝐴⟶2o)
37 feq1 5330 . . . . . 6 (𝑓 = (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) → (𝑓:𝐴⟶2o ↔ (𝑛𝐴 ↦ if(𝜑, ∅, 1o)):𝐴⟶2o))
38 nfmpt1 4082 . . . . . . . . . 10 𝑛(𝑛𝐴 ↦ if(𝜑, ∅, 1o))
3938nfeq2 2324 . . . . . . . . 9 𝑛 𝑓 = (𝑛𝐴 ↦ if(𝜑, ∅, 1o))
40 fveq1 5495 . . . . . . . . . 10 (𝑓 = (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) → (𝑓𝑛) = ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛))
4140eqeq1d 2179 . . . . . . . . 9 (𝑓 = (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) → ((𝑓𝑛) = 1o ↔ ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o))
4239, 41ralbid 2468 . . . . . . . 8 (𝑓 = (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) → (∀𝑛𝐴 (𝑓𝑛) = 1o ↔ ∀𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o))
4342notbid 662 . . . . . . 7 (𝑓 = (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) → (¬ ∀𝑛𝐴 (𝑓𝑛) = 1o ↔ ¬ ∀𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o))
4440eqeq1d 2179 . . . . . . . 8 (𝑓 = (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) → ((𝑓𝑛) = ∅ ↔ ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = ∅))
4539, 44rexbid 2469 . . . . . . 7 (𝑓 = (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) → (∃𝑛𝐴 (𝑓𝑛) = ∅ ↔ ∃𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = ∅))
4643, 45imbi12d 233 . . . . . 6 (𝑓 = (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) → ((¬ ∀𝑛𝐴 (𝑓𝑛) = 1o → ∃𝑛𝐴 (𝑓𝑛) = ∅) ↔ (¬ ∀𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o → ∃𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = ∅)))
4737, 46imbi12d 233 . . . . 5 (𝑓 = (𝑛𝐴 ↦ if(𝜑, ∅, 1o)) → ((𝑓:𝐴⟶2o → (¬ ∀𝑛𝐴 (𝑓𝑛) = 1o → ∃𝑛𝐴 (𝑓𝑛) = ∅)) ↔ ((𝑛𝐴 ↦ if(𝜑, ∅, 1o)):𝐴⟶2o → (¬ ∀𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o → ∃𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = ∅))))
4847spcgv 2817 . . . 4 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o)) ∈ V → (∀𝑓(𝑓:𝐴⟶2o → (¬ ∀𝑛𝐴 (𝑓𝑛) = 1o → ∃𝑛𝐴 (𝑓𝑛) = ∅)) → ((𝑛𝐴 ↦ if(𝜑, ∅, 1o)):𝐴⟶2o → (¬ ∀𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o → ∃𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = ∅))))
4928, 31, 36, 48syl3c 63 . . 3 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) → (¬ ∀𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = 1o → ∃𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = ∅))
5026, 49mpd 13 . 2 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) → ∃𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = ∅)
51 simpr 109 . . . . . 6 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) → 𝑛𝐴)
5251, 35, 14syl2anc 409 . . . . 5 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) → ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = if(𝜑, ∅, 1o))
5352eqeq1d 2179 . . . 4 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) → (((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = ∅ ↔ if(𝜑, ∅, 1o) = ∅))
5493ad2ant2 1014 . . . . . . 7 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) → (𝑛𝐴DECID 𝜑))
5554imp 123 . . . . . 6 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) → DECID 𝜑)
5617neii 2342 . . . . . . . . 9 ¬ 1o = ∅
57 simpr 109 . . . . . . . . . . 11 ((((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) ∧ ¬ 𝜑) → ¬ 𝜑)
5857iffalsed 3536 . . . . . . . . . 10 ((((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) ∧ ¬ 𝜑) → if(𝜑, ∅, 1o) = 1o)
5958eqeq1d 2179 . . . . . . . . 9 ((((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) ∧ ¬ 𝜑) → (if(𝜑, ∅, 1o) = ∅ ↔ 1o = ∅))
6056, 59mtbiri 670 . . . . . . . 8 ((((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) ∧ ¬ 𝜑) → ¬ if(𝜑, ∅, 1o) = ∅)
6160ex 114 . . . . . . 7 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) → (¬ 𝜑 → ¬ if(𝜑, ∅, 1o) = ∅))
6261con2d 619 . . . . . 6 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) → (if(𝜑, ∅, 1o) = ∅ → ¬ ¬ 𝜑))
63 notnotrdc 838 . . . . . 6 (DECID 𝜑 → (¬ ¬ 𝜑𝜑))
6455, 62, 63sylsyld 58 . . . . 5 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) → (if(𝜑, ∅, 1o) = ∅ → 𝜑))
6564, 19impbid1 141 . . . 4 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) → (if(𝜑, ∅, 1o) = ∅ ↔ 𝜑))
6653, 65bitrd 187 . . 3 (((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) ∧ 𝑛𝐴) → (((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = ∅ ↔ 𝜑))
6734, 66rexbida 2465 . 2 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) → (∃𝑛𝐴 ((𝑛𝐴 ↦ if(𝜑, ∅, 1o))‘𝑛) = ∅ ↔ ∃𝑛𝐴 𝜑))
6850, 67mpbid 146 1 ((𝐴 ∈ Markov ∧ ∀𝑛𝐴 DECID 𝜑 ∧ ¬ ∀𝑛𝐴 ¬ 𝜑) → ∃𝑛𝐴 𝜑)
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 103  DECID wdc 829  w3a 973  wal 1346   = wceq 1348  wcel 2141  wral 2448  wrex 2449  Vcvv 2730  c0 3414  ifcif 3526  cmpt 4050  wf 5194  cfv 5198  1oc1o 6388  2oc2o 6389  Markovcmarkov 7127
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 609  ax-in2 610  ax-io 704  ax-5 1440  ax-7 1441  ax-gen 1442  ax-ie1 1486  ax-ie2 1487  ax-8 1497  ax-10 1498  ax-11 1499  ax-i12 1500  ax-bndl 1502  ax-4 1503  ax-17 1519  ax-i9 1523  ax-ial 1527  ax-i5r 1528  ax-13 2143  ax-14 2144  ax-ext 2152  ax-coll 4104  ax-sep 4107  ax-nul 4115  ax-pow 4160  ax-pr 4194  ax-un 4418
This theorem depends on definitions:  df-bi 116  df-dc 830  df-3an 975  df-tru 1351  df-fal 1354  df-nf 1454  df-sb 1756  df-eu 2022  df-mo 2023  df-clab 2157  df-cleq 2163  df-clel 2166  df-nfc 2301  df-ne 2341  df-ral 2453  df-rex 2454  df-reu 2455  df-rab 2457  df-v 2732  df-sbc 2956  df-csb 3050  df-dif 3123  df-un 3125  df-in 3127  df-ss 3134  df-nul 3415  df-if 3527  df-pw 3568  df-sn 3589  df-pr 3590  df-op 3592  df-uni 3797  df-iun 3875  df-br 3990  df-opab 4051  df-mpt 4052  df-tr 4088  df-id 4278  df-iord 4351  df-on 4353  df-suc 4356  df-xp 4617  df-rel 4618  df-cnv 4619  df-co 4620  df-dm 4621  df-rn 4622  df-res 4623  df-ima 4624  df-iota 5160  df-fun 5200  df-fn 5201  df-f 5202  df-f1 5203  df-fo 5204  df-f1o 5205  df-fv 5206  df-1o 6395  df-2o 6396  df-markov 7128
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator