cdlemg2ce - Mathbox for Norm Megill

	Mathbox for Norm Megill		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > cdlemg2ce		Structured version Visualization version GIF version

Theorem cdlemg2ce 40848

Description: Utility theorem to eliminate p,q when converting theorems with explicit f. TODO: fix comment. (Contributed by NM, 22-Apr-2013.)

**Hypotheses**
Ref	Expression
cdlemg2.b	⊢ 𝐵 = (Base‘𝐾)
cdlemg2.l	⊢ ≤ = (le‘𝐾)
cdlemg2.j	⊢ ∨ = (join‘𝐾)
cdlemg2.m	⊢ ∧ = (meet‘𝐾)
cdlemg2.a	⊢ 𝐴 = (Atoms‘𝐾)
cdlemg2.h	⊢ 𝐻 = (LHyp‘𝐾)
cdlemg2.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg2ex.u	⊢ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊)
cdlemg2ex.d	⊢ 𝐷 = ((𝑡 ∨ 𝑈) ∧ (𝑞 ∨ ((𝑝 ∨ 𝑡) ∧ 𝑊)))
cdlemg2ex.e	⊢ 𝐸 = ((𝑝 ∨ 𝑞) ∧ (𝐷 ∨ ((𝑠 ∨ 𝑡) ∧ 𝑊)))
cdlemg2ex.g	⊢ 𝐺 = (𝑥 ∈ 𝐵 ↦ if((𝑝 ≠ 𝑞 ∧ ¬ 𝑥 ≤ 𝑊), (℩𝑧 ∈ 𝐵 ∀𝑠 ∈ 𝐴 ((¬ 𝑠 ≤ 𝑊 ∧ (𝑠 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 ≤ (𝑝 ∨ 𝑞), (℩𝑦 ∈ 𝐵 ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑝 ∨ 𝑞)) → 𝑦 = 𝐸)), ⦋𝑠 / 𝑡⦌𝐷) ∨ (𝑥 ∧ 𝑊)))), 𝑥))
cdlemg2ce.p	⊢ (𝐹 = 𝐺 → (𝜓 ↔ 𝜒))
cdlemg2ce.c	⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) ∧ 𝜑) → 𝜒)

**Assertion**
Ref	Expression
cdlemg2ce	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) → 𝜓)

Distinct variable groups: ∧ ,𝑠,𝑡,𝑥,𝑦,𝑧 𝐾,𝑠,𝑡,𝑥,𝑦,𝑧 𝑈,𝑠,𝑡,𝑥,𝑦,𝑧 𝑊,𝑠,𝑡,𝑥,𝑦,𝑧 ∨ ,𝑠,𝑡,𝑥,𝑦,𝑧 𝐵,𝑠,𝑡,𝑥,𝑦,𝑧 𝐴,𝑠,𝑡,𝑥,𝑦,𝑧 ≤ ,𝑠,𝑡,𝑥,𝑦,𝑧 𝐻,𝑠,𝑡,𝑥,𝑦,𝑧 𝑥,𝐸,𝑦,𝑧 𝐷,𝑠,𝑥,𝑦,𝑧 𝑞,𝑝,𝐴 𝐹,𝑝,𝑞 𝐻,𝑝,𝑞 𝐾,𝑝,𝑞 ≤ ,𝑝,𝑞 𝑇,𝑝,𝑞 𝑊,𝑝,𝑞,𝑠,𝑡,𝑥,𝑦,𝑧 𝜑,𝑝,𝑞 𝜓,𝑝,𝑞 Allowed substitution hints: 𝜑(𝑥,𝑦,𝑧,𝑡,𝑠) 𝜓(𝑥,𝑦,𝑧,𝑡,𝑠) 𝜒(𝑥,𝑦,𝑧,𝑡,𝑠,𝑞,𝑝) 𝐵(𝑞,𝑝) 𝐷(𝑡,𝑞,𝑝) 𝑇(𝑥,𝑦,𝑧,𝑡,𝑠) 𝑈(𝑞,𝑝) 𝐸(𝑡,𝑠,𝑞,𝑝) 𝐹(𝑥,𝑦,𝑧,𝑡,𝑠) 𝐺(𝑥,𝑦,𝑧,𝑡,𝑠,𝑞,𝑝) ∨ (𝑞,𝑝) ∧ (𝑞,𝑝)

