dicelvalN - Mathbox for Norm Megill

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

Theorem dicelvalN 41179

Description: Membership in value of the partial isomorphism C for a lattice 𝐾. (Contributed by NM, 25-Feb-2014.) (New usage is discouraged.)

**Hypotheses**
Ref	Expression
dicval.l	⊢ ≤ = (le‘𝐾)
dicval.a	⊢ 𝐴 = (Atoms‘𝐾)
dicval.h	⊢ 𝐻 = (LHyp‘𝐾)
dicval.p	⊢ 𝑃 = ((oc‘𝐾)‘𝑊)
dicval.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
dicval.e	⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
dicval.i	⊢ 𝐼 = ((DIsoC‘𝐾)‘𝑊)

**Assertion**
Ref	Expression
dicelvalN	⊢ (((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑌 ∈ (𝐼‘𝑄) ↔ (𝑌 ∈ (V × V) ∧ ((1^st ‘𝑌) = ((2^nd ‘𝑌)‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)) ∧ (2^nd ‘𝑌) ∈ 𝐸))))

Distinct variable groups: 𝑔,𝐾 𝑇,𝑔 𝑔,𝑊 𝑄,𝑔 Allowed substitution hints: 𝐴(𝑔) 𝑃(𝑔) 𝐸(𝑔) 𝐻(𝑔) 𝐼(𝑔) ≤ (𝑔) 𝑉(𝑔) 𝑌(𝑔)

Proof of Theorem dicelvalN Dummy variables 𝑓 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dicval.l	. . . 4 ⊢ ≤ = (le‘𝐾)
2		dicval.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
3		dicval.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
4		dicval.p	. . . 4 ⊢ 𝑃 = ((oc‘𝐾)‘𝑊)
5		dicval.t	. . . 4 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
6		dicval.e	. . . 4 ⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
7		dicval.i	. . . 4 ⊢ 𝐼 = ((DIsoC‘𝐾)‘𝑊)
8	1, 2, 3, 4, 5, 6, 7	dicval 41177	. . 3 ⊢ (((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐼‘𝑄) = {⟨𝑓, 𝑠⟩ ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)) ∧ 𝑠 ∈ 𝐸)})
9	8	eleq2d 2815	. 2 ⊢ (((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑌 ∈ (𝐼‘𝑄) ↔ 𝑌 ∈ {⟨𝑓, 𝑠⟩ ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)) ∧ 𝑠 ∈ 𝐸)}))
10		vex 3454	. . . . . 6 ⊢ 𝑓 ∈ V
11		vex 3454	. . . . . 6 ⊢ 𝑠 ∈ V
12	10, 11	op1std 7981	. . . . 5 ⊢ (𝑌 = ⟨𝑓, 𝑠⟩ → (1^st ‘𝑌) = 𝑓)
13	10, 11	op2ndd 7982	. . . . . 6 ⊢ (𝑌 = ⟨𝑓, 𝑠⟩ → (2^nd ‘𝑌) = 𝑠)
14	13	fveq1d 6863	. . . . 5 ⊢ (𝑌 = ⟨𝑓, 𝑠⟩ → ((2^nd ‘𝑌)‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)) = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)))
15	12, 14	eqeq12d 2746	. . . 4 ⊢ (𝑌 = ⟨𝑓, 𝑠⟩ → ((1^st ‘𝑌) = ((2^nd ‘𝑌)‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)) ↔ 𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄))))
16	13	eleq1d 2814	. . . 4 ⊢ (𝑌 = ⟨𝑓, 𝑠⟩ → ((2^nd ‘𝑌) ∈ 𝐸 ↔ 𝑠 ∈ 𝐸))
17	15, 16	anbi12d 632	. . 3 ⊢ (𝑌 = ⟨𝑓, 𝑠⟩ → (((1^st ‘𝑌) = ((2^nd ‘𝑌)‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)) ∧ (2^nd ‘𝑌) ∈ 𝐸) ↔ (𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)) ∧ 𝑠 ∈ 𝐸)))
18	17	elopaba 5774	. 2 ⊢ (𝑌 ∈ {⟨𝑓, 𝑠⟩ ∣ (𝑓 = (𝑠‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)) ∧ 𝑠 ∈ 𝐸)} ↔ (𝑌 ∈ (V × V) ∧ ((1^st ‘𝑌) = ((2^nd ‘𝑌)‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)) ∧ (2^nd ‘𝑌) ∈ 𝐸)))
19	9, 18	bitrdi 287	1 ⊢ (((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑌 ∈ (𝐼‘𝑄) ↔ (𝑌 ∈ (V × V) ∧ ((1^st ‘𝑌) = ((2^nd ‘𝑌)‘(℩𝑔 ∈ 𝑇 (𝑔‘𝑃) = 𝑄)) ∧ (2^nd ‘𝑌) ∈ 𝐸))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1540 ∈ wcel 2109 Vcvv 3450 ⟨cop 4598 class class class wbr 5110 {copab 5172 × cxp 5639 ‘cfv 6514 ℩crio 7346 1^st c1st 7969 2^nd c2nd 7970 lecple 17234 occoc 17235 Atomscatm 39263 LHypclh 39985 LTrncltrn 40102 TEndoctendo 40753 DIsoCcdic 41173

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2702 ax-rep 5237 ax-sep 5254 ax-nul 5264 ax-pow 5323 ax-pr 5390 ax-un 7714

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2534 df-eu 2563 df-clab 2709 df-cleq 2722 df-clel 2804 df-nfc 2879 df-ne 2927 df-ral 3046 df-rex 3055 df-reu 3357 df-rab 3409 df-v 3452 df-sbc 3757 df-csb 3866 df-dif 3920 df-un 3922 df-in 3924 df-ss 3934 df-nul 4300 df-if 4492 df-pw 4568 df-sn 4593 df-pr 4595 df-op 4599 df-uni 4875 df-iun 4960 df-br 5111 df-opab 5173 df-mpt 5192 df-id 5536 df-xp 5647 df-rel 5648 df-cnv 5649 df-co 5650 df-dm 5651 df-rn 5652 df-res 5653 df-ima 5654 df-iota 6467 df-fun 6516 df-fn 6517 df-f 6518 df-f1 6519 df-fo 6520 df-f1o 6521 df-fv 6522 df-riota 7347 df-1st 7971 df-2nd 7972 df-dic 41174

This theorem is referenced by: dicelval2N 41183

W3C validator