Theorem cdleml9 41156

Description: Part of proof of Lemma L of [Crawley] p. 120. TODO: fix comment. (Contributed by NM, 11-Aug-2013.)

Hypotheses

Ref	Expression
cdleml6.b	⊢ 𝐵 = (Base‘𝐾)
cdleml6.j	⊢ ∨ = (join‘𝐾)
cdleml6.m	⊢ ∧ = (meet‘𝐾)
cdleml6.h	⊢ 𝐻 = (LHyp‘𝐾)
cdleml6.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdleml6.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
cdleml6.p	⊢ 𝑄 = ((oc‘𝐾)‘𝑊)
cdleml6.z	⊢ 𝑍 = ((𝑄 ∨ (𝑅‘𝑏)) ∧ ((ℎ‘𝑄) ∨ (𝑅‘(𝑏 ∘ ◡(𝑠‘ℎ)))))
cdleml6.y	⊢ 𝑌 = ((𝑄 ∨ (𝑅‘𝑔)) ∧ (𝑍 ∨ (𝑅‘(𝑔 ∘ ◡𝑏))))
cdleml6.x	⊢ 𝑋 = (℩𝑧 ∈ 𝑇 ∀𝑏 ∈ 𝑇 ((𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅‘𝑏) ≠ (𝑅‘(𝑠‘ℎ)) ∧ (𝑅‘𝑏) ≠ (𝑅‘𝑔)) → (𝑧‘𝑄) = 𝑌))
cdleml6.u	⊢ 𝑈 = (𝑔 ∈ 𝑇 ↦ if((𝑠‘ℎ) = ℎ, 𝑔, 𝑋))
cdleml6.e	⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
cdleml6.o	⊢ 0 = (𝑓 ∈ 𝑇 ↦ ( I ↾ 𝐵))

Assertion

Ref	Expression
cdleml9	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) → 𝑈 ≠ 0 )

Distinct variable groups:   𝑔,𝑏,𝑧, ∧   ∨ ,𝑏,𝑔,𝑧   𝐵,𝑏,𝑓,𝑔,𝑧   ℎ,𝑏,𝑔,𝑧   𝑠,𝑏,𝑔,𝑧   𝐻,𝑏,𝑔,𝑧   𝐾,𝑏,𝑔,𝑧   𝑄,𝑏,𝑔,𝑧   𝑅,𝑏,𝑔,𝑧   𝑇,𝑏,𝑓,𝑔,𝑧   𝑊,𝑏,𝑔,𝑧   𝑧,𝑌   𝑔,𝑍

Allowed substitution hints:   𝐵(ℎ,𝑠)   𝑄(𝑓,ℎ,𝑠)   𝑅(𝑓,ℎ,𝑠)   𝑇(ℎ,𝑠)   𝑈(𝑧,𝑓,𝑔,ℎ,𝑠,𝑏)   𝐸(𝑧,𝑓,𝑔,ℎ,𝑠,𝑏)   𝐻(𝑓,ℎ,𝑠)   ∨ (𝑓,ℎ,𝑠)   𝐾(𝑓,ℎ,𝑠)   ∧ (𝑓,ℎ,𝑠)   𝑊(𝑓,ℎ,𝑠)   𝑋(𝑧,𝑓,𝑔,ℎ,𝑠,𝑏)   𝑌(𝑓,𝑔,ℎ,𝑠,𝑏)   0 (𝑧,𝑓,𝑔,ℎ,𝑠,𝑏)   𝑍(𝑧,𝑓,ℎ,𝑠,𝑏)

Proof of Theorem cdleml9

