Theorem hartogslem1 9554

Description: Lemma for hartogs 9556. (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 5884	. . . 4 ⊢ dom 𝐹 = dom {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
3		dmopab 5895	. . . 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 2758	. . 3 ⊢ dom 𝐹 = {𝑟 ∣ ∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
5		simp3 1138	. . . . . . . 8 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → 𝑟 ⊆ (dom 𝑟 × dom 𝑟))
6		simp1 1136	. . . . . . . . 9 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → dom 𝑟 ⊆ 𝐴)
7		xpss12 5669	. . . . . . . . 9 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ dom 𝑟 ⊆ 𝐴) → (dom 𝑟 × dom 𝑟) ⊆ (𝐴 × 𝐴))
8	6, 6, 7	syl2anc 584	. . . . . . . 8 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → (dom 𝑟 × dom 𝑟) ⊆ (𝐴 × 𝐴))
9	5, 8	sstrd 3969	. . . . . . 7 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → 𝑟 ⊆ (𝐴 × 𝐴))
10		velpw 4580	. . . . . . 7 ⊢ (𝑟 ∈ 𝒫 (𝐴 × 𝐴) ↔ 𝑟 ⊆ (𝐴 × 𝐴))
11	9, 10	sylibr 234	. . . . . 6 ⊢ ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) → 𝑟 ∈ 𝒫 (𝐴 × 𝐴))
12	11	ad2antrr 726	. . . . 5 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑟 ∈ 𝒫 (𝐴 × 𝐴))
13	12	exlimiv 1930	. . . 4 ⊢ (∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑟 ∈ 𝒫 (𝐴 × 𝐴))
14	13	abssi 4045	. . 3 ⊢ {𝑟 ∣ ∃𝑦(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))} ⊆ 𝒫 (𝐴 × 𝐴)
15	4, 14	eqsstri 4005	. 2 ⊢ dom 𝐹 ⊆ 𝒫 (𝐴 × 𝐴)
16		funopab4 6572	. . 3 ⊢ Fun {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
17	1	funeqi 6556	. . 3 ⊢ (Fun 𝐹 ↔ Fun {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))})
18	16, 17	mpbir 231	. 2 ⊢ Fun 𝐹
19	1	rneqi 5917	. . . 4 ⊢ ran 𝐹 = ran {⟨𝑟, 𝑦⟩ ∣ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
20		rnopab 5934	. . . 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 2758	. . 3 ⊢ ran 𝐹 = {𝑦 ∣ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))}
22		breq1 5122	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑥 ≼ 𝐴 ↔ 𝑦 ≼ 𝐴))
23	22	elrab 3671	. . . . 5 ⊢ (𝑦 ∈ {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴} ↔ (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴))
24		f1f 6773	. . . . . . . . . . . . 13 ⊢ (𝑓:𝑦–1-1→𝐴 → 𝑓:𝑦⟶𝐴)
25	24	adantl 481	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓:𝑦⟶𝐴)
26	25	frnd 6713	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ran 𝑓 ⊆ 𝐴)
27		resss 5988	. . . . . . . . . . . . . 14 ⊢ ( I ↾ ran 𝑓) ⊆ I
28		ssun2 4154	. . . . . . . . . . . . . 14 ⊢ I ⊆ (𝑅 ∪ I )
29	27, 28	sstri 3968	. . . . . . . . . . . . 13 ⊢ ( I ↾ ran 𝑓) ⊆ (𝑅 ∪ I )
30		idssxp 6036	. . . . . . . . . . . . 13 ⊢ ( I ↾ ran 𝑓) ⊆ (ran 𝑓 × ran 𝑓)
31	29, 30	ssini 4215	. . . . . . . . . . . 12 ⊢ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓))
32	31	a1i 11	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)))
33		inss2 4213	. . . . . . . . . . . 12 ⊢ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)
34	33	a1i 11	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓))
35	26, 32, 34	3jca 1128	. . . . . . . . . 10 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)))
36		eloni 6362	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ On → Ord 𝑦)
37		ordwe 6365	. . . . . . . . . . . . . 14 ⊢ (Ord 𝑦 → E We 𝑦)
38	36, 37	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ On → E We 𝑦)
39	38	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → E We 𝑦)
40		f1f1orn 6828	. . . . . . . . . . . . . . . 16 ⊢ (𝑓:𝑦–1-1→𝐴 → 𝑓:𝑦–1-1-onto→ran 𝑓)
41	40	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓:𝑦–1-1-onto→ran 𝑓)
42		hartogslem.3	. . . . . . . . . . . . . . 15 ⊢ 𝑅 = {⟨𝑠, 𝑡⟩ ∣ ∃𝑤 ∈ 𝑦 ∃𝑧 ∈ 𝑦 ((𝑠 = (𝑓‘𝑤) ∧ 𝑡 = (𝑓‘𝑧)) ∧ 𝑤 E 𝑧)}
43		f1oiso 7343	. . . . . . . . . . . . . . 15 ⊢ ((𝑓:𝑦–1-1-onto→ran 𝑓 ∧ 𝑅 = {⟨𝑠, 𝑡⟩ ∣ ∃𝑤 ∈ 𝑦 ∃𝑧 ∈ 𝑦 ((𝑠 = (𝑓‘𝑤) ∧ 𝑡 = (𝑓‘𝑧)) ∧ 𝑤 E 𝑧)}) → 𝑓 Isom E , 𝑅 (𝑦, ran 𝑓))
44	41, 42, 43	sylancl 586	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓 Isom E , 𝑅 (𝑦, ran 𝑓))
45		isores2 7325	. . . . . . . . . . . . . 14 ⊢ (𝑓 Isom E , 𝑅 (𝑦, ran 𝑓) ↔ 𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓))
46	44, 45	sylib 218	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓 Isom E , (𝑅 ∩ (ran 𝑓 × ran 𝑓))(𝑦, ran 𝑓))
47		isowe 7341	. . . . . . . . . . . . 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 232	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓)
50		weso 5645	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) We ran 𝑓 → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) Or ran 𝑓)
51	49, 50	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) Or ran 𝑓)
52		inss2 4213	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)
53	52	brel 5719	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥 → (𝑥 ∈ ran 𝑓 ∧ 𝑥 ∈ ran 𝑓))
54	53	simpld 494	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥 → 𝑥 ∈ ran 𝑓)
55		sonr 5585	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 ∩ (ran 𝑓 × ran 𝑓)) Or ran 𝑓 ∧ 𝑥 ∈ ran 𝑓) → ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
56	51, 54, 55	syl2an 596	. . . . . . . . . . . . . . . 16 ⊢ (((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) ∧ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥) → ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
57	56	pm2.01da 798	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
58	57	alrimiv 1927	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ∀𝑥 ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
59		intirr 6107	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∩ I ) = ∅ ↔ ∀𝑥 ¬ 𝑥(𝑅 ∩ (ran 𝑓 × ran 𝑓))𝑥)
60	58, 59	sylibr 234	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∩ I ) = ∅)
61		disj3 4429	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∩ I ) = ∅ ↔ (𝑅 ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
62	60, 61	sylib 218	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑅 ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
63		weeq1 5641	. . . . . . . . . . . 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 232	. . . . . . . . . 10 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓)
66	36	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → Ord 𝑦)
67		isoeq3 7311	. . . . . . . . . . . . . 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 232	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑓 Isom E , ( (𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )(𝑦, ran 𝑓))
70		vex 3463	. . . . . . . . . . . . . . 15 ⊢ 𝑓 ∈ V
71	70	rnex 7904	. . . . . . . . . . . . . 14 ⊢ ran 𝑓 ∈ V
72		exse 5614	. . . . . . . . . . . . . 14 ⊢ (ran 𝑓 ∈ V → ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) Se ran 𝑓)
73	71, 72	ax-mp 5	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) Se ran 𝑓
74		eqid 2735	. . . . . . . . . . . . . 14 ⊢ OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)
75	74	oieu 9551	. . . . . . . . . . . . 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 586	. . . . . . . . . . . 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 712	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → (𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓) ∧ 𝑓 = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)))
78	77	simpld 494	. . . . . . . . . 10 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → 𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
79	71, 71	xpex 7745	. . . . . . . . . . . 12 ⊢ (ran 𝑓 × ran 𝑓) ∈ V
80	79	inex2 5288	. . . . . . . . . . 11 ⊢ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∈ V
81		sseq1 3984	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ⊆ (ran 𝑓 × ran 𝑓) ↔ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)))
82	33, 81	mpbiri 258	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → 𝑟 ⊆ (ran 𝑓 × ran 𝑓))
83		dmss 5882	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 ⊆ (ran 𝑓 × ran 𝑓) → dom 𝑟 ⊆ dom (ran 𝑓 × ran 𝑓))
84	82, 83	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom 𝑟 ⊆ dom (ran 𝑓 × ran 𝑓))
85		dmxpid 5910	. . . . . . . . . . . . . . . . 17 ⊢ dom (ran 𝑓 × ran 𝑓) = ran 𝑓
86	84, 85	sseqtrdi 3999	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom 𝑟 ⊆ ran 𝑓)
87		dmresi 6039	. . . . . . . . . . . . . . . . 17 ⊢ dom ( I ↾ ran 𝑓) = ran 𝑓
88		sseq2 3985	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (( I ↾ ran 𝑓) ⊆ 𝑟 ↔ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓))))
89	31, 88	mpbiri 258	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ( I ↾ ran 𝑓) ⊆ 𝑟)
90		dmss 5882	. . . . . . . . . . . . . . . . . 18 ⊢ (( I ↾ ran 𝑓) ⊆ 𝑟 → dom ( I ↾ ran 𝑓) ⊆ dom 𝑟)
91	89, 90	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom ( I ↾ ran 𝑓) ⊆ dom 𝑟)
92	87, 91	eqsstrrid 3998	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ran 𝑓 ⊆ dom 𝑟)
93	86, 92	eqssd 3976	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom 𝑟 = ran 𝑓)
94	93	sseq1d 3990	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (dom 𝑟 ⊆ 𝐴 ↔ ran 𝑓 ⊆ 𝐴))
95	93	reseq2d 5966	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ( I ↾ dom 𝑟) = ( I ↾ ran 𝑓))
96		id 22	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → 𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)))
97	95, 96	sseq12d 3992	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (( I ↾ dom 𝑟) ⊆ 𝑟 ↔ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓))))
98	93	sqxpeqd 5686	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (dom 𝑟 × dom 𝑟) = (ran 𝑓 × ran 𝑓))
99	96, 98	sseq12d 3992	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ⊆ (dom 𝑟 × dom 𝑟) ↔ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓)))
100	94, 97, 99	3anbi123d 1438	. . . . . . . . . . . . 13 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ↔ (ran 𝑓 ⊆ 𝐴 ∧ ( I ↾ ran 𝑓) ⊆ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∧ ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ⊆ (ran 𝑓 × ran 𝑓))))
101		difeq1 4094	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ∖ I ) = (((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
102		difun2 4456	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∪ I ) ∖ I ) = (𝑅 ∖ I )
103	102	ineq1i 4191	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∪ I ) ∖ I ) ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∖ I ) ∩ (ran 𝑓 × ran 𝑓))
104		indif1 4257	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∪ I ) ∖ I ) ∩ (ran 𝑓 × ran 𝑓)) = (((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∖ I )
105		indif1 4257	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∖ I ) ∩ (ran 𝑓 × ran 𝑓)) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )
106	103, 104, 105	3eqtr3i 2766	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I )
107	101, 106	eqtrdi 2786	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑟 ∖ I ) = ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ))
108	107, 93	weeq12d 5643	. . . . . . . . . . . . 13 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → ((𝑟 ∖ I ) We dom 𝑟 ↔ ((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ) We ran 𝑓))
109	100, 108	anbi12d 632	. . . . . . . . . . . 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 9524	. . . . . . . . . . . . . . . 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 9525	. . . . . . . . . . . . . . . 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 2770	. . . . . . . . . . . . . 14 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → OrdIso((𝑟 ∖ I ), dom 𝑟) = OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
115	114	dmeqd 5885	. . . . . . . . . . . . 13 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → dom OrdIso((𝑟 ∖ I ), dom 𝑟) = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓))
116	115	eqeq2d 2746	. . . . . . . . . . . 12 ⊢ (𝑟 = ((𝑅 ∪ I ) ∩ (ran 𝑓 × ran 𝑓)) → (𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟) ↔ 𝑦 = dom OrdIso(((𝑅 ∩ (ran 𝑓 × ran 𝑓)) ∖ I ), ran 𝑓)))
117	109, 116	anbi12d 632	. . . . . . . . . . 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 3585	. . . . . . . . . 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 837	. . . . . . . . 9 ⊢ ((𝑦 ∈ On ∧ 𝑓:𝑦–1-1→𝐴) → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)))
120	119	ex 412	. . . . . . . 8 ⊢ (𝑦 ∈ On → (𝑓:𝑦–1-1→𝐴 → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
121	120	exlimdv 1933	. . . . . . 7 ⊢ (𝑦 ∈ On → (∃𝑓 𝑓:𝑦–1-1→𝐴 → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
122		brdomi 8971	. . . . . . 7 ⊢ (𝑦 ≼ 𝐴 → ∃𝑓 𝑓:𝑦–1-1→𝐴)
123	121, 122	impel 505	. . . . . 6 ⊢ ((𝑦 ∈ On ∧ 𝑦 ≼ 𝐴) → ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)))
124		simpr 484	. . . . . . . . . . 11 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))
125		vex 3463	. . . . . . . . . . . . 13 ⊢ 𝑟 ∈ V
126	125	dmex 7903	. . . . . . . . . . . 12 ⊢ dom 𝑟 ∈ V
127		eqid 2735	. . . . . . . . . . . . 13 ⊢ OrdIso((𝑟 ∖ I ), dom 𝑟) = OrdIso((𝑟 ∖ I ), dom 𝑟)
128	127	oion 9548	. . . . . . . . . . . 12 ⊢ (dom 𝑟 ∈ V → dom OrdIso((𝑟 ∖ I ), dom 𝑟) ∈ On)
129	126, 128	ax-mp 5	. . . . . . . . . . 11 ⊢ dom OrdIso((𝑟 ∖ I ), dom 𝑟) ∈ On
130	124, 129	eqeltrdi 2842	. . . . . . . . . 10 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑦 ∈ On)
131	130	adantl 481	. . . . . . . . 9 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → 𝑦 ∈ On)
132		simplr 768	. . . . . . . . . . . 12 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → (𝑟 ∖ I ) We dom 𝑟)
133	127	oien 9550	. . . . . . . . . . . 12 ⊢ ((dom 𝑟 ∈ V ∧ (𝑟 ∖ I ) We dom 𝑟) → dom OrdIso((𝑟 ∖ I ), dom 𝑟) ≈ dom 𝑟)
134	126, 132, 133	sylancr 587	. . . . . . . . . . 11 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → dom OrdIso((𝑟 ∖ I ), dom 𝑟) ≈ dom 𝑟)
135	124, 134	eqbrtrd 5141	. . . . . . . . . 10 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → 𝑦 ≈ dom 𝑟)
136		ssdomg 9012	. . . . . . . . . . 11 ⊢ (𝐴 ∈ 𝑉 → (dom 𝑟 ⊆ 𝐴 → dom 𝑟 ≼ 𝐴))
137		simpll1 1213	. . . . . . . . . . 11 ⊢ ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → dom 𝑟 ⊆ 𝐴)
138	136, 137	impel 505	. . . . . . . . . 10 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → dom 𝑟 ≼ 𝐴)
139		endomtr 9024	. . . . . . . . . 10 ⊢ ((𝑦 ≈ dom 𝑟 ∧ dom 𝑟 ≼ 𝐴) → 𝑦 ≼ 𝐴)
140	135, 138, 139	syl2an2 686	. . . . . . . . 9 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → 𝑦 ≼ 𝐴)
141	131, 140	jca 511	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝑉 ∧ (((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))) → (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴))
142	141	ex 412	. . . . . . 7 ⊢ (𝐴 ∈ 𝑉 → ((((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴)))
143	142	exlimdv 1933	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → (∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟)) → (𝑦 ∈ On ∧ 𝑦 ≼ 𝐴)))
144	123, 143	impbid2 226	. . . . 5 ⊢ (𝐴 ∈ 𝑉 → ((𝑦 ∈ On ∧ 𝑦 ≼ 𝐴) ↔ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
145	23, 144	bitrid 283	. . . 4 ⊢ (𝐴 ∈ 𝑉 → (𝑦 ∈ {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴} ↔ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))))
146	145	eqabdv 2868	. . 3 ⊢ (𝐴 ∈ 𝑉 → {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴} = {𝑦 ∣ ∃𝑟(((dom 𝑟 ⊆ 𝐴 ∧ ( I ↾ dom 𝑟) ⊆ 𝑟 ∧ 𝑟 ⊆ (dom 𝑟 × dom 𝑟)) ∧ (𝑟 ∖ I ) We dom 𝑟) ∧ 𝑦 = dom OrdIso((𝑟 ∖ I ), dom 𝑟))})
147	21, 146	eqtr4id 2789	. 2 ⊢ (𝐴 ∈ 𝑉 → ran 𝐹 = {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴})
148	15, 18, 147	3pm3.2i 1340	1 ⊢ (dom 𝐹 ⊆ 𝒫 (𝐴 × 𝐴) ∧ Fun 𝐹 ∧ (𝐴 ∈ 𝑉 → ran 𝐹 = {𝑥 ∈ On ∣ 𝑥 ≼ 𝐴}))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086  ∀wal 1538   = wceq 1540  ∃wex 1779   ∈ wcel 2108  {cab 2713  ∃wrex 3060  {crab 3415  Vcvv 3459   ∖ cdif 3923   ∪ cun 3924   ∩ cin 3925   ⊆ wss 3926  ∅c0 4308  𝒫 cpw 4575   class class class wbr 5119  {copab 5181   I cid 5547   E cep 5552   Or wor 5560   Se wse 5604   We wwe 5605   × cxp 5652  dom cdm 5654  ran crn 5655   ↾ cres 5656  Ord word 6351  Oncon0 6352  Fun wfun 6524  ⟶wf 6526  –1-1→wf1 6527  –1-1-onto→wf1o 6529  ‘cfv 6530   Isom wiso 6531   ≈ cen 8954   ≼ cdom 8955  OrdIsocoi 9521

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 2707  ax-rep 5249  ax-sep 5266  ax-nul 5276  ax-pow 5335  ax-pr 5402  ax-un 7727

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-rmo 3359  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-pss 3946  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-op 4608  df-uni 4884  df-iun 4969  df-br 5120  df-opab 5182  df-mpt 5202  df-tr 5230  df-id 5548  df-eprel 5553  df-po 5561  df-so 5562  df-fr 5606  df-se 5607  df-we 5608  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6290  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6483  df-fun 6532  df-fn 6533  df-f 6534  df-f1 6535  df-fo 6536  df-f1o 6537  df-fv 6538  df-isom 6539  df-riota 7360  df-ov 7406  df-2nd 7987  df-frecs 8278  df-wrecs 8309  df-recs 8383  df-en 8958  df-dom 8959  df-oi 9522

This theorem is referenced by:  hartogslem2  9555  harwdom  9603