Theorem ltrnfset 40919

Description: The set of all lattice translations for a lattice 𝐾. (Contributed by NM, 11-May-2012.)

Hypotheses

Ref	Expression
ltrnset.l	⊢ ≤ = (le‘𝐾)
ltrnset.j	⊢ ∨ = (join‘𝐾)
ltrnset.m	⊢ ∧ = (meet‘𝐾)
ltrnset.a	⊢ 𝐴 = (Atoms‘𝐾)
ltrnset.h	⊢ 𝐻 = (LHyp‘𝐾)

Assertion

Ref	Expression
ltrnfset	⊢ (𝐾 ∈ 𝐶 → (LTrn‘𝐾) = (𝑤 ∈ 𝐻 ↦ {𝑓 ∈ ((LDil‘𝐾)‘𝑤) ∣ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))}))

Distinct variable groups:   𝑞,𝑝,𝐴   𝑤,𝐻   𝑓,𝑝,𝑞,𝑤,𝐾

Allowed substitution hints:   𝐴(𝑤, 𝑓)   𝐶(𝑤, 𝑓, 𝑞, 𝑝)   𝐻(𝑓, 𝑞, 𝑝)   ∨ (𝑤, 𝑓, 𝑞, 𝑝)   ≤ (𝑤, 𝑓, 𝑞, 𝑝)   ∧ (𝑤, 𝑓, 𝑞, 𝑝)

Proof of Theorem ltrnfset

Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		elex 3476	. 2 ⊢ (𝐾 ∈ 𝐶 → 𝐾 ∈ V)
2		fveq2 6881	. . . . 5 ⊢ (𝑘 = 𝐾 → (LHyp‘𝑘) = (LHyp‘𝐾))
3		ltrnset.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
4	2, 3	eqtr4di 2816	. . . 4 ⊢ (𝑘 = 𝐾 → (LHyp‘𝑘) = 𝐻)
5		fveq2 6881	. . . . . 6 ⊢ (𝑘 = 𝐾 → (LDil‘𝑘) = (LDil‘𝐾))
6	5	fveq1d 6883	. . . . 5 ⊢ (𝑘 = 𝐾 → ((LDil‘𝑘)‘𝑤) = ((LDil‘𝐾)‘𝑤))
7		fveq2 6881	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = (Atoms‘𝐾))
8		ltrnset.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
9	7, 8	eqtr4di 2816	. . . . . 6 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = 𝐴)
10		fveq2 6881	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = (le‘𝐾))
11		ltrnset.l	. . . . . . . . . . . 12 ⊢ ≤ = (le‘𝐾)
12	10, 11	eqtr4di 2816	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = ≤ )
13	12	breqd 5120	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑝(le‘𝑘)𝑤 ↔ 𝑝 ≤ 𝑤))
14	13	notbid 321	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (¬ 𝑝(le‘𝑘)𝑤 ↔ ¬ 𝑝 ≤ 𝑤))
15	12	breqd 5120	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑞(le‘𝑘)𝑤 ↔ 𝑞 ≤ 𝑤))
16	15	notbid 321	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (¬ 𝑞(le‘𝑘)𝑤 ↔ ¬ 𝑞 ≤ 𝑤))
17	14, 16	anbi12d 643	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → ((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) ↔ (¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤)))
18		fveq2 6881	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (meet‘𝑘) = (meet‘𝐾))
19		ltrnset.m	. . . . . . . . . . 11 ⊢ ∧ = (meet‘𝐾)
20	18, 19	eqtr4di 2816	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (meet‘𝑘) = ∧ )
21		fveq2 6881	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = (join‘𝐾))
22		ltrnset.j	. . . . . . . . . . . 12 ⊢ ∨ = (join‘𝐾)
23	21, 22	eqtr4di 2816	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = ∨ )
24	23	oveqd 7427	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑝(join‘𝑘)(𝑓‘𝑝)) = (𝑝 ∨ (𝑓‘𝑝)))
25		eqidd 2764	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → 𝑤 = 𝑤)
26	20, 24, 25	oveq123d 7431	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤))
27	23	oveqd 7427	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑞(join‘𝑘)(𝑓‘𝑞)) = (𝑞 ∨ (𝑓‘𝑞)))
28	20, 27, 25	oveq123d 7431	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))
29	26, 28	eqeq12d 2779	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤) ↔ ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤)))
30	17, 29	imbi12d 347	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤)) ↔ ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))))
31	9, 30	raleqbidv 3338	. . . . . 6 ⊢ (𝑘 = 𝐾 → (∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤)) ↔ ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))))
32	9, 31	raleqbidv 3338	. . . . 5 ⊢ (𝑘 = 𝐾 → (∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤)) ↔ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))))
33	6, 32	rabeqbidv 3434	. . . 4 ⊢ (𝑘 = 𝐾 → {𝑓 ∈ ((LDil‘𝑘)‘𝑤) ∣ ∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤))} = {𝑓 ∈ ((LDil‘𝐾)‘𝑤) ∣ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))})
34	4, 33	mpteq12dv 5198	. . 3 ⊢ (𝑘 = 𝐾 → (𝑤 ∈ (LHyp‘𝑘) ↦ {𝑓 ∈ ((LDil‘𝑘)‘𝑤) ∣ ∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤))}) = (𝑤 ∈ 𝐻 ↦ {𝑓 ∈ ((LDil‘𝐾)‘𝑤) ∣ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))}))
35		df-ltrn 40907	. . 3 ⊢ LTrn = (𝑘 ∈ V ↦ (𝑤 ∈ (LHyp‘𝑘) ↦ {𝑓 ∈ ((LDil‘𝑘)‘𝑤) ∣ ∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤))}))
36	34, 35, 3	mptfvmpt 7226	. 2 ⊢ (𝐾 ∈ V → (LTrn‘𝐾) = (𝑤 ∈ 𝐻 ↦ {𝑓 ∈ ((LDil‘𝐾)‘𝑤) ∣ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))}))
37	1, 36	syl 18	1 ⊢ (𝐾 ∈ 𝐶 → (LTrn‘𝐾) = (𝑤 ∈ 𝐻 ↦ {𝑓 ∈ ((LDil‘𝐾)‘𝑤) ∣ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))}))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 400   = wceq 1570   ∈ wcel 2143  ∀wral 3079  {crab 3416  Vcvv 3455   class class class wbr 5109   ↦ cmpt 5192  ‘cfv 6536  (class class class)co 7410  lecple 17321  joincjn 18371  meetcmee 18372  Atomscatm 40065  LHypclh 40786  LDilcldil 40902  LTrncltrn 40903

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pr 5404

This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-id 5556  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-ov 7413  df-ltrn 40907

This theorem is used by:  ltrnset  40920