Theorem cvlexch1 39733

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 39728	. . . . 5 ⊢ (𝐾 ∈ CvLat ↔ (𝐾 ∈ AtLat ∧ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ∀𝑥 ∈ 𝐵 ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝))))
6	5	simprbi 497	. . . 4 ⊢ (𝐾 ∈ CvLat → ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ∀𝑥 ∈ 𝐵 ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝)))
7		breq1 5103	. . . . . . . 8 ⊢ (𝑝 = 𝑃 → (𝑝 ≤ 𝑥 ↔ 𝑃 ≤ 𝑥))
8	7	notbid 318	. . . . . . 7 ⊢ (𝑝 = 𝑃 → (¬ 𝑝 ≤ 𝑥 ↔ ¬ 𝑃 ≤ 𝑥))
9		breq1 5103	. . . . . . 7 ⊢ (𝑝 = 𝑃 → (𝑝 ≤ (𝑥 ∨ 𝑞) ↔ 𝑃 ≤ (𝑥 ∨ 𝑞)))
10	8, 9	anbi12d 633	. . . . . 6 ⊢ (𝑝 = 𝑃 → ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) ↔ (¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑞))))
11		oveq2 7378	. . . . . . 7 ⊢ (𝑝 = 𝑃 → (𝑥 ∨ 𝑝) = (𝑥 ∨ 𝑃))
12	11	breq2d 5112	. . . . . 6 ⊢ (𝑝 = 𝑃 → (𝑞 ≤ (𝑥 ∨ 𝑝) ↔ 𝑞 ≤ (𝑥 ∨ 𝑃)))
13	10, 12	imbi12d 344	. . . . 5 ⊢ (𝑝 = 𝑃 → (((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝)) ↔ ((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑃))))
14		oveq2 7378	. . . . . . . 8 ⊢ (𝑞 = 𝑄 → (𝑥 ∨ 𝑞) = (𝑥 ∨ 𝑄))
15	14	breq2d 5112	. . . . . . 7 ⊢ (𝑞 = 𝑄 → (𝑃 ≤ (𝑥 ∨ 𝑞) ↔ 𝑃 ≤ (𝑥 ∨ 𝑄)))
16	15	anbi2d 631	. . . . . 6 ⊢ (𝑞 = 𝑄 → ((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑞)) ↔ (¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑄))))
17		breq1 5103	. . . . . 6 ⊢ (𝑞 = 𝑄 → (𝑞 ≤ (𝑥 ∨ 𝑃) ↔ 𝑄 ≤ (𝑥 ∨ 𝑃)))
18	16, 17	imbi12d 344	. . . . 5 ⊢ (𝑞 = 𝑄 → (((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑃)) ↔ ((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑄)) → 𝑄 ≤ (𝑥 ∨ 𝑃))))
19		breq2 5104	. . . . . . . 8 ⊢ (𝑥 = 𝑋 → (𝑃 ≤ 𝑥 ↔ 𝑃 ≤ 𝑋))
20	19	notbid 318	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (¬ 𝑃 ≤ 𝑥 ↔ ¬ 𝑃 ≤ 𝑋))
21		oveq1 7377	. . . . . . . 8 ⊢ (𝑥 = 𝑋 → (𝑥 ∨ 𝑄) = (𝑋 ∨ 𝑄))
22	21	breq2d 5112	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (𝑃 ≤ (𝑥 ∨ 𝑄) ↔ 𝑃 ≤ (𝑋 ∨ 𝑄)))
23	20, 22	anbi12d 633	. . . . . 6 ⊢ (𝑥 = 𝑋 → ((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑄)) ↔ (¬ 𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))))
24		oveq1 7377	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (𝑥 ∨ 𝑃) = (𝑋 ∨ 𝑃))
25	24	breq2d 5112	. . . . . 6 ⊢ (𝑥 = 𝑋 → (𝑄 ≤ (𝑥 ∨ 𝑃) ↔ 𝑄 ≤ (𝑋 ∨ 𝑃)))
26	23, 25	imbi12d 344	. . . . 5 ⊢ (𝑥 = 𝑋 → (((¬ 𝑃 ≤ 𝑥 ∧ 𝑃 ≤ (𝑥 ∨ 𝑄)) → 𝑄 ≤ (𝑥 ∨ 𝑃)) ↔ ((¬ 𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑄 ≤ (𝑋 ∨ 𝑃))))
27	13, 18, 26	rspc3v 3594	. . . 4 ⊢ ((𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ∀𝑥 ∈ 𝐵 ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝)) → ((¬ 𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑄 ≤ (𝑋 ∨ 𝑃))))
28	6, 27	mpan9 506	. . 3 ⊢ ((𝐾 ∈ CvLat ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵)) → ((¬ 𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑄 ≤ (𝑋 ∨ 𝑃)))
29	28	exp4b 430	. 2 ⊢ (𝐾 ∈ CvLat → ((𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (¬ 𝑃 ≤ 𝑋 → (𝑃 ≤ (𝑋 ∨ 𝑄) → 𝑄 ≤ (𝑋 ∨ 𝑃)))))
30	29	3imp 1111	1 ⊢ ((𝐾 ∈ CvLat ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) ∧ ¬ 𝑃 ≤ 𝑋) → (𝑃 ≤ (𝑋 ∨ 𝑄) → 𝑄 ≤ (𝑋 ∨ 𝑃)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  ∀wral 3052   class class class wbr 5100  ‘cfv 6502  (class class class)co 7370  Basecbs 17150  lecple 17198  joincjn 18248  Atomscatm 39668  AtLatcal 39669  CvLatclc 39670

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-ext 2709

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-sb 2069  df-clab 2716  df-cleq 2729  df-clel 2812  df-ral 3053  df-rab 3402  df-v 3444  df-dif 3906  df-un 3908  df-ss 3920  df-nul 4288  df-if 4482  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-br 5101  df-iota 6458  df-fv 6510  df-ov 7373  df-cvlat 39727

This theorem is referenced by:  cvlexch2  39734  cvlexchb1  39735  cvlexch3  39737  cvlcvr1  39744  hlexch1  39787