Metamath Proof Explorer


Theorem predtrss

Description: If R is transitive over A and Y R X , then Pred ( R , A , Y ) is a subclass of Pred ( R , A , X ) . (Contributed by Scott Fenton, 28-Oct-2024)

Ref Expression
Assertion predtrss ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A → Pred R A Y ⊆ Pred R A X

Proof

Step Hyp Ref Expression
1 simpr ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → z ∈ A
2 predel ⊢ Y ∈ Pred R A X → Y ∈ A
3 2 3ad2ant2 ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A → Y ∈ A
4 3 adantr ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → Y ∈ A
5 brxp ⊢ z A × A Y ↔ z ∈ A ∧ Y ∈ A
6 1 4 5 sylanbrc ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → z A × A Y
7 brin ⊢ z R ∩ A × A Y ↔ z R Y ∧ z A × A Y
8 elpredimg ⊢ X ∈ A ∧ Y ∈ Pred R A X → Y R X
9 8 ancoms ⊢ Y ∈ Pred R A X ∧ X ∈ A → Y R X
10 9 3adant1 ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A → Y R X
11 10 adantr ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → Y R X
12 simpl3 ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → X ∈ A
13 brxp ⊢ Y A × A X ↔ Y ∈ A ∧ X ∈ A
14 4 12 13 sylanbrc ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → Y A × A X
15 brin ⊢ Y R ∩ A × A X ↔ Y R X ∧ Y A × A X
16 11 14 15 sylanbrc ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → Y R ∩ A × A X
17 breq2 ⊢ y = Y → z R ∩ A × A y ↔ z R ∩ A × A Y
18 breq1 ⊢ y = Y → y R ∩ A × A X ↔ Y R ∩ A × A X
19 17 18 anbi12d ⊢ y = Y → z R ∩ A × A y ∧ y R ∩ A × A X ↔ z R ∩ A × A Y ∧ Y R ∩ A × A X
20 19 spcegv ⊢ Y ∈ Pred R A X → z R ∩ A × A Y ∧ Y R ∩ A × A X → ∃ y z R ∩ A × A y ∧ y R ∩ A × A X
21 20 3ad2ant2 ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A → z R ∩ A × A Y ∧ Y R ∩ A × A X → ∃ y z R ∩ A × A y ∧ y R ∩ A × A X
22 21 adantr ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → z R ∩ A × A Y ∧ Y R ∩ A × A X → ∃ y z R ∩ A × A y ∧ y R ∩ A × A X
23 vex ⊢ z ∈ V
24 brcog ⊢ z ∈ V ∧ X ∈ A → z R ∩ A × A ∘ R ∩ A × A X ↔ ∃ y z R ∩ A × A y ∧ y R ∩ A × A X
25 23 12 24 sylancr ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → z R ∩ A × A ∘ R ∩ A × A X ↔ ∃ y z R ∩ A × A y ∧ y R ∩ A × A X
26 22 25 sylibrd ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → z R ∩ A × A Y ∧ Y R ∩ A × A X → z R ∩ A × A ∘ R ∩ A × A X
27 simpl1 ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → R ∩ A × A ∘ R ∩ A × A ⊆ R
28 27 ssbrd ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → z R ∩ A × A ∘ R ∩ A × A X → z R X
29 26 28 syld ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → z R ∩ A × A Y ∧ Y R ∩ A × A X → z R X
30 16 29 mpan2d ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → z R ∩ A × A Y → z R X
31 7 30 biimtrrid ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → z R Y ∧ z A × A Y → z R X
32 6 31 mpan2d ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A ∧ z ∈ A → z R Y → z R X
33 32 imdistanda ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A → z ∈ A ∧ z R Y → z ∈ A ∧ z R X
34 23 elpred ⊢ Y ∈ Pred R A X → z ∈ Pred R A Y ↔ z ∈ A ∧ z R Y
35 34 3ad2ant2 ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A → z ∈ Pred R A Y ↔ z ∈ A ∧ z R Y
36 23 elpred ⊢ X ∈ A → z ∈ Pred R A X ↔ z ∈ A ∧ z R X
37 36 3ad2ant3 ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A → z ∈ Pred R A X ↔ z ∈ A ∧ z R X
38 33 35 37 3imtr4d ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A → z ∈ Pred R A Y → z ∈ Pred R A X
39 38 ssrdv ⊢ R ∩ A × A ∘ R ∩ A × A ⊆ R ∧ Y ∈ Pred R A X ∧ X ∈ A → Pred R A Y ⊆ Pred R A X