Theorem ltrnfset 34421

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 3185	. 2 ⊢ (𝐾 ∈ 𝐶 → 𝐾 ∈ V)
2		fveq2 6103	. . . . 5 ⊢ (𝑘 = 𝐾 → (LHyp‘𝑘) = (LHyp‘𝐾))
3		ltrnset.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
4	2, 3	syl6eqr 2662	. . . 4 ⊢ (𝑘 = 𝐾 → (LHyp‘𝑘) = 𝐻)
5		fveq2 6103	. . . . . 6 ⊢ (𝑘 = 𝐾 → (LDil‘𝑘) = (LDil‘𝐾))
6	5	fveq1d 6105	. . . . 5 ⊢ (𝑘 = 𝐾 → ((LDil‘𝑘)‘𝑤) = ((LDil‘𝐾)‘𝑤))
7		fveq2 6103	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = (Atoms‘𝐾))
8		ltrnset.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
9	7, 8	syl6eqr 2662	. . . . . 6 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = 𝐴)
10		fveq2 6103	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = (le‘𝐾))
11		ltrnset.l	. . . . . . . . . . . 12 ⊢ ≤ = (le‘𝐾)
12	10, 11	syl6eqr 2662	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = ≤ )
13	12	breqd 4594	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑝(le‘𝑘)𝑤 ↔ 𝑝 ≤ 𝑤))
14	13	notbid 307	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (¬ 𝑝(le‘𝑘)𝑤 ↔ ¬ 𝑝 ≤ 𝑤))
15	12	breqd 4594	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑞(le‘𝑘)𝑤 ↔ 𝑞 ≤ 𝑤))
16	15	notbid 307	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (¬ 𝑞(le‘𝑘)𝑤 ↔ ¬ 𝑞 ≤ 𝑤))
17	14, 16	anbi12d 743	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → ((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) ↔ (¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤)))
18		fveq2 6103	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (meet‘𝑘) = (meet‘𝐾))
19		ltrnset.m	. . . . . . . . . . 11 ⊢ ∧ = (meet‘𝐾)
20	18, 19	syl6eqr 2662	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (meet‘𝑘) = ∧ )
21		fveq2 6103	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = (join‘𝐾))
22		ltrnset.j	. . . . . . . . . . . 12 ⊢ ∨ = (join‘𝐾)
23	21, 22	syl6eqr 2662	. . . . . . . . . . 11 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = ∨ )
24	23	oveqd 6566	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑝(join‘𝑘)(𝑓‘𝑝)) = (𝑝 ∨ (𝑓‘𝑝)))
25		eqidd 2611	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → 𝑤 = 𝑤)
26	20, 24, 25	oveq123d 6570	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤))
27	23	oveqd 6566	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (𝑞(join‘𝑘)(𝑓‘𝑞)) = (𝑞 ∨ (𝑓‘𝑞)))
28	20, 27, 25	oveq123d 6570	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))
29	26, 28	eqeq12d 2625	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤) ↔ ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤)))
30	17, 29	imbi12d 333	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤)) ↔ ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))))
31	9, 30	raleqbidv 3129	. . . . . 6 ⊢ (𝑘 = 𝐾 → (∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤)) ↔ ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))))
32	9, 31	raleqbidv 3129	. . . . 5 ⊢ (𝑘 = 𝐾 → (∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤)) ↔ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))))
33	6, 32	rabeqbidv 3168	. . . 4 ⊢ (𝑘 = 𝐾 → {𝑓 ∈ ((LDil‘𝑘)‘𝑤) ∣ ∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤))} = {𝑓 ∈ ((LDil‘𝐾)‘𝑤) ∣ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))})
34	4, 33	mpteq12dv 4663	. . 3 ⊢ (𝑘 = 𝐾 → (𝑤 ∈ (LHyp‘𝑘) ↦ {𝑓 ∈ ((LDil‘𝑘)‘𝑤) ∣ ∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤))}) = (𝑤 ∈ 𝐻 ↦ {𝑓 ∈ ((LDil‘𝐾)‘𝑤) ∣ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))}))
35		df-ltrn 34409	. . 3 ⊢ LTrn = (𝑘 ∈ V ↦ (𝑤 ∈ (LHyp‘𝑘) ↦ {𝑓 ∈ ((LDil‘𝑘)‘𝑤) ∣ ∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)((¬ 𝑝(le‘𝑘)𝑤 ∧ ¬ 𝑞(le‘𝑘)𝑤) → ((𝑝(join‘𝑘)(𝑓‘𝑝))(meet‘𝑘)𝑤) = ((𝑞(join‘𝑘)(𝑓‘𝑞))(meet‘𝑘)𝑤))}))
36		fvex 6113	. . . . 5 ⊢ (LHyp‘𝐾) ∈ V
37	3, 36	eqeltri 2684	. . . 4 ⊢ 𝐻 ∈ V
38	37	mptex 6390	. . 3 ⊢ (𝑤 ∈ 𝐻 ↦ {𝑓 ∈ ((LDil‘𝐾)‘𝑤) ∣ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))}) ∈ V
39	34, 35, 38	fvmpt 6191	. 2 ⊢ (𝐾 ∈ V → (LTrn‘𝐾) = (𝑤 ∈ 𝐻 ↦ {𝑓 ∈ ((LDil‘𝐾)‘𝑤) ∣ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))}))
40	1, 39	syl 17	1 ⊢ (𝐾 ∈ 𝐶 → (LTrn‘𝐾) = (𝑤 ∈ 𝐻 ↦ {𝑓 ∈ ((LDil‘𝐾)‘𝑤) ∣ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ((¬ 𝑝 ≤ 𝑤 ∧ ¬ 𝑞 ≤ 𝑤) → ((𝑝 ∨ (𝑓‘𝑝)) ∧ 𝑤) = ((𝑞 ∨ (𝑓‘𝑞)) ∧ 𝑤))}))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 383   = wceq 1475   ∈ wcel 1977  ∀wral 2896  {crab 2900  Vcvv 3173   class class class wbr 4583   ↦ cmpt 4643  ‘cfv 5804  (class class class)co 6549  lecple 15775  joincjn 16767  meetcmee 16768  Atomscatm 33568  LHypclh 34288  LDilcldil 34404  LTrncltrn 34405

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pr 4833

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-reu 2903  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-id 4953  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-ov 6552  df-ltrn 34409

This theorem is referenced by:  ltrnset  34422