Metamath Proof Explorer


Theorem cdleml2N

Description: Part of proof of Lemma L of Crawley p. 120. TODO: fix comment. (Contributed by NM, 1-Aug-2013) (New usage is discouraged.)

Ref Expression
Hypotheses cdleml1.b 𝐵 = ( Base ‘ 𝐾 )
cdleml1.h 𝐻 = ( LHyp ‘ 𝐾 )
cdleml1.t 𝑇 = ( ( LTrn ‘ 𝐾 ) ‘ 𝑊 )
cdleml1.r 𝑅 = ( ( trL ‘ 𝐾 ) ‘ 𝑊 )
cdleml1.e 𝐸 = ( ( TEndo ‘ 𝐾 ) ‘ 𝑊 )
Assertion cdleml2N ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ∧ ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ) ) → ∃ 𝑠𝐸 ( 𝑠 ‘ ( 𝑈𝑓 ) ) = ( 𝑉𝑓 ) )

Proof

Step Hyp Ref Expression
1 cdleml1.b 𝐵 = ( Base ‘ 𝐾 )
2 cdleml1.h 𝐻 = ( LHyp ‘ 𝐾 )
3 cdleml1.t 𝑇 = ( ( LTrn ‘ 𝐾 ) ‘ 𝑊 )
4 cdleml1.r 𝑅 = ( ( trL ‘ 𝐾 ) ‘ 𝑊 )
5 cdleml1.e 𝐸 = ( ( TEndo ‘ 𝐾 ) ‘ 𝑊 )
6 simp1 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ∧ ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ) ) → ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) )
7 simp21 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ∧ ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ) ) → 𝑈𝐸 )
8 simp23 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ∧ ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ) ) → 𝑓𝑇 )
9 2 3 5 tendocl ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝑈𝐸𝑓𝑇 ) → ( 𝑈𝑓 ) ∈ 𝑇 )
10 6 7 8 9 syl3anc ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ∧ ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ) ) → ( 𝑈𝑓 ) ∈ 𝑇 )
11 simp22 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ∧ ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ) ) → 𝑉𝐸 )
12 2 3 5 tendocl ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝑉𝐸𝑓𝑇 ) → ( 𝑉𝑓 ) ∈ 𝑇 )
13 6 11 8 12 syl3anc ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ∧ ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ) ) → ( 𝑉𝑓 ) ∈ 𝑇 )
14 1 2 3 4 5 cdleml1N ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ∧ ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ) ) → ( 𝑅 ‘ ( 𝑈𝑓 ) ) = ( 𝑅 ‘ ( 𝑉𝑓 ) ) )
15 2 3 4 5 cdlemk ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( ( 𝑈𝑓 ) ∈ 𝑇 ∧ ( 𝑉𝑓 ) ∈ 𝑇 ) ∧ ( 𝑅 ‘ ( 𝑈𝑓 ) ) = ( 𝑅 ‘ ( 𝑉𝑓 ) ) ) → ∃ 𝑠𝐸 ( 𝑠 ‘ ( 𝑈𝑓 ) ) = ( 𝑉𝑓 ) )
16 6 10 13 14 15 syl121anc ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ∧ ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ) ) → ∃ 𝑠𝐸 ( 𝑠 ‘ ( 𝑈𝑓 ) ) = ( 𝑉𝑓 ) )