Theorem fprlem1 8306

Description: Lemma for well-founded recursion with a partial order. Two acceptable functions are compatible. (Contributed by Scott Fenton, 11-Sep-2023.)

Hypotheses

Ref	Expression
fprlem.1	⊢ 𝐵 = {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
fprlem.2	⊢ 𝐹 = frecs(𝑅, 𝐴, 𝐺)

Assertion

Ref	Expression
fprlem1	⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → ((𝑥𝑔𝑢 ∧ 𝑥ℎ𝑣) → 𝑢 = 𝑣))

Distinct variable groups:   𝐴,𝑓,𝑥,𝑦,𝑔,ℎ,𝑢,𝑣   𝑅,𝑓,𝑥,𝑦,𝑔,ℎ,𝑢,𝑣   𝑓,𝐺,𝑥,𝑦,𝑔,ℎ,𝑢,𝑣

Allowed substitution hints:   𝐵(𝑥,𝑦,𝑣,𝑢,𝑓,𝑔,ℎ)   𝐹(𝑥,𝑦,𝑣,𝑢,𝑓,𝑔,ℎ)

Proof of Theorem fprlem1

Dummy variable 𝑎 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		vex 3465	. . . . 5 ⊢ 𝑥 ∈ V
2		vex 3465	. . . . 5 ⊢ 𝑢 ∈ V
3	1, 2	breldm 5911	. . . 4 ⊢ (𝑥𝑔𝑢 → 𝑥 ∈ dom 𝑔)
4		vex 3465	. . . . 5 ⊢ 𝑣 ∈ V
5	1, 4	breldm 5911	. . . 4 ⊢ (𝑥ℎ𝑣 → 𝑥 ∈ dom ℎ)
6		elin 3960	. . . . 5 ⊢ (𝑥 ∈ (dom 𝑔 ∩ dom ℎ) ↔ (𝑥 ∈ dom 𝑔 ∧ 𝑥 ∈ dom ℎ))
7	6	biimpri 227	. . . 4 ⊢ ((𝑥 ∈ dom 𝑔 ∧ 𝑥 ∈ dom ℎ) → 𝑥 ∈ (dom 𝑔 ∩ dom ℎ))
8	3, 5, 7	syl2an 594	. . 3 ⊢ ((𝑥𝑔𝑢 ∧ 𝑥ℎ𝑣) → 𝑥 ∈ (dom 𝑔 ∩ dom ℎ))
9		id 22	. . 3 ⊢ ((𝑥𝑔𝑢 ∧ 𝑥ℎ𝑣) → (𝑥𝑔𝑢 ∧ 𝑥ℎ𝑣))
10	2	brresi 5994	. . . . 5 ⊢ (𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ↔ (𝑥 ∈ (dom 𝑔 ∩ dom ℎ) ∧ 𝑥𝑔𝑢))
11	4	brresi 5994	. . . . 5 ⊢ (𝑥(ℎ ↾ (dom 𝑔 ∩ dom ℎ))𝑣 ↔ (𝑥 ∈ (dom 𝑔 ∩ dom ℎ) ∧ 𝑥ℎ𝑣))
12	10, 11	anbi12i 626	. . . 4 ⊢ ((𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(ℎ ↾ (dom 𝑔 ∩ dom ℎ))𝑣) ↔ ((𝑥 ∈ (dom 𝑔 ∩ dom ℎ) ∧ 𝑥𝑔𝑢) ∧ (𝑥 ∈ (dom 𝑔 ∩ dom ℎ) ∧ 𝑥ℎ𝑣)))
13		an4 654	. . . 4 ⊢ (((𝑥 ∈ (dom 𝑔 ∩ dom ℎ) ∧ 𝑥𝑔𝑢) ∧ (𝑥 ∈ (dom 𝑔 ∩ dom ℎ) ∧ 𝑥ℎ𝑣)) ↔ ((𝑥 ∈ (dom 𝑔 ∩ dom ℎ) ∧ 𝑥 ∈ (dom 𝑔 ∩ dom ℎ)) ∧ (𝑥𝑔𝑢 ∧ 𝑥ℎ𝑣)))
14	12, 13	bitri 274	. . 3 ⊢ ((𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(ℎ ↾ (dom 𝑔 ∩ dom ℎ))𝑣) ↔ ((𝑥 ∈ (dom 𝑔 ∩ dom ℎ) ∧ 𝑥 ∈ (dom 𝑔 ∩ dom ℎ)) ∧ (𝑥𝑔𝑢 ∧ 𝑥ℎ𝑣)))
15	8, 8, 9, 14	syl21anbrc 1341	. 2 ⊢ ((𝑥𝑔𝑢 ∧ 𝑥ℎ𝑣) → (𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(ℎ ↾ (dom 𝑔 ∩ dom ℎ))𝑣))
16		inss2 4228	. . . . . . . . . 10 ⊢ (dom 𝑔 ∩ dom ℎ) ⊆ dom ℎ
17		fprlem.1	. . . . . . . . . . 11 ⊢ 𝐵 = {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
18	17	frrlem3 8294	. . . . . . . . . 10 ⊢ (ℎ ∈ 𝐵 → dom ℎ ⊆ 𝐴)
19	16, 18	sstrid 3988	. . . . . . . . 9 ⊢ (ℎ ∈ 𝐵 → (dom 𝑔 ∩ dom ℎ) ⊆ 𝐴)
20	19	adantl 480	. . . . . . . 8 ⊢ ((𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵) → (dom 𝑔 ∩ dom ℎ) ⊆ 𝐴)
21	20	adantl 480	. . . . . . 7 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → (dom 𝑔 ∩ dom ℎ) ⊆ 𝐴)
22		simpl1 1188	. . . . . . 7 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → 𝑅 Fr 𝐴)
23		frss 5645	. . . . . . 7 ⊢ ((dom 𝑔 ∩ dom ℎ) ⊆ 𝐴 → (𝑅 Fr 𝐴 → 𝑅 Fr (dom 𝑔 ∩ dom ℎ)))
24	21, 22, 23	sylc 65	. . . . . 6 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → 𝑅 Fr (dom 𝑔 ∩ dom ℎ))
25		simpl2 1189	. . . . . . 7 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → 𝑅 Po 𝐴)
26		poss 5592	. . . . . . 7 ⊢ ((dom 𝑔 ∩ dom ℎ) ⊆ 𝐴 → (𝑅 Po 𝐴 → 𝑅 Po (dom 𝑔 ∩ dom ℎ)))
27	21, 25, 26	sylc 65	. . . . . 6 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → 𝑅 Po (dom 𝑔 ∩ dom ℎ))
28		simpl3 1190	. . . . . . 7 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → 𝑅 Se 𝐴)
29		sess2 5647	. . . . . . 7 ⊢ ((dom 𝑔 ∩ dom ℎ) ⊆ 𝐴 → (𝑅 Se 𝐴 → 𝑅 Se (dom 𝑔 ∩ dom ℎ)))
30	21, 28, 29	sylc 65	. . . . . 6 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → 𝑅 Se (dom 𝑔 ∩ dom ℎ))
31	17	frrlem4 8295	. . . . . . 7 ⊢ ((𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵) → ((𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) Fn (dom 𝑔 ∩ dom ℎ) ∧ ∀𝑎 ∈ (dom 𝑔 ∩ dom ℎ)((𝑔 ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = (𝑎𝐺((𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎)))))
32	31	adantl 480	. . . . . 6 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → ((𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) Fn (dom 𝑔 ∩ dom ℎ) ∧ ∀𝑎 ∈ (dom 𝑔 ∩ dom ℎ)((𝑔 ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = (𝑎𝐺((𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎)))))
33	17	frrlem4 8295	. . . . . . . . 9 ⊢ ((ℎ ∈ 𝐵 ∧ 𝑔 ∈ 𝐵) → ((ℎ ↾ (dom ℎ ∩ dom 𝑔)) Fn (dom ℎ ∩ dom 𝑔) ∧ ∀𝑎 ∈ (dom ℎ ∩ dom 𝑔)((ℎ ↾ (dom ℎ ∩ dom 𝑔))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom ℎ ∩ dom 𝑔)) ↾ Pred(𝑅, (dom ℎ ∩ dom 𝑔), 𝑎)))))
34		incom 4199	. . . . . . . . . . . 12 ⊢ (dom 𝑔 ∩ dom ℎ) = (dom ℎ ∩ dom 𝑔)
35	34	reseq2i 5982	. . . . . . . . . . 11 ⊢ (ℎ ↾ (dom 𝑔 ∩ dom ℎ)) = (ℎ ↾ (dom ℎ ∩ dom 𝑔))
36		fneq12 6651	. . . . . . . . . . 11 ⊢ (((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) = (ℎ ↾ (dom ℎ ∩ dom 𝑔)) ∧ (dom 𝑔 ∩ dom ℎ) = (dom ℎ ∩ dom 𝑔)) → ((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) Fn (dom 𝑔 ∩ dom ℎ) ↔ (ℎ ↾ (dom ℎ ∩ dom 𝑔)) Fn (dom ℎ ∩ dom 𝑔)))
37	35, 34, 36	mp2an 690	. . . . . . . . . 10 ⊢ ((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) Fn (dom 𝑔 ∩ dom ℎ) ↔ (ℎ ↾ (dom ℎ ∩ dom 𝑔)) Fn (dom ℎ ∩ dom 𝑔))
38	35	fveq1i 6897	. . . . . . . . . . . 12 ⊢ ((ℎ ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = ((ℎ ↾ (dom ℎ ∩ dom 𝑔))‘𝑎)
39		predeq2 6310	. . . . . . . . . . . . . . 15 ⊢ ((dom 𝑔 ∩ dom ℎ) = (dom ℎ ∩ dom 𝑔) → Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎) = Pred(𝑅, (dom ℎ ∩ dom 𝑔), 𝑎))
40	34, 39	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎) = Pred(𝑅, (dom ℎ ∩ dom 𝑔), 𝑎)
41	35, 40	reseq12i 5983	. . . . . . . . . . . . 13 ⊢ ((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎)) = ((ℎ ↾ (dom ℎ ∩ dom 𝑔)) ↾ Pred(𝑅, (dom ℎ ∩ dom 𝑔), 𝑎))
42	41	oveq2i 7430	. . . . . . . . . . . 12 ⊢ (𝑎𝐺((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎))) = (𝑎𝐺((ℎ ↾ (dom ℎ ∩ dom 𝑔)) ↾ Pred(𝑅, (dom ℎ ∩ dom 𝑔), 𝑎)))
43	38, 42	eqeq12i 2743	. . . . . . . . . . 11 ⊢ (((ℎ ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎))) ↔ ((ℎ ↾ (dom ℎ ∩ dom 𝑔))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom ℎ ∩ dom 𝑔)) ↾ Pred(𝑅, (dom ℎ ∩ dom 𝑔), 𝑎))))
44	34, 43	raleqbii 3327	. . . . . . . . . 10 ⊢ (∀𝑎 ∈ (dom 𝑔 ∩ dom ℎ)((ℎ ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎))) ↔ ∀𝑎 ∈ (dom ℎ ∩ dom 𝑔)((ℎ ↾ (dom ℎ ∩ dom 𝑔))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom ℎ ∩ dom 𝑔)) ↾ Pred(𝑅, (dom ℎ ∩ dom 𝑔), 𝑎))))
45	37, 44	anbi12i 626	. . . . . . . . 9 ⊢ (((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) Fn (dom 𝑔 ∩ dom ℎ) ∧ ∀𝑎 ∈ (dom 𝑔 ∩ dom ℎ)((ℎ ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎)))) ↔ ((ℎ ↾ (dom ℎ ∩ dom 𝑔)) Fn (dom ℎ ∩ dom 𝑔) ∧ ∀𝑎 ∈ (dom ℎ ∩ dom 𝑔)((ℎ ↾ (dom ℎ ∩ dom 𝑔))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom ℎ ∩ dom 𝑔)) ↾ Pred(𝑅, (dom ℎ ∩ dom 𝑔), 𝑎)))))
46	33, 45	sylibr 233	. . . . . . . 8 ⊢ ((ℎ ∈ 𝐵 ∧ 𝑔 ∈ 𝐵) → ((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) Fn (dom 𝑔 ∩ dom ℎ) ∧ ∀𝑎 ∈ (dom 𝑔 ∩ dom ℎ)((ℎ ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎)))))
47	46	ancoms 457	. . . . . . 7 ⊢ ((𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵) → ((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) Fn (dom 𝑔 ∩ dom ℎ) ∧ ∀𝑎 ∈ (dom 𝑔 ∩ dom ℎ)((ℎ ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎)))))
48	47	adantl 480	. . . . . 6 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → ((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) Fn (dom 𝑔 ∩ dom ℎ) ∧ ∀𝑎 ∈ (dom 𝑔 ∩ dom ℎ)((ℎ ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎)))))
49		fpr3g 8291	. . . . . 6 ⊢ (((𝑅 Fr (dom 𝑔 ∩ dom ℎ) ∧ 𝑅 Po (dom 𝑔 ∩ dom ℎ) ∧ 𝑅 Se (dom 𝑔 ∩ dom ℎ)) ∧ ((𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) Fn (dom 𝑔 ∩ dom ℎ) ∧ ∀𝑎 ∈ (dom 𝑔 ∩ dom ℎ)((𝑔 ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = (𝑎𝐺((𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎)))) ∧ ((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) Fn (dom 𝑔 ∩ dom ℎ) ∧ ∀𝑎 ∈ (dom 𝑔 ∩ dom ℎ)((ℎ ↾ (dom 𝑔 ∩ dom ℎ))‘𝑎) = (𝑎𝐺((ℎ ↾ (dom 𝑔 ∩ dom ℎ)) ↾ Pred(𝑅, (dom 𝑔 ∩ dom ℎ), 𝑎))))) → (𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) = (ℎ ↾ (dom 𝑔 ∩ dom ℎ)))
50	24, 27, 30, 32, 48, 49	syl311anc 1381	. . . . 5 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → (𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) = (ℎ ↾ (dom 𝑔 ∩ dom ℎ)))
51	50	breqd 5160	. . . 4 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → (𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑣 ↔ 𝑥(ℎ ↾ (dom 𝑔 ∩ dom ℎ))𝑣))
52	51	biimprd 247	. . 3 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → (𝑥(ℎ ↾ (dom 𝑔 ∩ dom ℎ))𝑣 → 𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑣))
53	17	frrlem2 8293	. . . . 5 ⊢ (𝑔 ∈ 𝐵 → Fun 𝑔)
54	53	ad2antrl 726	. . . 4 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → Fun 𝑔)
55		funres 6596	. . . 4 ⊢ (Fun 𝑔 → Fun (𝑔 ↾ (dom 𝑔 ∩ dom ℎ)))
56		dffun2 6559	. . . . 5 ⊢ (Fun (𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) ↔ (Rel (𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) ∧ ∀𝑥∀𝑢∀𝑣((𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑣) → 𝑢 = 𝑣)))
57		2sp 2174	. . . . . 6 ⊢ (∀𝑢∀𝑣((𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑣) → 𝑢 = 𝑣) → ((𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑣) → 𝑢 = 𝑣))
58	57	sps 2173	. . . . 5 ⊢ (∀𝑥∀𝑢∀𝑣((𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑣) → 𝑢 = 𝑣) → ((𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑣) → 𝑢 = 𝑣))
59	56, 58	simplbiim 503	. . . 4 ⊢ (Fun (𝑔 ↾ (dom 𝑔 ∩ dom ℎ)) → ((𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑣) → 𝑢 = 𝑣))
60	54, 55, 59	3syl 18	. . 3 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → ((𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑣) → 𝑢 = 𝑣))
61	52, 60	sylan2d 603	. 2 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → ((𝑥(𝑔 ↾ (dom 𝑔 ∩ dom ℎ))𝑢 ∧ 𝑥(ℎ ↾ (dom 𝑔 ∩ dom ℎ))𝑣) → 𝑢 = 𝑣))
62	15, 61	syl5 34	1 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Po 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝑔 ∈ 𝐵 ∧ ℎ ∈ 𝐵)) → ((𝑥𝑔𝑢 ∧ 𝑥ℎ𝑣) → 𝑢 = 𝑣))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1084  ∀wal 1531   = wceq 1533  ∃wex 1773   ∈ wcel 2098  {cab 2702  ∀wral 3050   ∩ cin 3943   ⊆ wss 3944   class class class wbr 5149   Po wpo 5588   Fr wfr 5630   Se wse 5631  dom cdm 5678   ↾ cres 5680  Rel wrel 5683  Predcpred 6306  Fun wfun 6543   Fn wfn 6544  ‘cfv 6549  (class class class)co 7419  frecscfrecs 8286

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-sep 5300  ax-nul 5307  ax-pr 5429

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2930  df-ral 3051  df-rex 3060  df-rab 3419  df-v 3463  df-sbc 3774  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-nul 4323  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-op 4637  df-uni 4910  df-br 5150  df-opab 5212  df-mpt 5233  df-id 5576  df-po 5590  df-fr 5633  df-se 5634  df-xp 5684  df-rel 5685  df-cnv 5686  df-co 5687  df-dm 5688  df-rn 5689  df-res 5690  df-ima 5691  df-pred 6307  df-iota 6501  df-fun 6551  df-fn 6552  df-fv 6557  df-ov 7422

This theorem is referenced by:  fpr2a  8308  fpr1  8309  fprfung  8315