Metamath Proof Explorer


Theorem cvcon3

Description: Contraposition law for the covers relation. (Contributed by NM, 12-Jun-2004) (New usage is discouraged.)

Ref Expression
Assertion cvcon3 ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → A ⋖ ℋ B ↔ ⊥ ⁡ B ⋖ ℋ ⊥ ⁡ A

Proof

Step Hyp Ref Expression
1 chpsscon3 ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → A ⊂ B ↔ ⊥ ⁡ B ⊂ ⊥ ⁡ A
2 chpsscon3 ⊢ A ∈ C ℋ ∧ x ∈ C ℋ → A ⊂ x ↔ ⊥ ⁡ x ⊂ ⊥ ⁡ A
3 2 adantlr ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ x ∈ C ℋ → A ⊂ x ↔ ⊥ ⁡ x ⊂ ⊥ ⁡ A
4 chpsscon3 ⊢ x ∈ C ℋ ∧ B ∈ C ℋ → x ⊂ B ↔ ⊥ ⁡ B ⊂ ⊥ ⁡ x
5 4 ancoms ⊢ B ∈ C ℋ ∧ x ∈ C ℋ → x ⊂ B ↔ ⊥ ⁡ B ⊂ ⊥ ⁡ x
6 5 adantll ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ x ∈ C ℋ → x ⊂ B ↔ ⊥ ⁡ B ⊂ ⊥ ⁡ x
7 3 6 anbi12d ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ x ∈ C ℋ → A ⊂ x ∧ x ⊂ B ↔ ⊥ ⁡ x ⊂ ⊥ ⁡ A ∧ ⊥ ⁡ B ⊂ ⊥ ⁡ x
8 choccl ⊢ x ∈ C ℋ → ⊥ ⁡ x ∈ C ℋ
9 psseq2 ⊢ y = ⊥ ⁡ x → ⊥ ⁡ B ⊂ y ↔ ⊥ ⁡ B ⊂ ⊥ ⁡ x
10 psseq1 ⊢ y = ⊥ ⁡ x → y ⊂ ⊥ ⁡ A ↔ ⊥ ⁡ x ⊂ ⊥ ⁡ A
11 9 10 anbi12d ⊢ y = ⊥ ⁡ x → ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A ↔ ⊥ ⁡ B ⊂ ⊥ ⁡ x ∧ ⊥ ⁡ x ⊂ ⊥ ⁡ A
12 11 rspcev ⊢ ⊥ ⁡ x ∈ C ℋ ∧ ⊥ ⁡ B ⊂ ⊥ ⁡ x ∧ ⊥ ⁡ x ⊂ ⊥ ⁡ A → ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
13 8 12 sylan ⊢ x ∈ C ℋ ∧ ⊥ ⁡ B ⊂ ⊥ ⁡ x ∧ ⊥ ⁡ x ⊂ ⊥ ⁡ A → ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
14 13 ex ⊢ x ∈ C ℋ → ⊥ ⁡ B ⊂ ⊥ ⁡ x ∧ ⊥ ⁡ x ⊂ ⊥ ⁡ A → ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
15 14 ancomsd ⊢ x ∈ C ℋ → ⊥ ⁡ x ⊂ ⊥ ⁡ A ∧ ⊥ ⁡ B ⊂ ⊥ ⁡ x → ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
16 15 adantl ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ x ∈ C ℋ → ⊥ ⁡ x ⊂ ⊥ ⁡ A ∧ ⊥ ⁡ B ⊂ ⊥ ⁡ x → ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
17 7 16 sylbid ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ x ∈ C ℋ → A ⊂ x ∧ x ⊂ B → ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
18 17 rexlimdva ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B → ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
19 chpsscon1 ⊢ B ∈ C ℋ ∧ y ∈ C ℋ → ⊥ ⁡ B ⊂ y ↔ ⊥ ⁡ y ⊂ B
20 19 adantll ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ y ∈ C ℋ → ⊥ ⁡ B ⊂ y ↔ ⊥ ⁡ y ⊂ B
21 chpsscon2 ⊢ y ∈ C ℋ ∧ A ∈ C ℋ → y ⊂ ⊥ ⁡ A ↔ A ⊂ ⊥ ⁡ y
22 21 ancoms ⊢ A ∈ C ℋ ∧ y ∈ C ℋ → y ⊂ ⊥ ⁡ A ↔ A ⊂ ⊥ ⁡ y
23 22 adantlr ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ y ∈ C ℋ → y ⊂ ⊥ ⁡ A ↔ A ⊂ ⊥ ⁡ y
24 20 23 anbi12d ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ y ∈ C ℋ → ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A ↔ ⊥ ⁡ y ⊂ B ∧ A ⊂ ⊥ ⁡ y
25 choccl ⊢ y ∈ C ℋ → ⊥ ⁡ y ∈ C ℋ
26 psseq2 ⊢ x = ⊥ ⁡ y → A ⊂ x ↔ A ⊂ ⊥ ⁡ y
27 psseq1 ⊢ x = ⊥ ⁡ y → x ⊂ B ↔ ⊥ ⁡ y ⊂ B
28 26 27 anbi12d ⊢ x = ⊥ ⁡ y → A ⊂ x ∧ x ⊂ B ↔ A ⊂ ⊥ ⁡ y ∧ ⊥ ⁡ y ⊂ B
29 28 rspcev ⊢ ⊥ ⁡ y ∈ C ℋ ∧ A ⊂ ⊥ ⁡ y ∧ ⊥ ⁡ y ⊂ B → ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B
30 25 29 sylan ⊢ y ∈ C ℋ ∧ A ⊂ ⊥ ⁡ y ∧ ⊥ ⁡ y ⊂ B → ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B
31 30 ex ⊢ y ∈ C ℋ → A ⊂ ⊥ ⁡ y ∧ ⊥ ⁡ y ⊂ B → ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B
32 31 ancomsd ⊢ y ∈ C ℋ → ⊥ ⁡ y ⊂ B ∧ A ⊂ ⊥ ⁡ y → ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B
33 32 adantl ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ y ∈ C ℋ → ⊥ ⁡ y ⊂ B ∧ A ⊂ ⊥ ⁡ y → ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B
34 24 33 sylbid ⊢ A ∈ C ℋ ∧ B ∈ C ℋ ∧ y ∈ C ℋ → ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A → ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B
35 34 rexlimdva ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A → ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B
36 18 35 impbid ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B ↔ ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
37 36 notbid ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → ¬ ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B ↔ ¬ ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
38 1 37 anbi12d ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → A ⊂ B ∧ ¬ ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B ↔ ⊥ ⁡ B ⊂ ⊥ ⁡ A ∧ ¬ ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
39 cvbr ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → A ⋖ ℋ B ↔ A ⊂ B ∧ ¬ ∃ x ∈ C ℋ A ⊂ x ∧ x ⊂ B
40 choccl ⊢ B ∈ C ℋ → ⊥ ⁡ B ∈ C ℋ
41 choccl ⊢ A ∈ C ℋ → ⊥ ⁡ A ∈ C ℋ
42 cvbr ⊢ ⊥ ⁡ B ∈ C ℋ ∧ ⊥ ⁡ A ∈ C ℋ → ⊥ ⁡ B ⋖ ℋ ⊥ ⁡ A ↔ ⊥ ⁡ B ⊂ ⊥ ⁡ A ∧ ¬ ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
43 40 41 42 syl2anr ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → ⊥ ⁡ B ⋖ ℋ ⊥ ⁡ A ↔ ⊥ ⁡ B ⊂ ⊥ ⁡ A ∧ ¬ ∃ y ∈ C ℋ ⊥ ⁡ B ⊂ y ∧ y ⊂ ⊥ ⁡ A
44 38 39 43 3bitr4d ⊢ A ∈ C ℋ ∧ B ∈ C ℋ → A ⋖ ℋ B ↔ ⊥ ⁡ B ⋖ ℋ ⊥ ⁡ A