Step	Hyp	Ref	Expression
1		cdleml6.b	. . . 4 ⊢ 𝐵 = (Base‘𝐾)
2		cdleml6.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
3		cdleml6.t	. . . 4 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
4		cdleml6.e	. . . 4 ⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
5		cdleml6.o	. . . 4 ⊢ 0 = (𝑓 ∈ 𝑇 ↦ ( I ↾ 𝐵))
6	1, 2, 3, 4, 5	tendo1ne0 41000	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( I ↾ 𝑇) ≠ 0 )
7	6	3ad2ant1 1133	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) → ( I ↾ 𝑇) ≠ 0 )
8		cdleml6.j	. . . . . . 7 ⊢ ∨ = (join‘𝐾)
9		cdleml6.m	. . . . . . 7 ⊢ ∧ = (meet‘𝐾)
10		cdleml6.r	. . . . . . 7 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
11		cdleml6.p	. . . . . . 7 ⊢ 𝑄 = ((oc‘𝐾)‘𝑊)
12		cdleml6.z	. . . . . . 7 ⊢ 𝑍 = ((𝑄 ∨ (𝑅‘𝑏)) ∧ ((ℎ‘𝑄) ∨ (𝑅‘(𝑏 ∘ ◡(𝑠‘ℎ)))))
13		cdleml6.y	. . . . . . 7 ⊢ 𝑌 = ((𝑄 ∨ (𝑅‘𝑔)) ∧ (𝑍 ∨ (𝑅‘(𝑔 ∘ ◡𝑏))))
14		cdleml6.x	. . . . . . 7 ⊢ 𝑋 = (℩𝑧 ∈ 𝑇 ∀𝑏 ∈ 𝑇 ((𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅‘𝑏) ≠ (𝑅‘(𝑠‘ℎ)) ∧ (𝑅‘𝑏) ≠ (𝑅‘𝑔)) → (𝑧‘𝑄) = 𝑌))
15		cdleml6.u	. . . . . . 7 ⊢ 𝑈 = (𝑔 ∈ 𝑇 ↦ if((𝑠‘ℎ) = ℎ, 𝑔, 𝑋))
16	1, 8, 9, 2, 3, 10, 11, 12, 13, 14, 15, 4, 5	cdleml8 41155	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) → (𝑈 ∘ 𝑠) = ( I ↾ 𝑇))
17	16	adantr 480	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) ∧ 𝑈 = 0 ) → (𝑈 ∘ 𝑠) = ( I ↾ 𝑇))
18		coeq1 5803	. . . . . 6 ⊢ (𝑈 = 0 → (𝑈 ∘ 𝑠) = ( 0 ∘ 𝑠))
19		simp1 1136	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
20		simp3l 1202	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) → 𝑠 ∈ 𝐸)
21	1, 2, 3, 4, 5	tendo0mul 40998	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ 𝐸) → ( 0 ∘ 𝑠) = 0 )
22	19, 20, 21	syl2anc 584	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) → ( 0 ∘ 𝑠) = 0 )
23	18, 22	sylan9eqr 2790	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) ∧ 𝑈 = 0 ) → (𝑈 ∘ 𝑠) = 0 )
24	17, 23	eqtr3d 2770	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) ∧ 𝑈 = 0 ) → ( I ↾ 𝑇) = 0 )
25	24	ex 412	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) → (𝑈 = 0 → ( I ↾ 𝑇) = 0 ))
26	25	necon3d 2950	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) → (( I ↾ 𝑇) ≠ 0 → 𝑈 ≠ 0 ))
27	7, 26	mpd 15	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) ∧ (𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 0 )) → 𝑈 ≠ 0 )

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1541   ∈ wcel 2113   ≠ wne 2929  ∀wral 3048  ifcif 4476   ↦ cmpt 5176   I cid 5515  ^◡ccnv 5620   ↾ cres 5623   ∘ ccom 5625  ‘cfv 6489  ℩crio 7311  (class class class)co 7355  Basecbs 17127  occoc 17176  joincjn 18225  meetcmee 18226  HLchlt 39522  LHypclh 40156  LTrncltrn 40273  trLctrl 40330  TEndoctendo 40924

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7677  ax-riotaBAD 39125

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-ral 3049  df-rex 3058  df-rmo 3347  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4283  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4861  df-iun 4945  df-iin 4946  df-br 5096  df-opab 5158  df-mpt 5177  df-id 5516  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-riota 7312  df-ov 7358  df-oprab 7359  df-mpo 7360  df-1st 7930  df-2nd 7931  df-undef 8212  df-map 8761  df-proset 18208  df-poset 18227  df-plt 18242  df-lub 18258  df-glb 18259  df-join 18260  df-meet 18261  df-p0 18337  df-p1 18338  df-lat 18346  df-clat 18413  df-oposet 39348  df-ol 39350  df-oml 39351  df-covers 39438  df-ats 39439  df-atl 39470  df-cvlat 39494  df-hlat 39523  df-llines 39670  df-lplanes 39671  df-lvols 39672  df-lines 39673  df-psubsp 39675  df-pmap 39676  df-padd 39968  df-lhyp 40160  df-laut 40161  df-ldil 40276  df-ltrn 40277  df-trl 40331  df-tendo 40927

This theorem is referenced by: (None)