Theorem bnj153 32152

Description: Technical lemma for bnj852 32193. 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
bnj153.1	⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
bnj153.2	⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
bnj153.3	⊢ 𝐷 = (ω ∖ {∅})
bnj153.4	⊢ (𝜃 ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
bnj153.5	⊢ (𝜏 ↔ ∀𝑚 ∈ 𝐷 (𝑚 E 𝑛 → [𝑚 / 𝑛]𝜃))

Assertion

Ref	Expression
bnj153	⊢ (𝑛 = 1o → ((𝑛 ∈ 𝐷 ∧ 𝜏) → 𝜃))

Distinct variable groups:   𝐴,𝑓,𝑖,𝑥,𝑦,𝑛   𝑅,𝑓,𝑖,𝑥,𝑦,𝑛   𝑚,𝑛

Allowed substitution hints:   𝜑(𝑥,𝑦,𝑓,𝑖,𝑚,𝑛)   𝜓(𝑥,𝑦,𝑓,𝑖,𝑚,𝑛)   𝜃(𝑥,𝑦,𝑓,𝑖,𝑚,𝑛)   𝜏(𝑥,𝑦,𝑓,𝑖,𝑚,𝑛)   𝐴(𝑚)   𝐷(𝑥,𝑦,𝑓,𝑖,𝑚,𝑛)   𝑅(𝑚)

Proof of Theorem bnj153

Dummy variable 𝑔 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		bnj153.1	. 2 ⊢ (𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
2		bnj153.2	. 2 ⊢ (𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 𝑛 → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
3		bnj153.3	. 2 ⊢ 𝐷 = (ω ∖ {∅})
4		bnj153.4	. 2 ⊢ (𝜃 ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃!𝑓(𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
5		bnj153.5	. 2 ⊢ (𝜏 ↔ ∀𝑚 ∈ 𝐷 (𝑚 E 𝑛 → [𝑚 / 𝑛]𝜃))
6		biid 263	. 2 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
7		biid 263	. . . 4 ⊢ ([1o / 𝑛]𝜑 ↔ [1o / 𝑛]𝜑)
8	1, 7	bnj118 32141	. . 3 ⊢ ([1o / 𝑛]𝜑 ↔ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
9	8	bicomi 226	. 2 ⊢ ((𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ↔ [1o / 𝑛]𝜑)
10		bnj105 31994	. . . 4 ⊢ 1o ∈ V
11	2, 10	bnj92 32134	. . 3 ⊢ ([1o / 𝑛]𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
12	11	bicomi 226	. 2 ⊢ (∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)) ↔ [1o / 𝑛]𝜓)
13		biid 263	. 2 ⊢ ([1o / 𝑛]𝜃 ↔ [1o / 𝑛]𝜃)
14		biid 263	. 2 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃𝑓(𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
15		biid 263	. 2 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃*𝑓(𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ∃*𝑓(𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
16		biid 263	. . . . 5 ⊢ ([1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ [1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
17		biid 263	. . . . 5 ⊢ ([1o / 𝑛]𝜓 ↔ [1o / 𝑛]𝜓)
18	6, 16, 7, 17	bnj121 32142	. . . 4 ⊢ ([1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓)))
19	8	anbi2i 624	. . . . . . 7 ⊢ ((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑) ↔ (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅)))
20	19, 11	anbi12i 628	. . . . . 6 ⊢ (((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑) ∧ [1o / 𝑛]𝜓) ↔ ((𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
21		df-3an 1085	. . . . . 6 ⊢ ((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ ((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑) ∧ [1o / 𝑛]𝜓))
22		df-3an 1085	. . . . . 6 ⊢ ((𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))) ↔ ((𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
23	20, 21, 22	3bitr4i 305	. . . . 5 ⊢ ((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
24	23	imbi2i 338	. . . 4 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
25	18, 24	bitri 277	. . 3 ⊢ ([1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
26	25	bicomi 226	. 2 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))) ↔ [1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
27		eqid 2821	. 2 ⊢ {⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} = {⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}
28		biid 263	. 2 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓](𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓](𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
29		biid 263	. 2 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓]∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)) ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓]∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
30	26	sbcbii 3828	. . 3 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))) ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
31		biid 263	. . . . 5 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑)
32		biid 263	. . . . 5 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓 ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓)
33		biid 263	. . . . 5 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)))
34	27, 31, 32, 33, 18	bnj124 32143	. . . 4 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓)))
35	1, 7, 31, 27	bnj125 32144	. . . . . . . 8 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ↔ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅))
36	35	anbi2i 624	. . . . . . 7 ⊢ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑) ↔ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅)))
37	2, 17, 32, 27	bnj126 32145	. . . . . . 7 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅)))
38	36, 37	anbi12i 628	. . . . . 6 ⊢ ((({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑) ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓) ↔ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅))))
39		df-3an 1085	. . . . . 6 ⊢ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓) ↔ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑) ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓))
40		df-3an 1085	. . . . . 6 ⊢ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅))) ↔ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅))))
41	38, 39, 40	3bitr4i 305	. . . . 5 ⊢ (({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓) ↔ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅))))
42	41	imbi2i 338	. . . 4 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜑 ∧ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
43	34, 42	bitri 277	. . 3 ⊢ ([{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓][1o / 𝑛]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 𝑛 ∧ 𝜑 ∧ 𝜓)) ↔ ((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
44	30, 43	bitr2i 278	. 2 ⊢ (((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} Fn 1o ∧ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘suc 𝑖) = ∪ 𝑦 ∈ ({⟨∅, pred(𝑥, 𝐴, 𝑅)⟩}‘𝑖) pred(𝑦, 𝐴, 𝑅)))) ↔ [{⟨∅, pred(𝑥, 𝐴, 𝑅)⟩} / 𝑓]((𝑅 FrSe 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))))
45		biid 263	. 2 ⊢ ((𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))) ↔ (𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
46		biid 263	. . . . 5 ⊢ ((𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ (𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓))
47		biid 263	. . . . 5 ⊢ ([𝑔 / 𝑓](𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ [𝑔 / 𝑓](𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓))
48		biid 263	. . . . 5 ⊢ ([𝑔 / 𝑓][1o / 𝑛]𝜑 ↔ [𝑔 / 𝑓][1o / 𝑛]𝜑)
49		biid 263	. . . . 5 ⊢ ([𝑔 / 𝑓][1o / 𝑛]𝜓 ↔ [𝑔 / 𝑓][1o / 𝑛]𝜓)
50	46, 47, 48, 49	bnj156 31998	. . . 4 ⊢ ([𝑔 / 𝑓](𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ (𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑 ∧ [𝑔 / 𝑓][1o / 𝑛]𝜓))
51	48, 8	bnj154 32150	. . . . . . 7 ⊢ ([𝑔 / 𝑓][1o / 𝑛]𝜑 ↔ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅))
52	51	anbi2i 624	. . . . . 6 ⊢ ((𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑) ↔ (𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅)))
53	17, 11	bitri 277	. . . . . . 7 ⊢ ([1o / 𝑛]𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
54	49, 53	bnj155 32151	. . . . . 6 ⊢ ([𝑔 / 𝑓][1o / 𝑛]𝜓 ↔ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅)))
55	52, 54	anbi12i 628	. . . . 5 ⊢ (((𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑) ∧ [𝑔 / 𝑓][1o / 𝑛]𝜓) ↔ ((𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))))
56		df-3an 1085	. . . . 5 ⊢ ((𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑 ∧ [𝑔 / 𝑓][1o / 𝑛]𝜓) ↔ ((𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑) ∧ [𝑔 / 𝑓][1o / 𝑛]𝜓))
57		df-3an 1085	. . . . 5 ⊢ ((𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))) ↔ ((𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅)) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))))
58	55, 56, 57	3bitr4i 305	. . . 4 ⊢ ((𝑔 Fn 1o ∧ [𝑔 / 𝑓][1o / 𝑛]𝜑 ∧ [𝑔 / 𝑓][1o / 𝑛]𝜓) ↔ (𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))))
59	50, 58	bitri 277	. . 3 ⊢ ([𝑔 / 𝑓](𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ (𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))))
60	23	sbcbii 3828	. . 3 ⊢ ([𝑔 / 𝑓](𝑓 Fn 1o ∧ [1o / 𝑛]𝜑 ∧ [1o / 𝑛]𝜓) ↔ [𝑔 / 𝑓](𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
61	59, 60	bitr3i 279	. 2 ⊢ ((𝑔 Fn 1o ∧ (𝑔‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑔‘suc 𝑖) = ∪ 𝑦 ∈ (𝑔‘𝑖) pred(𝑦, 𝐴, 𝑅))) ↔ [𝑔 / 𝑓](𝑓 Fn 1o ∧ (𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ∧ ∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅))))
62		biid 263	. 2 ⊢ ([𝑔 / 𝑓](𝑓‘∅) = pred(𝑥, 𝐴, 𝑅) ↔ [𝑔 / 𝑓](𝑓‘∅) = pred(𝑥, 𝐴, 𝑅))
63		biid 263	. 2 ⊢ ([𝑔 / 𝑓]∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)) ↔ [𝑔 / 𝑓]∀𝑖 ∈ ω (suc 𝑖 ∈ 1o → (𝑓‘suc 𝑖) = ∪ 𝑦 ∈ (𝑓‘𝑖) pred(𝑦, 𝐴, 𝑅)))
64	1, 2, 3, 4, 5, 6, 9, 12, 13, 14, 15, 26, 27, 28, 29, 44, 45, 61, 62, 63	bnj151 32149	1 ⊢ (𝑛 = 1o → ((𝑛 ∈ 𝐷 ∧ 𝜏) → 𝜃))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083   = wceq 1533  ∃wex 1776   ∈ wcel 2110  ∃*wmo 2616  ∃!weu 2649  ∀wral 3138  [wsbc 3771   ∖ cdif 3932  ∅c0 4290  {csn 4566  ⟨cop 4572  ∪ ciun 4918   class class class wbr 5065   E cep 5463  suc csuc 6192   Fn wfn 6349  ‘cfv 6354  ωcom 7579  1_oc1o 8094   predc-bnj14 31958   FrSe w-bnj15 31962

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793  ax-sep 5202  ax-nul 5209  ax-pow 5265  ax-pr 5329

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3496  df-sbc 3772  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-nul 4291  df-if 4467  df-pw 4540  df-sn 4567  df-pr 4569  df-op 4573  df-uni 4838  df-iun 4920  df-br 5066  df-opab 5128  df-mpt 5146  df-id 5459  df-xp 5560  df-rel 5561  df-cnv 5562  df-co 5563  df-dm 5564  df-rn 5565  df-suc 6196  df-iota 6313  df-fun 6356  df-fn 6357  df-f 6358  df-f1 6359  df-fo 6360  df-f1o 6361  df-fv 6362  df-1o 8101  df-bnj13 31961  df-bnj15 31963

This theorem is referenced by:  bnj852  32193