**Proof of Theorem cdlemg2ce**
Step	Hyp	Ref	Expression
1		simp2 1137	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) → 𝐹 ∈ 𝑇)
2		cdlemg2.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐾)
3		cdlemg2.l	. . . . 5 ⊢ ≤ = (le‘𝐾)
4		cdlemg2.j	. . . . 5 ⊢ ∨ = (join‘𝐾)
5		cdlemg2.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
6		cdlemg2.a	. . . . 5 ⊢ 𝐴 = (Atoms‘𝐾)
7		cdlemg2.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
8		cdlemg2.t	. . . . 5 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
9		cdlemg2ex.u	. . . . 5 ⊢ 𝑈 = ((𝑝 ∨ 𝑞) ∧ 𝑊)
10		cdlemg2ex.d	. . . . 5 ⊢ 𝐷 = ((𝑡 ∨ 𝑈) ∧ (𝑞 ∨ ((𝑝 ∨ 𝑡) ∧ 𝑊)))
11		cdlemg2ex.e	. . . . 5 ⊢ 𝐸 = ((𝑝 ∨ 𝑞) ∧ (𝐷 ∨ ((𝑠 ∨ 𝑡) ∧ 𝑊)))
12		cdlemg2ex.g	. . . . 5 ⊢ 𝐺 = (𝑥 ∈ 𝐵 ↦ if((𝑝 ≠ 𝑞 ∧ ¬ 𝑥 ≤ 𝑊), (℩𝑧 ∈ 𝐵 ∀𝑠 ∈ 𝐴 ((¬ 𝑠 ≤ 𝑊 ∧ (𝑠 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 ≤ (𝑝 ∨ 𝑞), (℩𝑦 ∈ 𝐵 ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑝 ∨ 𝑞)) → 𝑦 = 𝐸)), ⦋𝑠 / 𝑡⦌𝐷) ∨ (𝑥 ∧ 𝑊)))), 𝑥))
13	2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12	cdlemg2cex 40847	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐹 ∈ 𝑇 ↔ ∃𝑝 ∈ 𝐴 ∃𝑞 ∈ 𝐴 (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)))
14	13	3ad2ant1 1133	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) → (𝐹 ∈ 𝑇 ↔ ∃𝑝 ∈ 𝐴 ∃𝑞 ∈ 𝐴 (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)))
15	1, 14	mpbid 232	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) → ∃𝑝 ∈ 𝐴 ∃𝑞 ∈ 𝐴 (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺))
16		simp11 1204	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
17		simp2l 1200	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → 𝑝 ∈ 𝐴)
18		simp31 1210	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → ¬ 𝑝 ≤ 𝑊)
19	17, 18	jca 511	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → (𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊))
20		simp2r 1201	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → 𝑞 ∈ 𝐴)
21		simp32 1211	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → ¬ 𝑞 ≤ 𝑊)
22	20, 21	jca 511	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊))
23		simp13 1206	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → 𝜑)
24		cdlemg2ce.c	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑝 ∈ 𝐴 ∧ ¬ 𝑝 ≤ 𝑊) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) ∧ 𝜑) → 𝜒)
25	16, 19, 22, 23, 24	syl31anc 1375	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → 𝜒)
26		simp33 1212	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → 𝐹 = 𝐺)
27		cdlemg2ce.p	. . . . . 6 ⊢ (𝐹 = 𝐺 → (𝜓 ↔ 𝜒))
28	26, 27	syl 17	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → (𝜓 ↔ 𝜒))
29	25, 28	mpbird 257	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺)) → 𝜓)
30	29	3exp 1119	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) → ((𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) → ((¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺) → 𝜓)))
31	30	rexlimdvv 3192	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) → (∃𝑝 ∈ 𝐴 ∃𝑞 ∈ 𝐴 (¬ 𝑝 ≤ 𝑊 ∧ ¬ 𝑞 ≤ 𝑊 ∧ 𝐹 = 𝐺) → 𝜓))
32	15, 31	mpd 15	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝜑) → 𝜓)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1541 ∈ wcel 2113 ≠ wne 2932 ∀wral 3051 ∃wrex 3060 ⦋csb 3849 ifcif 4479 class class class wbr 5098 ↦ cmpt 5179 ‘cfv 6492 ℩crio 7314 (class class class)co 7358 Basecbs 17136 lecple 17184 joincjn 18234 meetcmee 18235 Atomscatm 39519 HLchlt 39606 LHypclh 40240 LTrncltrn 40357

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 2184 ax-ext 2708 ax-rep 5224 ax-sep 5241 ax-nul 5251 ax-pow 5310 ax-pr 5377 ax-un 7680 ax-riotaBAD 39209

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 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-ral 3052 df-rex 3061 df-rmo 3350 df-reu 3351 df-rab 3400 df-v 3442 df-sbc 3741 df-csb 3850 df-dif 3904 df-un 3906 df-in 3908 df-ss 3918 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4581 df-pr 4583 df-op 4587 df-uni 4864 df-iun 4948 df-iin 4949 df-br 5099 df-opab 5161 df-mpt 5180 df-id 5519 df-xp 5630 df-rel 5631 df-cnv 5632 df-co 5633 df-dm 5634 df-rn 5635 df-res 5636 df-ima 5637 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-riota 7315 df-ov 7361 df-oprab 7362 df-mpo 7363 df-1st 7933 df-2nd 7934 df-undef 8215 df-map 8765 df-proset 18217 df-poset 18236 df-plt 18251 df-lub 18267 df-glb 18268 df-join 18269 df-meet 18270 df-p0 18346 df-p1 18347 df-lat 18355 df-clat 18422 df-oposet 39432 df-ol 39434 df-oml 39435 df-covers 39522 df-ats 39523 df-atl 39554 df-cvlat 39578 df-hlat 39607 df-llines 39754 df-lplanes 39755 df-lvols 39756 df-lines 39757 df-psubsp 39759 df-pmap 39760 df-padd 40052 df-lhyp 40244 df-laut 40245 df-ldil 40360 df-ltrn 40361 df-trl 40415

This theorem is referenced by: cdlemg2jlemOLDN 40849 cdlemg2fvlem 40850 cdlemg2klem 40851

W3C validator