Metamath Proof Explorer


Theorem cdleml3N

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 ‘ 𝐾 ) ‘ 𝑊 )
cdleml3.o 0 = ( 𝑔𝑇 ↦ ( I ↾ 𝐵 ) )
Assertion cdleml3N ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ∃ 𝑠𝐸 ( 𝑠𝑈 ) = 𝑉 )

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 cdleml3.o 0 = ( 𝑔𝑇 ↦ ( I ↾ 𝐵 ) )
7 simp1 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) )
8 simp2 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) )
9 simp31 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → 𝑓 ≠ ( I ↾ 𝐵 ) )
10 simp32 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → 𝑈0 )
11 simp21 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → 𝑈𝐸 )
12 simp23 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → 𝑓𝑇 )
13 1 2 3 5 6 tendoid0 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝑈𝐸 ∧ ( 𝑓𝑇𝑓 ≠ ( I ↾ 𝐵 ) ) ) → ( ( 𝑈𝑓 ) = ( I ↾ 𝐵 ) ↔ 𝑈 = 0 ) )
14 7 11 12 9 13 syl112anc ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ( ( 𝑈𝑓 ) = ( I ↾ 𝐵 ) ↔ 𝑈 = 0 ) )
15 14 necon3bid ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ( ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ↔ 𝑈0 ) )
16 10 15 mpbird ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) )
17 simp33 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → 𝑉0 )
18 simp22 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → 𝑉𝐸 )
19 1 2 3 5 6 tendoid0 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝑉𝐸 ∧ ( 𝑓𝑇𝑓 ≠ ( I ↾ 𝐵 ) ) ) → ( ( 𝑉𝑓 ) = ( I ↾ 𝐵 ) ↔ 𝑉 = 0 ) )
20 7 18 12 9 19 syl112anc ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ( ( 𝑉𝑓 ) = ( I ↾ 𝐵 ) ↔ 𝑉 = 0 ) )
21 20 necon3bid ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ( ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ↔ 𝑉0 ) )
22 17 21 mpbird ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) )
23 1 2 3 4 5 cdleml2N ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑈𝑓 ) ≠ ( I ↾ 𝐵 ) ∧ ( 𝑉𝑓 ) ≠ ( I ↾ 𝐵 ) ) ) → ∃ 𝑠𝐸 ( 𝑠 ‘ ( 𝑈𝑓 ) ) = ( 𝑉𝑓 ) )
24 7 8 9 16 22 23 syl113anc ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ∃ 𝑠𝐸 ( 𝑠 ‘ ( 𝑈𝑓 ) ) = ( 𝑉𝑓 ) )
25 simpl1 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ) → ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) )
26 simpr ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ) → 𝑠𝐸 )
27 simpl21 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ) → 𝑈𝐸 )
28 simpl23 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ) → 𝑓𝑇 )
29 2 3 5 tendocoval ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑠𝐸𝑈𝐸 ) ∧ 𝑓𝑇 ) → ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑠 ‘ ( 𝑈𝑓 ) ) )
30 25 26 27 28 29 syl121anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ) → ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑠 ‘ ( 𝑈𝑓 ) ) )
31 30 eqeq1d ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ) → ( ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ↔ ( 𝑠 ‘ ( 𝑈𝑓 ) ) = ( 𝑉𝑓 ) ) )
32 simp11 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ∧ ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ) → ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) )
33 simp2 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ∧ ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ) → 𝑠𝐸 )
34 simp121 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ∧ ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ) → 𝑈𝐸 )
35 2 5 tendococl ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝑠𝐸𝑈𝐸 ) → ( 𝑠𝑈 ) ∈ 𝐸 )
36 32 33 34 35 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ∧ ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ) → ( 𝑠𝑈 ) ∈ 𝐸 )
37 simp122 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ∧ ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ) → 𝑉𝐸 )
38 simp3 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ∧ ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ) → ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) )
39 simp123 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ∧ ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ) → 𝑓𝑇 )
40 simp131 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ∧ ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ) → 𝑓 ≠ ( I ↾ 𝐵 ) )
41 1 2 3 5 tendocan ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( ( 𝑠𝑈 ) ∈ 𝐸𝑉𝐸 ∧ ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ) ∧ ( 𝑓𝑇𝑓 ≠ ( I ↾ 𝐵 ) ) ) → ( 𝑠𝑈 ) = 𝑉 )
42 32 36 37 38 39 40 41 syl132anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ∧ ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) ) → ( 𝑠𝑈 ) = 𝑉 )
43 42 3expia ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ) → ( ( ( 𝑠𝑈 ) ‘ 𝑓 ) = ( 𝑉𝑓 ) → ( 𝑠𝑈 ) = 𝑉 ) )
44 31 43 sylbird ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) ∧ 𝑠𝐸 ) → ( ( 𝑠 ‘ ( 𝑈𝑓 ) ) = ( 𝑉𝑓 ) → ( 𝑠𝑈 ) = 𝑉 ) )
45 44 reximdva ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ( ∃ 𝑠𝐸 ( 𝑠 ‘ ( 𝑈𝑓 ) ) = ( 𝑉𝑓 ) → ∃ 𝑠𝐸 ( 𝑠𝑈 ) = 𝑉 ) )
46 24 45 mpd ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑈𝐸𝑉𝐸𝑓𝑇 ) ∧ ( 𝑓 ≠ ( I ↾ 𝐵 ) ∧ 𝑈0𝑉0 ) ) → ∃ 𝑠𝐸 ( 𝑠𝑈 ) = 𝑉 )