Theorem bnj580 34927

Description: Technical lemma for bnj579 34928. 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 34922	. . . . . . 7 ⊢ (𝜒′ ↔ (𝑔 Fn 𝑛 ∧ 𝜑′ ∧ 𝜓′))
7	6	simp1bi 1146	. . . . . 6 ⊢ (𝜒′ → 𝑔 Fn 𝑛)
8	2, 7	bnj240 34713	. . . . 5 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓 Fn 𝑛 ∧ 𝑔 Fn 𝑛))
9		bnj580.1	. . . . . . . . . . . . 13 ⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
10		bnj580.2	. . . . . . . . . . . . 13 ⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
11		bnj580.7	. . . . . . . . . . . . 13 ⊢ 𝐷 = (ω ∖ {∅})
12	3, 9	bnj154 34892	. . . . . . . . . . . . 13 ⊢ (𝜑′ ↔ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅))
13		vex 3484	. . . . . . . . . . . . . 14 ⊢ 𝑔 ∈ V
14	10, 4, 13	bnj540 34906	. . . . . . . . . . . . 13 ⊢ (𝜓′ ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅)))
15		bnj580.8	. . . . . . . . . . . . 13 ⊢ (𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
16	15	bnj591 34925	. . . . . . . . . . . . 13 ⊢ ([𝑘 / 𝑗]𝜃 ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑘) = (𝑔‘𝑘)))
17		bnj580.9	. . . . . . . . . . . . 13 ⊢ (𝜏 ↔ ∀𝑘 ∈ 𝑛 (𝑘 E 𝑗 → [𝑘 / 𝑗]𝜃))
18	9, 10, 1, 11, 12, 14, 6, 15, 16, 17	bnj594 34926	. . . . . . . . . . . 12 ⊢ ((𝑗 ∈ 𝑛 ∧ 𝜏) → 𝜃)
19	18	ex 412	. . . . . . . . . . 11 ⊢ (𝑗 ∈ 𝑛 → (𝜏 → 𝜃))
20	19	rgen 3063	. . . . . . . . . 10 ⊢ ∀𝑗 ∈ 𝑛 (𝜏 → 𝜃)
21		vex 3484	. . . . . . . . . . 11 ⊢ 𝑛 ∈ V
22	21, 17	bnj110 34872	. . . . . . . . . 10 ⊢ (( E Fr 𝑛 ∧ ∀𝑗 ∈ 𝑛 (𝜏 → 𝜃)) → ∀𝑗 ∈ 𝑛 𝜃)
23	20, 22	mpan2 691	. . . . . . . . 9 ⊢ ( E Fr 𝑛 → ∀𝑗 ∈ 𝑛 𝜃)
24	15	ralbii 3093	. . . . . . . . 9 ⊢ (∀𝑗 ∈ 𝑛 𝜃 ↔ ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
25	23, 24	sylib 218	. . . . . . . 8 ⊢ ( E Fr 𝑛 → ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
26	25	r19.21be 3252	. . . . . . 7 ⊢ ∀𝑗 ∈ 𝑛 ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)))
27	11	bnj923 34782	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ 𝐷 → 𝑛 ∈ ω)
28		nnord 7895	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ω → Ord 𝑛)
29		ordfr 6399	. . . . . . . . . . . . 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 3093	. . . . . . 7 ⊢ (∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ∀𝑗 ∈ 𝑛 ( E Fr 𝑛 → ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))))
37	26, 36	mpbir 231	. . . . . 6 ⊢ ∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗))
38		r19.21v 3180	. . . . . 6 ⊢ (∀𝑗 ∈ 𝑛 ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → (𝑓‘𝑗) = (𝑔‘𝑗)) ↔ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗)))
39	37, 38	mpbi 230	. . . . 5 ⊢ ((𝑛 ∈ 𝐷 ∧ 𝜒 ∧ 𝜒′) → ∀𝑗 ∈ 𝑛 (𝑓‘𝑗) = (𝑔‘𝑗))
40		eqfnfv 7051	. . . . . 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 1928	. 2 ⊢ (𝑛 ∈ 𝐷 → ∀𝑓∀𝑔((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔))
45		sbsbc 3792	. . . . . 6 ⊢ ([𝑔 / 𝑓]𝜒 ↔ [𝑔 / 𝑓]𝜒)
46	45	anbi2i 623	. . . . 5 ⊢ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) ↔ (𝜒 ∧ [𝑔 / 𝑓]𝜒))
47	46	imbi1i 349	. . . 4 ⊢ (((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔) ↔ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
48	47	2albii 1820	. . 3 ⊢ (∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔) ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
49		nfv 1914	. . . 4 ⊢ Ⅎ𝑔𝜒
50	49	mo3 2564	. . 3 ⊢ (∃*𝑓𝜒 ↔ ∀𝑓∀𝑔((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
51	5	anbi2i 623	. . . . 5 ⊢ ((𝜒 ∧ 𝜒′) ↔ (𝜒 ∧ [𝑔 / 𝑓]𝜒))
52	51	imbi1i 349	. . . 4 ⊢ (((𝜒 ∧ 𝜒′) → 𝑓 = 𝑔) ↔ ((𝜒 ∧ [𝑔 / 𝑓]𝜒) → 𝑓 = 𝑔))
53	52	2albii 1820	. . 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 1538   = wceq 1540  [wsb 2064   ∈ wcel 2108  ∃*wmo 2538  ∀wral 3061  [wsbc 3788   ∖ cdif 3948  ∅c0 4333  {csn 4626  ∪ ciun 4991   class class class wbr 5143   E cep 5583   Fr wfr 5634  Ord word 6383  suc csuc 6386   Fn wfn 6556  ‘cfv 6561  ωcom 7887   predc-bnj14 34702

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 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-sep 5296  ax-nul 5306  ax-pr 5432  ax-un 7755

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-ral 3062  df-rex 3071  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4908  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-ord 6387  df-on 6388  df-lim 6389  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-fv 6569  df-om 7888  df-bnj17 34701

This theorem is referenced by:  bnj579  34928