Theorem cvrval4N 39877

Description: Binary relation expressing 𝑌 covers 𝑋. (Contributed by NM, 16-Jun-2012.) (New usage is discouraged.)

Hypotheses

Ref	Expression
cvrval4.b	⊢ 𝐵 = (Base‘𝐾)
cvrval4.s	⊢ < = (lt‘𝐾)
cvrval4.j	⊢ ∨ = (join‘𝐾)
cvrval4.c	⊢ 𝐶 = ( ⋖ ‘𝐾)
cvrval4.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
cvrval4N	⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ (𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌)))

Distinct variable groups:   < ,𝑝   𝐴,𝑝   𝐵,𝑝   𝐶,𝑝   𝐾,𝑝   𝑋,𝑝   𝑌,𝑝

Allowed substitution hint:   ∨ (𝑝)

Proof of Theorem cvrval4N

Step	Hyp	Ref	Expression
1		cvrval4.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐾)
2		cvrval4.s	. . . . 5 ⊢ < = (lt‘𝐾)
3		cvrval4.c	. . . . 5 ⊢ 𝐶 = ( ⋖ ‘𝐾)
4	1, 2, 3	cvrlt 39733	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋𝐶𝑌) → 𝑋 < 𝑌)
5		eqid 2737	. . . . . . 7 ⊢ (le‘𝐾) = (le‘𝐾)
6		cvrval4.j	. . . . . . 7 ⊢ ∨ = (join‘𝐾)
7		cvrval4.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
8	1, 5, 6, 3, 7	cvrval3 39876	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ ∃𝑝 ∈ 𝐴 (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌)))
9		simpr 484	. . . . . . 7 ⊢ ((¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (𝑋 ∨ 𝑝) = 𝑌)
10	9	reximi 3076	. . . . . 6 ⊢ (∃𝑝 ∈ 𝐴 (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌) → ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌)
11	8, 10	biimtrdi 253	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 → ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌))
12	11	imp 406	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋𝐶𝑌) → ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌)
13	4, 12	jca 511	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋𝐶𝑌) → (𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌))
14	13	ex 412	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 → (𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌)))
15		simp1r 1200	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → 𝑋 < 𝑌)
16		simp3 1139	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (𝑋 ∨ 𝑝) = 𝑌)
17	15, 16	breqtrrd 5114	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → 𝑋 < (𝑋 ∨ 𝑝))
18		simp1l1 1268	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → 𝐾 ∈ HL)
19		simp1l2 1269	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → 𝑋 ∈ 𝐵)
20		simp2 1138	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → 𝑝 ∈ 𝐴)
21	1, 5, 6, 3, 7	cvr1 39873	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐴) → (¬ 𝑝(le‘𝐾)𝑋 ↔ 𝑋𝐶(𝑋 ∨ 𝑝)))
22	18, 19, 20, 21	syl3anc 1374	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (¬ 𝑝(le‘𝐾)𝑋 ↔ 𝑋𝐶(𝑋 ∨ 𝑝)))
23	1, 2, 6, 3, 7	cvr2N 39874	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐴) → (𝑋 < (𝑋 ∨ 𝑝) ↔ 𝑋𝐶(𝑋 ∨ 𝑝)))
24	18, 19, 20, 23	syl3anc 1374	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (𝑋 < (𝑋 ∨ 𝑝) ↔ 𝑋𝐶(𝑋 ∨ 𝑝)))
25	22, 24	bitr4d 282	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (¬ 𝑝(le‘𝐾)𝑋 ↔ 𝑋 < (𝑋 ∨ 𝑝)))
26	17, 25	mpbird 257	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → ¬ 𝑝(le‘𝐾)𝑋)
27	26, 16	jca 511	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌))
28	27	3exp 1120	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) → (𝑝 ∈ 𝐴 → ((𝑋 ∨ 𝑝) = 𝑌 → (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌))))
29	28	reximdvai 3149	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) → (∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌 → ∃𝑝 ∈ 𝐴 (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌)))
30	29	expimpd 453	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌) → ∃𝑝 ∈ 𝐴 (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌)))
31	30, 8	sylibrd 259	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌) → 𝑋𝐶𝑌))
32	14, 31	impbid 212	1 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ (𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  ∃wrex 3062   class class class wbr 5086  ‘cfv 6493  (class class class)co 7361  Basecbs 17173  lecple 17221  ltcplt 18268  joincjn 18271   ⋖ ccvr 39725  Atomscatm 39726  HLchlt 39813

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-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5303  ax-pr 5371  ax-un 7683

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-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5520  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7318  df-ov 7364  df-oprab 7365  df-proset 18254  df-poset 18273  df-plt 18288  df-lub 18304  df-glb 18305  df-join 18306  df-meet 18307  df-p0 18383  df-lat 18392  df-clat 18459  df-oposet 39639  df-ol 39641  df-oml 39642  df-covers 39729  df-ats 39730  df-atl 39761  df-cvlat 39785  df-hlat 39814

This theorem is referenced by: (None)