Theorem cvlexch1 40026

Description: An atomic covering lattice has the exchange property. (Contributed by NM, 6-Nov-2011.)

Hypotheses

Ref	Expression
cvlexch.b	⊢ 𝐵 = (Base‘𝐾)
cvlexch.l	⊢ ≤ = (le‘𝐾)
cvlexch.j	⊢ ∨ = (join‘𝐾)
cvlexch.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
cvlexch1	⊢ ((𝐾 ∈ CvLat ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ ¬ 𝑃 ≤ 𝑋) → (𝑃 ≤ (𝑋 ∨ 𝑄) → 𝑄 ≤ (𝑋 ∨ 𝑃)))

Proof of Theorem cvlexch1

Dummy variables 𝑞 𝑝 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		cvlexch.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
2		cvlexch.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
3		cvlexch.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
4		cvlexch.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
5	1, 2, 3, 4	iscvlat 40021	. . . . 5 ⊢ (𝐾 ∈ CvLat ↔ (𝐾 ∈ AtLat ∧ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ∀𝑥 ∈ 𝐵 ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝))))
6	5	simprbi 502	. . . 4 ⊢ (𝐾 ∈ CvLat → ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ∀𝑥 ∈ 𝐵 ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝)))
7		breq1 5116	. . . . . . . 8 ⊢ (𝑝 = 𝑃 → (𝑝 ≤ 𝑥 ↔ 𝑃 ≤ 𝑥))
8	7	notbid 321	. . . . . . 7 ⊢ (𝑝 = 𝑃 → (¬ 𝑝 ≤ 𝑥 ↔ ¬ 𝑃 ≤ 𝑥))
9		breq1 5116	. . . . . . 7 ⊢ (𝑝 = 𝑃 → (𝑝 ≤ (𝑥 ∨ 𝑞) ↔ 𝑃 ≤ (𝑥 ∨ 𝑞)))
10	8, 9	anbi12d 643	. . . . . 6 ⊢ (𝑝 = 𝑃 → ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) ↔ (¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑞))))
11		oveq2 7419	. . . . . . 7 ⊢ (𝑝 = 𝑃 → (𝑥 ∨ 𝑝) = (𝑥 ∨ 𝑃))
12	11	breq2d 5125	. . . . . 6 ⊢ (𝑝 = 𝑃 → (𝑞 ≤ (𝑥 ∨ 𝑝) ↔ 𝑞 ≤ (𝑥 ∨ 𝑃)))
13	10, 12	imbi12d 347	. . . . 5 ⊢ (𝑝 = 𝑃 → (((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝)) ↔ ((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑃))))
14		oveq2 7419	. . . . . . . 8 ⊢ (𝑞 = 𝑄 → (𝑥 ∨ 𝑞) = (𝑥 ∨ 𝑄))
15	14	breq2d 5125	. . . . . . 7 ⊢ (𝑞 = 𝑄 → (𝑃 ≤ (𝑥 ∨ 𝑞) ↔ 𝑃 ≤ (𝑥 ∨ 𝑄)))
16	15	anbi2d 641	. . . . . 6 ⊢ (𝑞 = 𝑄 → ((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑞)) ↔ (¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑄))))
17		breq1 5116	. . . . . 6 ⊢ (𝑞 = 𝑄 → (𝑞 ≤ (𝑥 ∨ 𝑃) ↔ 𝑄 ≤ (𝑥 ∨ 𝑃)))
18	16, 17	imbi12d 347	. . . . 5 ⊢ (𝑞 = 𝑄 → (((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑃)) ↔ ((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑄)) → 𝑄 ≤ (𝑥 ∨ 𝑃))))
19		breq2 5117	. . . . . . . 8 ⊢ (𝑥 = 𝑋 → (𝑃 ≤ 𝑥 ↔ 𝑃 ≤ 𝑋))
20	19	notbid 321	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (¬ 𝑃 ≤ 𝑥 ↔ ¬ 𝑃 ≤ 𝑋))
21		oveq1 7418	. . . . . . . 8 ⊢ (𝑥 = 𝑋 → (𝑥 ∨ 𝑄) = (𝑋 ∨ 𝑄))
22	21	breq2d 5125	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (𝑃 ≤ (𝑥 ∨ 𝑄) ↔ 𝑃 ≤ (𝑋 ∨ 𝑄)))
23	20, 22	anbi12d 643	. . . . . 6 ⊢ (𝑥 = 𝑋 → ((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑄)) ↔ (¬ 𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))))
24		oveq1 7418	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (𝑥 ∨ 𝑃) = (𝑋 ∨ 𝑃))
25	24	breq2d 5125	. . . . . 6 ⊢ (𝑥 = 𝑋 → (𝑄 ≤ (𝑥 ∨ 𝑃) ↔ 𝑄 ≤ (𝑋 ∨ 𝑃)))
26	23, 25	imbi12d 347	. . . . 5 ⊢ (𝑥 = 𝑋 → (((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑄)) → 𝑄 ≤ (𝑥 ∨ 𝑃)) ↔ ((¬ 𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑄 ≤ (𝑋 ∨ 𝑃))))
27	13, 18, 26	rspc3v 3606	. . . 4 ⊢ ((𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ∀𝑥 ∈ 𝐵 ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝)) → ((¬ 𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑄 ≤ (𝑋 ∨ 𝑃))))
28	6, 27	mpan9 515	. . 3 ⊢ ((𝐾 ∈ CvLat ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵)) → ((¬ 𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑄 ≤ (𝑋 ∨ 𝑃)))
29	28	exp4b 435	. 2 ⊢ (𝐾 ∈ CvLat → ((𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (¬ 𝑃 ≤ 𝑋 → (𝑃 ≤ (𝑋 ∨ 𝑄) → 𝑄 ≤ (𝑋 ∨ 𝑃)))))
30	29	3imp 1126	1 ⊢ ((𝐾 ∈ CvLat ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ ¬ 𝑃 ≤ 𝑋) → (𝑃 ≤ (𝑋 ∨ 𝑄) → 𝑄 ≤ (𝑋 ∨ 𝑃)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149  ∀wral 3085   class class class wbr 5113  ‘cfv 6537  (class class class)co 7411  Basecbs 17269  lecple 17317  joincjn 18367  Atomscatm 39961  AtLatcal 39962  CvLatclc 39963

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-ext 2741

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-sb 2098  df-clab 2748  df-cleq 2761  df-clel 2844  df-ral 3086  df-rab 3424  df-v 3465  df-dif 3916  df-un 3918  df-ss 3930  df-nul 4295  df-if 4493  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-br 5114  df-iota 6493  df-fv 6545  df-ov 7414  df-cvlat 40020

This theorem is referenced by:  cvlexch2  40027  cvlexchb1  40028  cvlexch3  40030  cvlcvr1  40037  hlexch1  40080