Theorem cvrval4N 40039

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 39895	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋𝐶𝑌) → 𝑋 < 𝑌)
5		eqid 2763	. . . . . . 7 ⊢ (le‘𝐾) = (le‘𝐾)
6		cvrval4.j	. . . . . . 7 ⊢ ∨ = (join‘𝐾)
7		cvrval4.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
8	1, 5, 6, 3, 7	cvrval3 40038	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ ∃𝑝 ∈ 𝐴 (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌)))
9		simpr 488	. . . . . . 7 ⊢ ((¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (𝑋 ∨ 𝑝) = 𝑌)
10	9	reximi 3101	. . . . . 6 ⊢ (∃𝑝 ∈ 𝐴 (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌) → ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌)
11	8, 10	biimtrdi 255	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 → ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌))
12	11	imp 410	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋𝐶𝑌) → ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌)
13	4, 12	jca 519	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋𝐶𝑌) → (𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌))
14	13	ex 416	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 → (𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌)))
15		simp1r 1213	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → 𝑋 < 𝑌)
16		simp3 1152	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (𝑋 ∨ 𝑝) = 𝑌)
17	15, 16	breqtrrd 5129	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → 𝑋 < (𝑋 ∨ 𝑝))
18		simp1l1 1281	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → 𝐾 ∈ HL)
19		simp1l2 1282	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → 𝑋 ∈ 𝐵)
20		simp2 1151	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → 𝑝 ∈ 𝐴)
21	1, 5, 6, 3, 7	cvr1 40035	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐴) → (¬ 𝑝(le‘𝐾)𝑋 ↔ 𝑋𝐶(𝑋 ∨ 𝑝)))
22	18, 19, 20, 21	syl3anc 1391	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (¬ 𝑝(le‘𝐾)𝑋 ↔ 𝑋𝐶(𝑋 ∨ 𝑝)))
23	1, 2, 6, 3, 7	cvr2N 40036	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐴) → (𝑋 < (𝑋 ∨ 𝑝) ↔ 𝑋𝐶(𝑋 ∨ 𝑝)))
24	18, 19, 20, 23	syl3anc 1391	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (𝑋 < (𝑋 ∨ 𝑝) ↔ 𝑋𝐶(𝑋 ∨ 𝑝)))
25	22, 24	bitr4d 284	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (¬ 𝑝(le‘𝐾)𝑋 ↔ 𝑋 < (𝑋 ∨ 𝑝)))
26	17, 25	mpbird 259	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → ¬ 𝑝(le‘𝐾)𝑋)
27	26, 16	jca 519	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝 ∈ 𝐴 ∧ (𝑋 ∨ 𝑝) = 𝑌) → (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌))
28	27	3exp 1133	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) → (𝑝 ∈ 𝐴 → ((𝑋 ∨ 𝑝) = 𝑌 → (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌))))
29	28	reximdvai 3174	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) → (∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌 → ∃𝑝 ∈ 𝐴 (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌)))
30	29	expimpd 457	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌) → ∃𝑝 ∈ 𝐴 (¬ 𝑝(le‘𝐾)𝑋 ∧ (𝑋 ∨ 𝑝) = 𝑌)))
31	30, 8	sylibrd 261	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌) → 𝑋𝐶𝑌))
32	14, 31	impbid 214	1 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ (𝑋 < 𝑌 ∧ ∃𝑝 ∈ 𝐴 (𝑋 ∨ 𝑝) = 𝑌)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399   ∧ w3a 1099   = wceq 1561   ∈ wcel 2143  ∃wrex 3087   class class class wbr 5101  ‘cfv 6522  (class class class)co 7397  Basecbs 17246  lecple 17294  ltcplt 18341  joincjn 18344   ⋖ ccvr 39887  Atomscatm 39888  HLchlt 39975

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1816  ax-4 1830  ax-5 1931  ax-6 1988  ax-7 2029  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5228  ax-sep 5247  ax-nul 5257  ax-pow 5323  ax-pr 5391  ax-un 7719

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1101  df-tru 1564  df-fal 1574  df-ex 1801  df-nf 1805  df-sb 2092  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3078  df-rex 3088  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3457  df-sbc 3746  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-iun 4952  df-br 5102  df-opab 5164  df-mpt 5183  df-id 5543  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-iota 6478  df-fun 6524  df-fn 6525  df-f 6526  df-f1 6527  df-fo 6528  df-f1o 6529  df-fv 6530  df-riota 7354  df-ov 7400  df-oprab 7401  df-proset 18327  df-poset 18346  df-plt 18361  df-lub 18377  df-glb 18378  df-join 18379  df-meet 18380  df-p0 18456  df-lat 18465  df-clat 18532  df-oposet 39801  df-ol 39803  df-oml 39804  df-covers 39891  df-ats 39892  df-atl 39923  df-cvlat 39947  df-hlat 39976

This theorem is referenced by: (None)