Theorem bnj580 35210

Description: Technical lemma for bnj579 35211. This lemma may no longer be used or have become an indirect lemma of the theorem in question (i.e. a lemma of a lemma... of the theorem). (Contributed by Jonathan Ben-Naim, 3-Jun-2011.) (New usage is discouraged.)

Hypotheses

Ref	Expression
bnj580.1	⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
bnj580.2	⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
bnj580.3	⊢ (𝜒 ↔ (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
bnj580.4	⊢ (𝜑′ ↔ [𝑔 / 𝑓]𝜑)
bnj580.5	⊢ (𝜓′ ↔ [𝑔 / 𝑓]𝜓)
bnj580.6	⊢ (𝜒′ ↔ [𝑔 / 𝑓]𝜒)
bnj580.7	⊢ 𝐷 = (ω ∖ {∅})
bnj580.8	⊢ (𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
bnj580.9	⊢ (𝜏 ↔ ∀𝑘 ∈ 𝑛 (𝑘 E 𝑗 → [𝑘 / 𝑗]𝜃))

Assertion

Ref	Expression
bnj580	⊢ (𝑛 ∈ 𝐷 → ∃*𝑓𝜒)

Distinct variable groups:   𝐴,𝑓,𝑖,𝑘   𝐷,𝑓,𝑔,𝑗,𝑘   𝑅,𝑓,𝑖,𝑘   𝜒,𝑔,𝑗,𝑘   𝑗,𝜒′,𝑘   𝑓,𝑛   𝑔,𝑖,𝑛,𝑘   𝑥,𝑓   𝑦,𝑓,𝑔,𝑖,𝑘   𝑗,𝑛   𝜃,𝑘

Allowed substitution hints:   𝜑(𝑥,𝑦,𝑓,𝑔,𝑖,𝑗,𝑘,𝑛)   𝜓(𝑥,𝑦,𝑓,𝑔,𝑖,𝑗,𝑘,𝑛)   𝜒(𝑥,𝑦,𝑓,𝑖,𝑛)   𝜃(𝑥,𝑦,𝑓,𝑔,𝑖,𝑗,𝑛)   𝜏(𝑥,𝑦,𝑓,𝑔,𝑖,𝑗,𝑘,𝑛)   𝐴(𝑥,𝑦,𝑔,𝑗,𝑛)   𝐷(𝑥,𝑦,𝑖,𝑛)   𝑅(𝑥,𝑦,𝑔,𝑗,𝑛)   𝜑′(𝑥,𝑦,𝑓,𝑔,𝑖,𝑗,𝑘,𝑛)   𝜓′(𝑥,𝑦,𝑓,𝑔,𝑖,𝑗,𝑘,𝑛)   𝜒′(𝑥,𝑦,𝑓,𝑔,𝑖,𝑛)

Proof of Theorem bnj580

Step	Hyp	Ref	Expression
1		bnj580.3	. . . . . . 7 ⊢ (𝜒 ↔ (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓))
2	1	simp1bi 1159	. . . . . 6 ⊢ (𝜒 → 𝑓 Fn 𝑛)
3		bnj580.4	. . . . . . . 8 ⊢ (𝜑′ ↔ [𝑔 / 𝑓]𝜑)
4		bnj580.5	. . . . . . . 8 ⊢ (𝜓′ ↔ [𝑔 / 𝑓]𝜓)
5		bnj580.6	. . . . . . . 8 ⊢ (𝜒′ ↔ [𝑔 / 𝑓]𝜒)
6	1, 3, 4, 5	bnj581 35205	. . . . . . 7 ⊢ (𝜒′ ↔ (𝑔 Fn 𝑛 ∧ 𝜑′ ∧ 𝜓′))
7	6	simp1bi 1159	. . . . . 6 ⊢ (𝜒′ → 𝑔 Fn 𝑛)
8	2, 7	bnj240 34997	. . . . 5 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛))
9		bnj580.1	. . . . . . . . . . . . 13 ⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
10		bnj580.2	. . . . . . . . . . . . 13 ⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
11		bnj580.7	. . . . . . . . . . . . 13 ⊢ 𝐷 = (ω ∖ {∅})
12	3, 9	bnj154 35175	. . . . . . . . . . . . 13 ⊢ (𝜑′ ↔ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅))
13		vex 3460	. . . . . . . . . . . . . 14 ⊢ 𝑔 ∈ V
14	10, 4, 13	bnj540 35189	. . . . . . . . . . . . 13 ⊢ (𝜓′ ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅)))
15		bnj580.8	. . . . . . . . . . . . 13 ⊢ (𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
16	15	bnj591 35208	. . . . . . . . . . . . 13 ⊢ ([𝑘 / 𝑗]𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑘) = (𝑔‘𝑘)))
17		bnj580.9	. . . . . . . . . . . . 13 ⊢ (𝜏 ↔ ∀𝑘 ∈ 𝑛 (𝑘 E 𝑗 → [𝑘 / 𝑗]𝜃))
18	9, 10, 1, 11, 12, 14, 6, 15, 16, 17	bnj594 35209	. . . . . . . . . . . 12 ⊢ ((𝑗 ∈ 𝑛 ∧ 𝜏) → 𝜃)
19	18	ex 416	. . . . . . . . . . 11 ⊢ (𝑗 ∈ 𝑛 → (𝜏 → 𝜃))
20	19	rgen 3080	. . . . . . . . . 10 ⊢ ∀𝑗 ∈ 𝑛 (𝜏 → 𝜃)
21		vex 3460	. . . . . . . . . . 11 ⊢ 𝑛 ∈ V
22	21, 17	bnj110 35155	. . . . . . . . . 10 ⊢ (( E Fr 𝑛 ∧ ∀𝑗 ∈ 𝑛 (𝜏 → 𝜃)) → ∀𝑗 ∈ 𝑛 𝜃)
23	20, 22	mpan2 701	. . . . . . . . 9 ⊢ ( E Fr 𝑛 → ∀𝑗 ∈ 𝑛 𝜃)
24	15	ralbii 3110	. . . . . . . . 9 ⊢ (∀𝑗 ∈ 𝑛 𝜃 ↔ ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
25	23, 24	sylib 220	. . . . . . . 8 ⊢ ( E Fr 𝑛 → ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
26	25	r19.21be 3257	. . . . . . 7 ⊢ ∀𝑗 ∈ 𝑛 ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
27	11	bnj923 35066	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ 𝐷 → 𝑛 ∈ ω)
28		nnord 7856	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ω → Ord 𝑛)
29		ordfr 6363	. . . . . . . . . . . . 13 ⊢ (Ord 𝑛 → E Fr 𝑛)
30	27, 28, 29	3syl 18	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ 𝐷 → E Fr 𝑛)
31	30	3ad2ant1 1147	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → E Fr 𝑛)
32	31	pm4.71ri 568	. . . . . . . . . 10 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) ↔ ( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)))
33	32	imbi1i 351	. . . . . . . . 9 ⊢ (((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ (( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)) → (𝑓‘𝑗) = (𝑔‘𝑗)))
34		impexp 454	. . . . . . . . 9 ⊢ ((( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
35	33, 34	bitri 277	. . . . . . . 8 ⊢ (((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
36	35	ralbii 3110	. . . . . . 7 ⊢ (∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ∀𝑗 ∈ 𝑛 ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
37	26, 36	mpbir 233	. . . . . 6 ⊢ ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))
38		r19.21v 3189	. . . . . 6 ⊢ (∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗)))
39	37, 38	mpbi 232	. . . . 5 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗))
40		eqfnfv 7013	. . . . . 6 ⊢ ((𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛) → (𝑓 = 𝑔 ↔ ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗)))
41	40	biimprd 250	. . . . 5 ⊢ ((𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛) → (∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗) → 𝑓 = 𝑔))
42	8, 39, 41	sylc 65	. . . 4 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → 𝑓 = 𝑔)
43	42	3expib 1136	. . 3 ⊢ (𝑛 ∈ 𝐷 → ((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
44	43	alrimivv 1950	. 2 ⊢ (𝑛 ∈ 𝐷 → ∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
45		sbsbc 3750	. . . . . 6 ⊢ ([𝑔 / 𝑓]𝜒 ↔ [𝑔 / 𝑓]𝜒)
46	45	anbi2i 632	. . . . 5 ⊢ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) ↔ (𝜒 ∧ [𝑔 / 𝑓]𝜒))
47	46	imbi1i 351	. . . 4 ⊢ (((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔) ↔ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
48	47	2albii 1842	. . 3 ⊢ (∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔) ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
49		nfv 1936	. . . 4 ⊢ Ⅎ𝑔𝜒
50	49	mo3 2593	. . 3 ⊢ (∃*𝑓𝜒 ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
51	5	anbi2i 632	. . . . 5 ⊢ ((𝜒 ∧ 𝜒′) ↔ (𝜒 ∧ [𝑔 / 𝑓]𝜒))
52	51	imbi1i 351	. . . 4 ⊢ (((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔) ↔ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
53	52	2albii 1842	. . 3 ⊢ (∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔) ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
54	48, 50, 53	3bitr4i 305	. 2 ⊢ (∃*𝑓𝜒 ↔ ∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
55	44, 54	sylibr 236	1 ⊢ (𝑛 ∈ 𝐷 → ∃*𝑓𝜒)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   ∧ w3a 1099  ∀wal 1560   = wceq 1562  [wsb 2092   ∈ wcel 2144  ∃*wmo 2566  ∀wral 3078  [wsbc 3746   ∖ cdif 3903  ∅c0 4287  {csn 4584  ∪ ciun 4951   class class class wbr 5102   E cep 5548   Fr wfr 5599  Ord word 6347  suc csuc 6350   Fn wfn 6518  ‘cfv 6523  ωcom 7848   predc-bnj14 34986

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1817  ax-4 1831  ax-5 1932  ax-6 1989  ax-7 2030  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2214  ax-ext 2736  ax-sep 5248  ax-nul 5258  ax-pr 5392  ax-un 7720

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1100  df-3an 1101  df-tru 1565  df-fal 1575  df-ex 1802  df-nf 1806  df-sb 2093  df-mo 2568  df-eu 2598  df-clab 2743  df-cleq 2756  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3079  df-rex 3089  df-rab 3417  df-v 3458  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5103  df-opab 5165  df-mpt 5184  df-tr 5210  df-id 5544  df-eprel 5549  df-po 5557  df-so 5558  df-fr 5602  df-we 5604  df-xp 5655  df-rel 5656  df-cnv 5657  df-co 5658  df-dm 5659  df-rn 5660  df-res 5661  df-ima 5662  df-ord 6351  df-on 6352  df-lim 6353  df-suc 6354  df-iota 6479  df-fun 6525  df-fn 6526  df-fv 6531  df-om 7849  df-bnj17 34985

This theorem is referenced by:  bnj579  35211