Theorem hartogslem1 9454

Description: Lemma for hartogs 9456. (Contributed by Mario Carneiro, 14-Jan-2013.) (Revised by Mario Carneiro, 15-May-2015.)

Hypotheses

Ref	Expression
hartogslem.2	⊢ 𝐹 = {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
hartogslem.3	⊢ 𝑅 = {⟨𝑠, 𝑡⟩ ∣ ∃𝑤 ∈ 𝑦 ∃𝑧 ∈ 𝑦 ((𝑠 = (𝑓‘𝑤) ∧ 𝑡 = (𝑓‘𝑧)) ∧ 𝑤 E 𝑧)}

Assertion

Ref	Expression
hartogslem1	⊢ (dom 𝐹 ⊆ 𝒫 (𝐴 × 𝐴) ∧ Fun 𝐹 ∧ (𝐴 ∈ 𝑉 → ran 𝐹 = {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴}))

Distinct variable groups:   𝑓,𝑠,𝑡,𝑤,𝑦,𝑧   𝑓,𝑟,𝑥,𝐴,𝑦   𝑅,𝑟,𝑥   𝑉,𝑟,𝑦

Allowed substitution hints:   𝐴(𝑧,𝑤,𝑡,𝑠)   𝑅(𝑦,𝑧,𝑤,𝑡,𝑓,𝑠)   𝐹(𝑥,𝑦,𝑧,𝑤,𝑡,𝑓,𝑠,𝑟)   𝑉(𝑥,𝑧,𝑤,𝑡,𝑓,𝑠)

Proof of Theorem hartogslem1

Step	Hyp	Ref	Expression
1		hartogslem.2	. . . . 5 ⊢ 𝐹 = {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
2	1	dmeqi 5853	. . . 4 ⊢ dom 𝐹 = dom {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
3		dmopab 5864	. . . 4 ⊢ dom {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))} = {𝑟 ∣ ∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
4	2, 3	eqtri 2763	. . 3 ⊢ dom 𝐹 = {𝑟 ∣ ∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
5		simp3 1144	. . . . . . . 8 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → 𝑟 ⊆ (dom 𝑟 × dom 𝑟))
6		simp1 1142	. . . . . . . . 9 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → dom 𝑟 ⊆ 𝐴)
7		xpss12 5640	. . . . . . . . 9 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ dom 𝑟 ⊆ 𝐴) → (dom 𝑟 × dom 𝑟) ⊆ (𝐴 × 𝐴))
8	6, 6, 7	syl2anc 590	. . . . . . . 8 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → (dom 𝑟 × dom 𝑟) ⊆ (𝐴 × 𝐴))
9	5, 8	sstrd 3932	. . . . . . 7 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → 𝑟 ⊆ (𝐴 × 𝐴))
10		velpw 4541	. . . . . . 7 ⊢ (𝑟 ∈ 𝒫 (𝐴 × 𝐴) ↔ 𝑟 ⊆ (𝐴 × 𝐴))
11	9, 10	sylibr 235	. . . . . 6 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → 𝑟 ∈ 𝒫 (𝐴 × 𝐴))
12	11	ad2antrr 732	. . . . 5 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑟 ∈ 𝒫 (𝐴 × 𝐴))
13	12	exlimiv 1937	. . . 4 ⊢ (∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑟 ∈ 𝒫 (𝐴 × 𝐴))
14	13	abssi 4006	. . 3 ⊢ {𝑟 ∣ ∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))} ⊆ 𝒫 (𝐴 × 𝐴)
15	4, 14	eqsstri 3968	. 2 ⊢ dom 𝐹 ⊆ 𝒫 (𝐴 × 𝐴)
16		funopab4 6529	. . 3 ⊢ Fun {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
17	1	funeqi 6513	. . 3 ⊢ (Fun 𝐹 ↔ Fun {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))})
18	16, 17	mpbir 232	. 2 ⊢ Fun 𝐹
19	1	rneqi 5886	. . . 4 ⊢ ran 𝐹 = ran {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
20		rnopab 5903	. . . 4 ⊢ ran {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))} = {𝑦 ∣ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
21	19, 20	eqtri 2763	. . 3 ⊢ ran 𝐹 = {𝑦 ∣ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
22		breq1 5082	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑥 ≼ 𝐴 ↔ 𝑦 ≼ 𝐴))
23	22	elrab 3636	. . . . 5 ⊢ (𝑦 ∈ {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴} ↔ (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴))
24		f1f 6730	. . . . . . . . . . . . 13 ⊢ (𝑓:𝑦–1-1→𝐴 → 𝑓:𝑦⟶𝐴)
25	24	adantl 482	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓:𝑦⟶𝐴)
26	25	frnd 6670	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ran 𝑓 ⊆ 𝐴)
27		resss 5960	. . . . . . . . . . . . . 14 ⊢ ( I ↾ ran 𝑓) ⊆ I
28		ssun2 4115	. . . . . . . . . . . . . 14 ⊢ I ⊆ (𝑅 ∪ I )
29	27, 28	sstri 3931	. . . . . . . . . . . . 13 ⊢ ( I ↾ ran 𝑓) ⊆ (𝑅 ∪ I )
30		idssxp 6008	. . . . . . . . . . . . 13 ⊢ ( I ↾ ran 𝑓) ⊆ (ran 𝑓 × ran 𝑓)
31	29, 30	ssini 4175	. . . . . . . . . . . 12 ⊢ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓))
32	31	a1i 11	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)))
33		inss2 4173	. . . . . . . . . . . 12 ⊢ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)
34	33	a1i 11	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓))
35	26, 32, 34	3jca 1134	. . . . . . . . . 10 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)))
36		eloni 6327	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ On → Ord 𝑦)
37		ordwe 6330	. . . . . . . . . . . . . 14 ⊢ (Ord 𝑦 → E We 𝑦)
38	36, 37	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ On → E We 𝑦)
39	38	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → E We 𝑦)
40		f1f1orn 6785	. . . . . . . . . . . . . . . 16 ⊢ (𝑓:𝑦–1-1→𝐴 → 𝑓:𝑦–1-1-onto→ran 𝑓)
41	40	adantl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓:𝑦–1-1-onto→ran 𝑓)
42		hartogslem.3	. . . . . . . . . . . . . . 15 ⊢ 𝑅 = {⟨𝑠, 𝑡⟩ ∣ ∃𝑤 ∈ 𝑦 ∃𝑧 ∈ 𝑦 ((𝑠 = (𝑓‘𝑤) ∧ 𝑡 = (𝑓‘𝑧)) ∧ 𝑤 E 𝑧)}
43		f1oiso 7302	. . . . . . . . . . . . . . 15 ⊢ ((𝑓:𝑦–1-1-onto→ran 𝑓 ∧ 𝑅 = {⟨𝑠, 𝑡⟩ ∣ ∃𝑤 ∈ 𝑦 ∃𝑧 ∈ 𝑦 ((𝑠 = (𝑓‘𝑤) ∧ 𝑡 = (𝑓‘𝑧)) ∧ 𝑤 E 𝑧)}) → 𝑓 Isom E , 𝑅 (𝑦, ran 𝑓))
44	41, 42, 43	sylancl 592	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓 Isom E , 𝑅 (𝑦, ran 𝑓))
45		isores2 7284	. . . . . . . . . . . . . 14 ⊢ (𝑓 Isom E , 𝑅 (𝑦, ran 𝑓) ↔ 𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓))
46	44, 45	sylib 219	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓))
47		isowe 7300	. . . . . . . . . . . . 13 ⊢ (𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓) → ( E We 𝑦 ↔ (𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓))
48	46, 47	syl 17	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ( E We 𝑦 ↔ (𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓))
49	39, 48	mpbid 233	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓)
50		weso 5616	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓 → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) Or ran 𝑓)
51	49, 50	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) Or ran 𝑓)
52		inss2 4173	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)
53	52	brel 5690	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥 → (𝑥 ∈ ran 𝑓 ∧ 𝑥 ∈ ran 𝑓))
54	53	simpld 495	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥 → 𝑥 ∈ ran 𝑓)
55		sonr 5557	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 ∩ (ran 𝑓 × ran 𝑓)) Or ran 𝑓 ∧ 𝑥 ∈ ran 𝑓) → ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
56	51, 54, 55	syl2an 602	. . . . . . . . . . . . . . . 16 ⊢ (((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) ∧ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥) → ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
57	56	pm2.01da 804	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
58	57	alrimiv 1934	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ∀𝑥 ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
59		intirr 6075	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∩ I ) = ∅ ↔ ∀𝑥 ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
60	58, 59	sylibr 235	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∩ I ) = ∅)
61		disj3 4389	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∩ I ) = ∅ ↔ (𝑅 ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
62	60, 61	sylib 219	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
63		weeq1 5612	. . . . . . . . . . . 12 ⊢ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓 ↔ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓))
64	62, 63	syl 17	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓 ↔ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓))
65	49, 64	mpbid 233	. . . . . . . . . 10 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓)
66	36	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → Ord 𝑦)
67		isoeq3 7270	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) → (𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓) ↔ 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓)))
68	62, 67	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓) ↔ 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓)))
69	46, 68	mpbid 233	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓))
70		vex 3436	. . . . . . . . . . . . . . 15 ⊢ 𝑓 ∈ V
71	70	rnex 7857	. . . . . . . . . . . . . 14 ⊢ ran 𝑓 ∈ V
72		exse 5585	. . . . . . . . . . . . . 14 ⊢ (ran 𝑓 ∈ V → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) Se ran 𝑓)
73	71, 72	ax-mp 5	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) Se ran 𝑓
74		eqid 2740	. . . . . . . . . . . . . 14 ⊢ OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)
75	74	oieu 9451	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓 ∧ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) Se ran 𝑓) → ((Ord 𝑦 ∧ 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓)) ↔ (𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓) ∧ 𝑓 = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))))
76	65, 73, 75	sylancl 592	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((Ord 𝑦 ∧ 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓)) ↔ (𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓) ∧ 𝑓 = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))))
77	66, 69, 76	mpbi2and 718	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓) ∧ 𝑓 = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)))
78	77	simpld 495	. . . . . . . . . 10 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
79	71, 71	xpex 7703	. . . . . . . . . . . 12 ⊢ (ran 𝑓 × ran 𝑓) ∈ V
80	79	inex2 5253	. . . . . . . . . . 11 ⊢ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∈ V
81		sseq1 3947	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ⊆ (ran 𝑓 × ran 𝑓) ↔ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)))
82	33, 81	mpbiri 259	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → 𝑟 ⊆ (ran 𝑓 × ran 𝑓))
83		dmss 5851	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 ⊆ (ran 𝑓 × ran 𝑓) → dom 𝑟 ⊆ dom (ran 𝑓 × ran 𝑓))
84	82, 83	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom 𝑟 ⊆ dom (ran 𝑓 × ran 𝑓))
85		dmxpid 5879	. . . . . . . . . . . . . . . . 17 ⊢ dom (ran 𝑓 × ran 𝑓) = ran 𝑓
86	84, 85	sseqtrdi 3962	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom 𝑟 ⊆ ran 𝑓)
87		dmresi 6011	. . . . . . . . . . . . . . . . 17 ⊢ dom ( I ↾ ran 𝑓) = ran 𝑓
88		sseq2 3948	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (( I ↾ ran 𝑓) ⊆ 𝑟 ↔ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓))))
89	31, 88	mpbiri 259	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ( I ↾ ran 𝑓) ⊆ 𝑟)
90		dmss 5851	. . . . . . . . . . . . . . . . . 18 ⊢ (( I ↾ ran 𝑓) ⊆ 𝑟 → dom ( I ↾ ran 𝑓) ⊆ dom 𝑟)
91	89, 90	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom ( I ↾ ran 𝑓) ⊆ dom 𝑟)
92	87, 91	eqsstrrid 3961	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ran 𝑓 ⊆ dom 𝑟)
93	86, 92	eqssd 3939	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom 𝑟 = ran 𝑓)
94	93	sseq1d 3953	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (dom 𝑟 ⊆ 𝐴 ↔ ran 𝑓 ⊆ 𝐴))
95	93	reseq2d 5938	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ( I ↾ dom 𝑟) = ( I ↾ ran 𝑓))
96		id 22	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → 𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)))
97	95, 96	sseq12d 3955	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (( I ↾ dom 𝑟) ⊆ 𝑟 ↔ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓))))
98	93	sqxpeqd 5657	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (dom 𝑟 × dom 𝑟) = (ran 𝑓 × ran 𝑓))
99	96, 98	sseq12d 3955	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ⊆ (dom 𝑟 × dom 𝑟) ↔ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)))
100	94, 97, 99	3anbi123d 1444	. . . . . . . . . . . . 13 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ↔ (ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓))))
101		difeq1 4057	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ∖ I ) = (((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
102		difun2 4416	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∪ I ) ∖ I ) = (𝑅 ∖ I )
103	102	ineq1i 4152	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∪ I ) ∖ I ) ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∖ I ) ∩ (ran 𝑓 × ran 𝑓))
104		indif1 4217	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∪ I ) ∖ I ) ∩ (ran 𝑓 × ran 𝑓)) = (((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∖ I )
105		indif1 4217	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∖ I ) ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )
106	103, 104, 105	3eqtr3i 2771	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )
107	101, 106	eqtrdi 2791	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ∖ I ) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
108	107, 93	weeq12d 5614	. . . . . . . . . . . . 13 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ((𝑟 ∖ I ) We dom 𝑟 ↔ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓))
109	100, 108	anbi12d 638	. . . . . . . . . . . 12 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ↔ ((ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓)))
110		oieq1 9424	. . . . . . . . . . . . . . . 16 ⊢ ((𝑟 ∖ I ) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) → OrdIso((𝑟 ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), dom 𝑟))
111	107, 110	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → OrdIso((𝑟 ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), dom 𝑟))
112		oieq2 9425	. . . . . . . . . . . . . . . 16 ⊢ (dom 𝑟 = ran 𝑓 → OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
113	93, 112	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
114	111, 113	eqtrd 2775	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → OrdIso((𝑟 ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
115	114	dmeqd 5854	. . . . . . . . . . . . 13 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom OrdIso((𝑟 ∖ I ), dom 𝑟) = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
116	115	eqeq2d 2751	. . . . . . . . . . . 12 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟) ↔ 𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)))
117	109, 116	anbi12d 638	. . . . . . . . . . 11 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) ↔ (((ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓) ∧ 𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))))
118	80, 117	spcev 3551	. . . . . . . . . 10 ⊢ ((((ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓) ∧ 𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)) → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)))
119	35, 65, 78, 118	syl21anc 843	. . . . . . . . 9 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)))
120	119	ex 413	. . . . . . . 8 ⊢ (𝑦 ∈ On → (𝑓:𝑦–1-1→𝐴 → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
121	120	exlimdv 1940	. . . . . . 7 ⊢ (𝑦 ∈ On → (∃𝑓 𝑓:𝑦–1-1→𝐴 → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
122		brdomi 8903	. . . . . . 7 ⊢ (𝑦 ≼ 𝐴 → ∃𝑓 𝑓:𝑦–1-1→𝐴)
123	121, 122	impel 510	. . . . . 6 ⊢ ((𝑦 ∈ On ∧ 𝑦 ≼ 𝐴) → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)))
124		simpr 485	. . . . . . . . . . 11 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))
125		vex 3436	. . . . . . . . . . . . 13 ⊢ 𝑟 ∈ V
126	125	dmex 7856	. . . . . . . . . . . 12 ⊢ dom 𝑟 ∈ V
127		eqid 2740	. . . . . . . . . . . . 13 ⊢ OrdIso((𝑟 ∖ I ), dom 𝑟) = OrdIso((𝑟 ∖ I ), dom 𝑟)
128	127	oion 9448	. . . . . . . . . . . 12 ⊢ (dom 𝑟 ∈ V → dom OrdIso((𝑟 ∖ I ), dom 𝑟) ∈ On)
129	126, 128	ax-mp 5	. . . . . . . . . . 11 ⊢ dom OrdIso((𝑟 ∖ I ), dom 𝑟) ∈ On
130	124, 129	eqeltrdi 2848	. . . . . . . . . 10 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑦 ∈ On)
131	130	adantl 482	. . . . . . . . 9 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → 𝑦 ∈ On)
132		simplr 774	. . . . . . . . . . . 12 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → (𝑟 ∖ I ) We dom 𝑟)
133	127	oien 9450	. . . . . . . . . . . 12 ⊢ ((dom 𝑟 ∈ V ∧ (𝑟 ∖ I ) We dom 𝑟) → dom OrdIso((𝑟 ∖ I ), dom 𝑟) ≈ dom 𝑟)
134	126, 132, 133	sylancr 593	. . . . . . . . . . 11 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → dom OrdIso((𝑟 ∖ I ), dom 𝑟) ≈ dom 𝑟)
135	124, 134	eqbrtrd 5101	. . . . . . . . . 10 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑦 ≈ dom 𝑟)
136		ssdomg 8944	. . . . . . . . . . 11 ⊢ (𝐴 ∈ 𝑉 → (dom 𝑟 ⊆ 𝐴 → dom 𝑟 ≼ 𝐴))
137		simpll1 1219	. . . . . . . . . . 11 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → dom 𝑟 ⊆ 𝐴)
138	136, 137	impel 510	. . . . . . . . . 10 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → dom 𝑟 ≼ 𝐴)
139		endomtr 8956	. . . . . . . . . 10 ⊢ ((𝑦 ≈ dom 𝑟 ∧ dom 𝑟 ≼ 𝐴) → 𝑦 ≼ 𝐴)
140	135, 138, 139	syl2an2 692	. . . . . . . . 9 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → 𝑦 ≼ 𝐴)
141	131, 140	jca 516	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴))
142	141	ex 413	. . . . . . 7 ⊢ (𝐴 ∈ 𝑉 → ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴)))
143	142	exlimdv 1940	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → (∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴)))
144	123, 143	impbid2 227	. . . . 5 ⊢ (𝐴 ∈ 𝑉 → ((𝑦 ∈ On ∧ 𝑦 ≼ 𝐴) ↔ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
145	23, 144	bitrid 284	. . . 4 ⊢ (𝐴 ∈ 𝑉 → (𝑦 ∈ {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴} ↔ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
146	145	eqabdv 2873	. . 3 ⊢ (𝐴 ∈ 𝑉 → {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴} = {𝑦 ∣ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))})
147	21, 146	eqtr4id 2794	. 2 ⊢ (𝐴 ∈ 𝑉 → ran 𝐹 = {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴})
148	15, 18, 147	3pm3.2i 1346	1 ⊢ (dom 𝐹 ⊆ 𝒫 (𝐴 × 𝐴) ∧ Fun 𝐹 ∧ (𝐴 ∈ 𝑉 → ran 𝐹 = {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴}))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1092  ∀wal 1545   = wceq 1547  ∃wex 1786   ∈ wcel 2119  {cab 2718  ∃wrex 3064  {crab 3392  Vcvv 3432   ∖ cdif 3887   ∪ cun 3888   ∩ cin 3889   ⊆ wss 3890  ∅c0 4268  𝒫 cpw 4536   class class class wbr 5079  {copab 5141   I cid 5519   E cep 5524   Or wor 5532   Se wse 5576   We wwe 5577   × cxp 5623  dom cdm 5625  ran crn 5626   ↾ cres 5627  Ord word 6316  Oncon0 6317  Fun wfun 6486  ⟶wf 6488  –1-1→wf1 6489  –1-1-onto→wf1o 6491  ‘cfv 6492   Isom wiso 6493   ≈ cen 8887   ≼ cdom 8888  OrdIsocoi 9421

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-rep 5206  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-iun 4930  df-br 5080  df-opab 5142  df-mpt 5161  df-tr 5187  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501  df-riota 7320  df-ov 7366  df-2nd 7939  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-en 8891  df-dom 8892  df-oi 9422

This theorem is referenced by:  hartogslem2  9455  harwdom  9503