Theorem cdlemj2 38824

Description: Part of proof of Lemma J of [Crawley] p. 118. Eliminate 𝑝. (Contributed by NM, 20-Jun-2013.)

Hypotheses

Ref	Expression
cdlemj.b	⊢ 𝐵 = (Base‘𝐾)
cdlemj.h	⊢ 𝐻 = (LHyp‘𝐾)
cdlemj.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemj.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemj.e	⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)

Assertion

Ref	Expression
cdlemj2	⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → (𝑈‘ℎ) = (𝑉‘ℎ))

Proof of Theorem cdlemj2

Dummy variable 𝑝 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl1 1190	. . . . 5 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)))
2		simpl2 1191	. . . . 5 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)))
3		simpl3l 1227	. . . . 5 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (𝑅‘𝐹) ≠ (𝑅‘𝑔))
4		simpl3r 1228	. . . . 5 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (𝑅‘𝑔) ≠ (𝑅‘ℎ))
5		simpr 485	. . . . 5 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊))
6		cdlemj.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
7		cdlemj.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
8		cdlemj.t	. . . . . 6 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
9		cdlemj.r	. . . . . 6 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
10		cdlemj.e	. . . . . 6 ⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
11		eqid 2740	. . . . . 6 ⊢ (le‘𝐾) = (le‘𝐾)
12		eqid 2740	. . . . . 6 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
13	6, 7, 8, 9, 10, 11, 12	cdlemj1 38823	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊))) → ((𝑈‘ℎ)‘𝑝) = ((𝑉‘ℎ)‘𝑝))
14	1, 2, 3, 4, 5, 13	syl113anc 1381	. . . 4 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → ((𝑈‘ℎ)‘𝑝) = ((𝑉‘ℎ)‘𝑝))
15	14	exp32 421	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → (𝑝 ∈ (Atoms‘𝐾) → (¬ 𝑝(le‘𝐾)𝑊 → ((𝑈‘ℎ)‘𝑝) = ((𝑉‘ℎ)‘𝑝))))
16	15	ralrimiv 3109	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → ∀𝑝 ∈ (Atoms‘𝐾)(¬ 𝑝(le‘𝐾)𝑊 → ((𝑈‘ℎ)‘𝑝) = ((𝑉‘ℎ)‘𝑝)))
17		simp11 1202	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
18		simp121 1304	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → 𝑈 ∈ 𝐸)
19		simp133 1309	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → ℎ ∈ 𝑇)
20	7, 8, 10	tendocl 38769	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑈 ∈ 𝐸 ∧ ℎ ∈ 𝑇) → (𝑈‘ℎ) ∈ 𝑇)
21	17, 18, 19, 20	syl3anc 1370	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → (𝑈‘ℎ) ∈ 𝑇)
22		simp122 1305	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → 𝑉 ∈ 𝐸)
23	7, 8, 10	tendocl 38769	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑉 ∈ 𝐸 ∧ ℎ ∈ 𝑇) → (𝑉‘ℎ) ∈ 𝑇)
24	17, 22, 19, 23	syl3anc 1370	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → (𝑉‘ℎ) ∈ 𝑇)
25	11, 12, 7, 8	ltrneq 38151	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈‘ℎ) ∈ 𝑇 ∧ (𝑉‘ℎ) ∈ 𝑇) → (∀𝑝 ∈ (Atoms‘𝐾)(¬ 𝑝(le‘𝐾)𝑊 → ((𝑈‘ℎ)‘𝑝) = ((𝑉‘ℎ)‘𝑝)) ↔ (𝑈‘ℎ) = (𝑉‘ℎ)))
26	17, 21, 24, 25	syl3anc 1370	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → (∀𝑝 ∈ (Atoms‘𝐾)(¬ 𝑝(le‘𝐾)𝑊 → ((𝑈‘ℎ)‘𝑝) = ((𝑉‘ℎ)‘𝑝)) ↔ (𝑈‘ℎ) = (𝑉‘ℎ)))
27	16, 26	mpbid 231	1 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑈 ∈ 𝐸 ∧ 𝑉 ∈ 𝐸 ∧ (𝑈‘𝐹) = (𝑉‘𝐹)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ∈ 𝑇)) ∧ (ℎ ≠ ( I ↾ 𝐵) ∧ 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝑔) ∧ (𝑅‘𝑔) ≠ (𝑅‘ℎ))) → (𝑈‘ℎ) = (𝑉‘ℎ))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1086   = wceq 1542   ∈ wcel 2110   ≠ wne 2945  ∀wral 3066   class class class wbr 5079   I cid 5488   ↾ cres 5591  ‘cfv 6431  Basecbs 16902  lecple 16959  Atomscatm 37265  HLchlt 37352  LHypclh 37986  LTrncltrn 38103  trLctrl 38160  TEndoctendo 38754

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 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711  ax-rep 5214  ax-sep 5227  ax-nul 5234  ax-pow 5292  ax-pr 5356  ax-un 7580  ax-riotaBAD 36955

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2072  df-mo 2542  df-eu 2571  df-clab 2718  df-cleq 2732  df-clel 2818  df-nfc 2891  df-ne 2946  df-ral 3071  df-rex 3072  df-reu 3073  df-rmo 3074  df-rab 3075  df-v 3433  df-sbc 3721  df-csb 3838  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4846  df-iun 4932  df-iin 4933  df-br 5080  df-opab 5142  df-mpt 5163  df-id 5489  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-iota 6389  df-fun 6433  df-fn 6434  df-f 6435  df-f1 6436  df-fo 6437  df-f1o 6438  df-fv 6439  df-riota 7226  df-ov 7272  df-oprab 7273  df-mpo 7274  df-1st 7818  df-2nd 7819  df-undef 8074  df-map 8592  df-proset 18003  df-poset 18021  df-plt 18038  df-lub 18054  df-glb 18055  df-join 18056  df-meet 18057  df-p0 18133  df-p1 18134  df-lat 18140  df-clat 18207  df-oposet 37178  df-ol 37180  df-oml 37181  df-covers 37268  df-ats 37269  df-atl 37300  df-cvlat 37324  df-hlat 37353  df-llines 37500  df-lplanes 37501  df-lvols 37502  df-lines 37503  df-psubsp 37505  df-pmap 37506  df-padd 37798  df-lhyp 37990  df-laut 37991  df-ldil 38106  df-ltrn 38107  df-trl 38161  df-tendo 38757

This theorem is referenced by:  cdlemj3  38825