Theorem bnj580 35095

Description: Technical lemma for bnj579 35096. 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 1146	. . . . . 6 ⊢ (𝜒 → 𝑓 Fn 𝑛)
3		bnj580.4	. . . . . . . 8 ⊢ (𝜑′ ↔ [𝑔 / 𝑓]𝜑)
4		bnj580.5	. . . . . . . 8 ⊢ (𝜓′ ↔ [𝑔 / 𝑓]𝜓)
5		bnj580.6	. . . . . . . 8 ⊢ (𝜒′ ↔ [𝑔 / 𝑓]𝜒)
6	1, 3, 4, 5	bnj581 35090	. . . . . . 7 ⊢ (𝜒′ ↔ (𝑔 Fn 𝑛 ∧ 𝜑′ ∧ 𝜓′))
7	6	simp1bi 1146	. . . . . 6 ⊢ (𝜒′ → 𝑔 Fn 𝑛)
8	2, 7	bnj240 34882	. . . . 5 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛))
9		bnj580.1	. . . . . . . . . . . . 13 ⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
10		bnj580.2	. . . . . . . . . . . . 13 ⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
11		bnj580.7	. . . . . . . . . . . . 13 ⊢ 𝐷 = (ω ∖ {∅})
12	3, 9	bnj154 35060	. . . . . . . . . . . . 13 ⊢ (𝜑′ ↔ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅))
13		vex 3446	. . . . . . . . . . . . . 14 ⊢ 𝑔 ∈ V
14	10, 4, 13	bnj540 35074	. . . . . . . . . . . . 13 ⊢ (𝜓′ ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅)))
15		bnj580.8	. . . . . . . . . . . . 13 ⊢ (𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
16	15	bnj591 35093	. . . . . . . . . . . . 13 ⊢ ([𝑘 / 𝑗]𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑘) = (𝑔‘𝑘)))
17		bnj580.9	. . . . . . . . . . . . 13 ⊢ (𝜏 ↔ ∀𝑘 ∈ 𝑛 (𝑘 E 𝑗 → [𝑘 / 𝑗]𝜃))
18	9, 10, 1, 11, 12, 14, 6, 15, 16, 17	bnj594 35094	. . . . . . . . . . . 12 ⊢ ((𝑗 ∈ 𝑛 ∧ 𝜏) → 𝜃)
19	18	ex 412	. . . . . . . . . . 11 ⊢ (𝑗 ∈ 𝑛 → (𝜏 → 𝜃))
20	19	rgen 3054	. . . . . . . . . 10 ⊢ ∀𝑗 ∈ 𝑛 (𝜏 → 𝜃)
21		vex 3446	. . . . . . . . . . 11 ⊢ 𝑛 ∈ V
22	21, 17	bnj110 35040	. . . . . . . . . 10 ⊢ (( E Fr 𝑛 ∧ ∀𝑗 ∈ 𝑛 (𝜏 → 𝜃)) → ∀𝑗 ∈ 𝑛 𝜃)
23	20, 22	mpan2 692	. . . . . . . . 9 ⊢ ( E Fr 𝑛 → ∀𝑗 ∈ 𝑛 𝜃)
24	15	ralbii 3084	. . . . . . . . 9 ⊢ (∀𝑗 ∈ 𝑛 𝜃 ↔ ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
25	23, 24	sylib 218	. . . . . . . 8 ⊢ ( E Fr 𝑛 → ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
26	25	r19.21be 3231	. . . . . . 7 ⊢ ∀𝑗 ∈ 𝑛 ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
27	11	bnj923 34951	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ 𝐷 → 𝑛 ∈ ω)
28		nnord 7828	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ω → Ord 𝑛)
29		ordfr 6342	. . . . . . . . . . . . 13 ⊢ (Ord 𝑛 → E Fr 𝑛)
30	27, 28, 29	3syl 18	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ 𝐷 → E Fr 𝑛)
31	30	3ad2ant1 1134	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → E Fr 𝑛)
32	31	pm4.71ri 560	. . . . . . . . . 10 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) ↔ ( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)))
33	32	imbi1i 349	. . . . . . . . 9 ⊢ (((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ (( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)) → (𝑓‘𝑗) = (𝑔‘𝑗)))
34		impexp 450	. . . . . . . . 9 ⊢ ((( E Fr 𝑛 ∧ (𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′)) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
35	33, 34	bitri 275	. . . . . . . 8 ⊢ (((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
36	35	ralbii 3084	. . . . . . 7 ⊢ (∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ∀𝑗 ∈ 𝑛 ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
37	26, 36	mpbir 231	. . . . . 6 ⊢ ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))
38		r19.21v 3163	. . . . . 6 ⊢ (∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗)))
39	37, 38	mpbi 230	. . . . 5 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗))
40		eqfnfv 6987	. . . . . 6 ⊢ ((𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛) → (𝑓 = 𝑔 ↔ ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗)))
41	40	biimprd 248	. . . . 5 ⊢ ((𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛) → (∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗) → 𝑓 = 𝑔))
42	8, 39, 41	sylc 65	. . . 4 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → 𝑓 = 𝑔)
43	42	3expib 1123	. . 3 ⊢ (𝑛 ∈ 𝐷 → ((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
44	43	alrimivv 1930	. 2 ⊢ (𝑛 ∈ 𝐷 → ∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
45		sbsbc 3746	. . . . . 6 ⊢ ([𝑔 / 𝑓]𝜒 ↔ [𝑔 / 𝑓]𝜒)
46	45	anbi2i 624	. . . . 5 ⊢ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) ↔ (𝜒 ∧ [𝑔 / 𝑓]𝜒))
47	46	imbi1i 349	. . . 4 ⊢ (((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔) ↔ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
48	47	2albii 1822	. . 3 ⊢ (∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔) ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
49		nfv 1916	. . . 4 ⊢ Ⅎ𝑔𝜒
50	49	mo3 2565	. . 3 ⊢ (∃*𝑓𝜒 ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
51	5	anbi2i 624	. . . . 5 ⊢ ((𝜒 ∧ 𝜒′) ↔ (𝜒 ∧ [𝑔 / 𝑓]𝜒))
52	51	imbi1i 349	. . . 4 ⊢ (((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔) ↔ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
53	52	2albii 1822	. . 3 ⊢ (∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔) ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
54	48, 50, 53	3bitr4i 303	. 2 ⊢ (∃*𝑓𝜒 ↔ ∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
55	44, 54	sylibr 234	1 ⊢ (𝑛 ∈ 𝐷 → ∃*𝑓𝜒)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087  ∀wal 1540   = wceq 1542  [wsb 2068   ∈ wcel 2114  ∃*wmo 2538  ∀wral 3052  [wsbc 3742   ∖ cdif 3900  ∅c0 4287  {csn 4582  ∪ ciun 4948   class class class wbr 5100   E cep 5533   Fr wfr 5584  Ord word 6326  suc csuc 6329   Fn wfn 6497  ‘cfv 6502  ωcom 7820   predc-bnj14 34871

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5245  ax-nul 5255  ax-pr 5381  ax-un 7692

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5529  df-eprel 5534  df-po 5542  df-so 5543  df-fr 5587  df-we 5589  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-ord 6330  df-on 6331  df-lim 6332  df-suc 6333  df-iota 6458  df-fun 6504  df-fn 6505  df-fv 6510  df-om 7821  df-bnj17 34870

This theorem is referenced by:  bnj579  35096