Theorem pospropd 16957

Description: Posethood is determined only by structure components and only by the value of the relation within the base set. (Contributed by Stefan O'Rear, 29-Jan-2015.)

Hypotheses

Ref	Expression
pospropd.kv	⊢ (𝜑 → 𝐾 ∈ 𝑉)
pospropd.lv	⊢ (𝜑 → 𝐿 ∈ 𝑊)
pospropd.kb	⊢ (𝜑 → 𝐵 = (Base‘𝐾))
pospropd.lb	⊢ (𝜑 → 𝐵 = (Base‘𝐿))
pospropd.xy	⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦))

Assertion

Ref	Expression
pospropd	⊢ (𝜑 → (𝐾 ∈ Poset ↔ 𝐿 ∈ Poset))

Distinct variable groups:   𝑥,𝐵,𝑦   𝜑,𝑥,𝑦   𝑥,𝐾,𝑦   𝑥,𝐿,𝑦

Allowed substitution hints:   𝑉(𝑥,𝑦)   𝑊(𝑥,𝑦)

Proof of Theorem pospropd

Dummy variables 𝑎 𝑏 𝑐 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pospropd.xy	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦))
2	1	ralrimivva 2954	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦))
3		simp1 1054	. . . . . . . . . . . . 13 ⊢ ((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) → 𝑎 ∈ 𝐵)
4	3, 3	jca 553	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) → (𝑎 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵))
5		breq1 4586	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑎 → (𝑥(le‘𝐾)𝑦 ↔ 𝑎(le‘𝐾)𝑦))
6		breq1 4586	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑎 → (𝑥(le‘𝐿)𝑦 ↔ 𝑎(le‘𝐿)𝑦))
7	5, 6	bibi12d 334	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑎 → ((𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦) ↔ (𝑎(le‘𝐾)𝑦 ↔ 𝑎(le‘𝐿)𝑦)))
8		breq2 4587	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑎 → (𝑎(le‘𝐾)𝑦 ↔ 𝑎(le‘𝐾)𝑎))
9		breq2 4587	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑎 → (𝑎(le‘𝐿)𝑦 ↔ 𝑎(le‘𝐿)𝑎))
10	8, 9	bibi12d 334	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑎 → ((𝑎(le‘𝐾)𝑦 ↔ 𝑎(le‘𝐿)𝑦) ↔ (𝑎(le‘𝐾)𝑎 ↔ 𝑎(le‘𝐿)𝑎)))
11	7, 10	rspc2va 3294	. . . . . . . . . . . 12 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (𝑎(le‘𝐾)𝑎 ↔ 𝑎(le‘𝐿)𝑎))
12	4, 11	sylan 487	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (𝑎(le‘𝐾)𝑎 ↔ 𝑎(le‘𝐿)𝑎))
13		breq2 4587	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑏 → (𝑎(le‘𝐾)𝑦 ↔ 𝑎(le‘𝐾)𝑏))
14		breq2 4587	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑏 → (𝑎(le‘𝐿)𝑦 ↔ 𝑎(le‘𝐿)𝑏))
15	13, 14	bibi12d 334	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑏 → ((𝑎(le‘𝐾)𝑦 ↔ 𝑎(le‘𝐿)𝑦) ↔ (𝑎(le‘𝐾)𝑏 ↔ 𝑎(le‘𝐿)𝑏)))
16	7, 15	rspc2va 3294	. . . . . . . . . . . . . 14 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (𝑎(le‘𝐾)𝑏 ↔ 𝑎(le‘𝐿)𝑏))
17	16	3adantl3 1212	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (𝑎(le‘𝐾)𝑏 ↔ 𝑎(le‘𝐿)𝑏))
18		3simpb 1052	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵) → (𝑏 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵))
19	18	3comr 1265	. . . . . . . . . . . . . 14 ⊢ ((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) → (𝑏 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵))
20		breq1 4586	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑏 → (𝑥(le‘𝐾)𝑦 ↔ 𝑏(le‘𝐾)𝑦))
21		breq1 4586	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑏 → (𝑥(le‘𝐿)𝑦 ↔ 𝑏(le‘𝐿)𝑦))
22	20, 21	bibi12d 334	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑏 → ((𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦) ↔ (𝑏(le‘𝐾)𝑦 ↔ 𝑏(le‘𝐿)𝑦)))
23		breq2 4587	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑎 → (𝑏(le‘𝐾)𝑦 ↔ 𝑏(le‘𝐾)𝑎))
24		breq2 4587	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑎 → (𝑏(le‘𝐿)𝑦 ↔ 𝑏(le‘𝐿)𝑎))
25	23, 24	bibi12d 334	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑎 → ((𝑏(le‘𝐾)𝑦 ↔ 𝑏(le‘𝐿)𝑦) ↔ (𝑏(le‘𝐾)𝑎 ↔ 𝑏(le‘𝐿)𝑎)))
26	22, 25	rspc2va 3294	. . . . . . . . . . . . . 14 ⊢ (((𝑏 ∈ 𝐵 ∧ 𝑎 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (𝑏(le‘𝐾)𝑎 ↔ 𝑏(le‘𝐿)𝑎))
27	19, 26	sylan 487	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (𝑏(le‘𝐾)𝑎 ↔ 𝑏(le‘𝐿)𝑎))
28	17, 27	anbi12d 743	. . . . . . . . . . . 12 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) ↔ (𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎)))
29	28	imbi1d 330	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ↔ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏)))
30		breq2 4587	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑐 → (𝑏(le‘𝐾)𝑦 ↔ 𝑏(le‘𝐾)𝑐))
31		breq2 4587	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑐 → (𝑏(le‘𝐿)𝑦 ↔ 𝑏(le‘𝐿)𝑐))
32	30, 31	bibi12d 334	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑐 → ((𝑏(le‘𝐾)𝑦 ↔ 𝑏(le‘𝐿)𝑦) ↔ (𝑏(le‘𝐾)𝑐 ↔ 𝑏(le‘𝐿)𝑐)))
33	22, 32	rspc2va 3294	. . . . . . . . . . . . . 14 ⊢ (((𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (𝑏(le‘𝐾)𝑐 ↔ 𝑏(le‘𝐿)𝑐))
34	33	3adantl1 1210	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (𝑏(le‘𝐾)𝑐 ↔ 𝑏(le‘𝐿)𝑐))
35	17, 34	anbi12d 743	. . . . . . . . . . . 12 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) ↔ (𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐)))
36		3simpb 1052	. . . . . . . . . . . . 13 ⊢ ((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) → (𝑎 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵))
37		breq2 4587	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑐 → (𝑎(le‘𝐾)𝑦 ↔ 𝑎(le‘𝐾)𝑐))
38		breq2 4587	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑐 → (𝑎(le‘𝐿)𝑦 ↔ 𝑎(le‘𝐿)𝑐))
39	37, 38	bibi12d 334	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑐 → ((𝑎(le‘𝐾)𝑦 ↔ 𝑎(le‘𝐿)𝑦) ↔ (𝑎(le‘𝐾)𝑐 ↔ 𝑎(le‘𝐿)𝑐)))
40	7, 39	rspc2va 3294	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (𝑎(le‘𝐾)𝑐 ↔ 𝑎(le‘𝐿)𝑐))
41	36, 40	sylan 487	. . . . . . . . . . . 12 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (𝑎(le‘𝐾)𝑐 ↔ 𝑎(le‘𝐿)𝑐))
42	35, 41	imbi12d 333	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → (((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐) ↔ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐)))
43	12, 29, 42	3anbi123d 1391	. . . . . . . . . 10 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(le‘𝐾)𝑦 ↔ 𝑥(le‘𝐿)𝑦)) → ((𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
44	2, 43	sylan2 490	. . . . . . . . 9 ⊢ (((𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵) ∧ 𝜑) → ((𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
45	44	ancoms 468	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐵)) → ((𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
46	45	3exp2 1277	. . . . . . 7 ⊢ (𝜑 → (𝑎 ∈ 𝐵 → (𝑏 ∈ 𝐵 → (𝑐 ∈ 𝐵 → ((𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐)))))))
47	46	imp42 618	. . . . . 6 ⊢ (((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) ∧ 𝑐 ∈ 𝐵) → ((𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
48	47	ralbidva 2968	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝐵 ∧ 𝑏 ∈ 𝐵)) → (∀𝑐 ∈ 𝐵 (𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ ∀𝑐 ∈ 𝐵 (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
49	48	2ralbidva 2971	. . . 4 ⊢ (𝜑 → (∀𝑎 ∈ 𝐵 ∀𝑏 ∈ 𝐵 ∀𝑐 ∈ 𝐵 (𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ ∀𝑎 ∈ 𝐵 ∀𝑏 ∈ 𝐵 ∀𝑐 ∈ 𝐵 (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
50		pospropd.kb	. . . . 5 ⊢ (𝜑 → 𝐵 = (Base‘𝐾))
51		raleq 3115	. . . . . . 7 ⊢ (𝐵 = (Base‘𝐾) → (∀𝑐 ∈ 𝐵 (𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ ∀𝑐 ∈ (Base‘𝐾)(𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐))))
52	51	raleqbi1dv 3123	. . . . . 6 ⊢ (𝐵 = (Base‘𝐾) → (∀𝑏 ∈ 𝐵 ∀𝑐 ∈ 𝐵 (𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ ∀𝑏 ∈ (Base‘𝐾)∀𝑐 ∈ (Base‘𝐾)(𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐))))
53	52	raleqbi1dv 3123	. . . . 5 ⊢ (𝐵 = (Base‘𝐾) → (∀𝑎 ∈ 𝐵 ∀𝑏 ∈ 𝐵 ∀𝑐 ∈ 𝐵 (𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ ∀𝑎 ∈ (Base‘𝐾)∀𝑏 ∈ (Base‘𝐾)∀𝑐 ∈ (Base‘𝐾)(𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐))))
54	50, 53	syl 17	. . . 4 ⊢ (𝜑 → (∀𝑎 ∈ 𝐵 ∀𝑏 ∈ 𝐵 ∀𝑐 ∈ 𝐵 (𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ ∀𝑎 ∈ (Base‘𝐾)∀𝑏 ∈ (Base‘𝐾)∀𝑐 ∈ (Base‘𝐾)(𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐))))
55		pospropd.lb	. . . . 5 ⊢ (𝜑 → 𝐵 = (Base‘𝐿))
56		raleq 3115	. . . . . . 7 ⊢ (𝐵 = (Base‘𝐿) → (∀𝑐 ∈ 𝐵 (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐)) ↔ ∀𝑐 ∈ (Base‘𝐿)(𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
57	56	raleqbi1dv 3123	. . . . . 6 ⊢ (𝐵 = (Base‘𝐿) → (∀𝑏 ∈ 𝐵 ∀𝑐 ∈ 𝐵 (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐)) ↔ ∀𝑏 ∈ (Base‘𝐿)∀𝑐 ∈ (Base‘𝐿)(𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
58	57	raleqbi1dv 3123	. . . . 5 ⊢ (𝐵 = (Base‘𝐿) → (∀𝑎 ∈ 𝐵 ∀𝑏 ∈ 𝐵 ∀𝑐 ∈ 𝐵 (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐)) ↔ ∀𝑎 ∈ (Base‘𝐿)∀𝑏 ∈ (Base‘𝐿)∀𝑐 ∈ (Base‘𝐿)(𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
59	55, 58	syl 17	. . . 4 ⊢ (𝜑 → (∀𝑎 ∈ 𝐵 ∀𝑏 ∈ 𝐵 ∀𝑐 ∈ 𝐵 (𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐)) ↔ ∀𝑎 ∈ (Base‘𝐿)∀𝑏 ∈ (Base‘𝐿)∀𝑐 ∈ (Base‘𝐿)(𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
60	49, 54, 59	3bitr3d 297	. . 3 ⊢ (𝜑 → (∀𝑎 ∈ (Base‘𝐾)∀𝑏 ∈ (Base‘𝐾)∀𝑐 ∈ (Base‘𝐾)(𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ ∀𝑎 ∈ (Base‘𝐿)∀𝑏 ∈ (Base‘𝐿)∀𝑐 ∈ (Base‘𝐿)(𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
61		pospropd.kv	. . . . 5 ⊢ (𝜑 → 𝐾 ∈ 𝑉)
62		elex 3185	. . . . 5 ⊢ (𝐾 ∈ 𝑉 → 𝐾 ∈ V)
63	61, 62	syl 17	. . . 4 ⊢ (𝜑 → 𝐾 ∈ V)
64	63	biantrurd 528	. . 3 ⊢ (𝜑 → (∀𝑎 ∈ (Base‘𝐾)∀𝑏 ∈ (Base‘𝐾)∀𝑐 ∈ (Base‘𝐾)(𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)) ↔ (𝐾 ∈ V ∧ ∀𝑎 ∈ (Base‘𝐾)∀𝑏 ∈ (Base‘𝐾)∀𝑐 ∈ (Base‘𝐾)(𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐)))))
65		pospropd.lv	. . . . 5 ⊢ (𝜑 → 𝐿 ∈ 𝑊)
66		elex 3185	. . . . 5 ⊢ (𝐿 ∈ 𝑊 → 𝐿 ∈ V)
67	65, 66	syl 17	. . . 4 ⊢ (𝜑 → 𝐿 ∈ V)
68	67	biantrurd 528	. . 3 ⊢ (𝜑 → (∀𝑎 ∈ (Base‘𝐿)∀𝑏 ∈ (Base‘𝐿)∀𝑐 ∈ (Base‘𝐿)(𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐)) ↔ (𝐿 ∈ V ∧ ∀𝑎 ∈ (Base‘𝐿)∀𝑏 ∈ (Base‘𝐿)∀𝑐 ∈ (Base‘𝐿)(𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐)))))
69	60, 64, 68	3bitr3d 297	. 2 ⊢ (𝜑 → ((𝐾 ∈ V ∧ ∀𝑎 ∈ (Base‘𝐾)∀𝑏 ∈ (Base‘𝐾)∀𝑐 ∈ (Base‘𝐾)(𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐))) ↔ (𝐿 ∈ V ∧ ∀𝑎 ∈ (Base‘𝐿)∀𝑏 ∈ (Base‘𝐿)∀𝑐 ∈ (Base‘𝐿)(𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐)))))
70		eqid 2610	. . 3 ⊢ (Base‘𝐾) = (Base‘𝐾)
71		eqid 2610	. . 3 ⊢ (le‘𝐾) = (le‘𝐾)
72	70, 71	ispos 16770	. 2 ⊢ (𝐾 ∈ Poset ↔ (𝐾 ∈ V ∧ ∀𝑎 ∈ (Base‘𝐾)∀𝑏 ∈ (Base‘𝐾)∀𝑐 ∈ (Base‘𝐾)(𝑎(le‘𝐾)𝑎 ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐾)𝑏 ∧ 𝑏(le‘𝐾)𝑐) → 𝑎(le‘𝐾)𝑐))))
73		eqid 2610	. . 3 ⊢ (Base‘𝐿) = (Base‘𝐿)
74		eqid 2610	. . 3 ⊢ (le‘𝐿) = (le‘𝐿)
75	73, 74	ispos 16770	. 2 ⊢ (𝐿 ∈ Poset ↔ (𝐿 ∈ V ∧ ∀𝑎 ∈ (Base‘𝐿)∀𝑏 ∈ (Base‘𝐿)∀𝑐 ∈ (Base‘𝐿)(𝑎(le‘𝐿)𝑎 ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑎) → 𝑎 = 𝑏) ∧ ((𝑎(le‘𝐿)𝑏 ∧ 𝑏(le‘𝐿)𝑐) → 𝑎(le‘𝐿)𝑐))))
76	69, 72, 75	3bitr4g 302	1 ⊢ (𝜑 → (𝐾 ∈ Poset ↔ 𝐿 ∈ Poset))

Syntax hints:   → wi 4   ↔ wb 195   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977  ∀wral 2896  Vcvv 3173   class class class wbr 4583  ‘cfv 5804  Basecbs 15695  lecple 15775  Posetcpo 16763

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-nul 4717

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ral 2901  df-rex 2902  df-rab 2905  df-v 3175  df-sbc 3403  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-br 4584  df-iota 5768  df-fv 5812  df-poset 16769

This theorem is referenced by:  oduposb  16959