Metamath Proof Explorer


Theorem en3lplem2VD

Description: Virtual deduction proof of en3lplem2 . (Contributed by Alan Sare, 24-Oct-2011) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Assertion en3lplem2VD ( ( 𝐴𝐵𝐵𝐶𝐶𝐴 ) → ( 𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 } → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ) )

Proof

Step Hyp Ref Expression
1 idn1 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ▶    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    )
2 idn3 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ,    𝑥 = 𝐴    ▶    𝑥 = 𝐴    )
3 en3lplem1VD ( ( 𝐴𝐵𝐵𝐶𝐶𝐴 ) → ( 𝑥 = 𝐴 → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ) )
4 1 2 3 e13 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ,    𝑥 = 𝐴    ▶   𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 )    )
5 4 in3 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ▶    ( 𝑥 = 𝐴 → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) )    )
6 3anrot ( ( 𝐴𝐵𝐵𝐶𝐶𝐴 ) ↔ ( 𝐵𝐶𝐶𝐴𝐴𝐵 ) )
7 1 6 e1bi (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ▶    ( 𝐵𝐶𝐶𝐴𝐴𝐵 )    )
8 idn3 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ,    𝑥 = 𝐵    ▶    𝑥 = 𝐵    )
9 en3lplem1VD ( ( 𝐵𝐶𝐶𝐴𝐴𝐵 ) → ( 𝑥 = 𝐵 → ∃ 𝑦 ( 𝑦 ∈ { 𝐵 , 𝐶 , 𝐴 } ∧ 𝑦𝑥 ) ) )
10 7 8 9 e13 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ,    𝑥 = 𝐵    ▶   𝑦 ( 𝑦 ∈ { 𝐵 , 𝐶 , 𝐴 } ∧ 𝑦𝑥 )    )
11 tprot { 𝐴 , 𝐵 , 𝐶 } = { 𝐵 , 𝐶 , 𝐴 }
12 11 eleq2i ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ↔ 𝑦 ∈ { 𝐵 , 𝐶 , 𝐴 } )
13 12 anbi1i ( ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ↔ ( 𝑦 ∈ { 𝐵 , 𝐶 , 𝐴 } ∧ 𝑦𝑥 ) )
14 13 exbii ( ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ↔ ∃ 𝑦 ( 𝑦 ∈ { 𝐵 , 𝐶 , 𝐴 } ∧ 𝑦𝑥 ) )
15 10 14 e3bir (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ,    𝑥 = 𝐵    ▶   𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 )    )
16 15 in3 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ▶    ( 𝑥 = 𝐵 → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) )    )
17 jao ( ( 𝑥 = 𝐴 → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ) → ( ( 𝑥 = 𝐵 → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ) → ( ( 𝑥 = 𝐴𝑥 = 𝐵 ) → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ) ) )
18 5 16 17 e22 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ▶    ( ( 𝑥 = 𝐴𝑥 = 𝐵 ) → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) )    )
19 3anrot ( ( 𝐶𝐴𝐴𝐵𝐵𝐶 ) ↔ ( 𝐴𝐵𝐵𝐶𝐶𝐴 ) )
20 1 19 e1bir (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ▶    ( 𝐶𝐴𝐴𝐵𝐵𝐶 )    )
21 idn3 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ,    𝑥 = 𝐶    ▶    𝑥 = 𝐶    )
22 en3lplem1VD ( ( 𝐶𝐴𝐴𝐵𝐵𝐶 ) → ( 𝑥 = 𝐶 → ∃ 𝑦 ( 𝑦 ∈ { 𝐶 , 𝐴 , 𝐵 } ∧ 𝑦𝑥 ) ) )
23 20 21 22 e13 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ,    𝑥 = 𝐶    ▶   𝑦 ( 𝑦 ∈ { 𝐶 , 𝐴 , 𝐵 } ∧ 𝑦𝑥 )    )
24 tprot { 𝐶 , 𝐴 , 𝐵 } = { 𝐴 , 𝐵 , 𝐶 }
25 24 eleq2i ( 𝑦 ∈ { 𝐶 , 𝐴 , 𝐵 } ↔ 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } )
26 25 anbi1i ( ( 𝑦 ∈ { 𝐶 , 𝐴 , 𝐵 } ∧ 𝑦𝑥 ) ↔ ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) )
27 26 exbii ( ∃ 𝑦 ( 𝑦 ∈ { 𝐶 , 𝐴 , 𝐵 } ∧ 𝑦𝑥 ) ↔ ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) )
28 23 27 e3bi (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ,    𝑥 = 𝐶    ▶   𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 )    )
29 28 in3 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ▶    ( 𝑥 = 𝐶 → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) )    )
30 idn2 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ▶    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    )
31 dftp2 { 𝐴 , 𝐵 , 𝐶 } = { 𝑥 ∣ ( 𝑥 = 𝐴𝑥 = 𝐵𝑥 = 𝐶 ) }
32 31 eleq2i ( 𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 } ↔ 𝑥 ∈ { 𝑥 ∣ ( 𝑥 = 𝐴𝑥 = 𝐵𝑥 = 𝐶 ) } )
33 30 32 e2bi (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ▶    𝑥 ∈ { 𝑥 ∣ ( 𝑥 = 𝐴𝑥 = 𝐵𝑥 = 𝐶 ) }    )
34 abid ( 𝑥 ∈ { 𝑥 ∣ ( 𝑥 = 𝐴𝑥 = 𝐵𝑥 = 𝐶 ) } ↔ ( 𝑥 = 𝐴𝑥 = 𝐵𝑥 = 𝐶 ) )
35 33 34 e2bi (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ▶    ( 𝑥 = 𝐴𝑥 = 𝐵𝑥 = 𝐶 )    )
36 df-3or ( ( 𝑥 = 𝐴𝑥 = 𝐵𝑥 = 𝐶 ) ↔ ( ( 𝑥 = 𝐴𝑥 = 𝐵 ) ∨ 𝑥 = 𝐶 ) )
37 35 36 e2bi (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ▶    ( ( 𝑥 = 𝐴𝑥 = 𝐵 ) ∨ 𝑥 = 𝐶 )    )
38 jao ( ( ( 𝑥 = 𝐴𝑥 = 𝐵 ) → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ) → ( ( 𝑥 = 𝐶 → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ) → ( ( ( 𝑥 = 𝐴𝑥 = 𝐵 ) ∨ 𝑥 = 𝐶 ) → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ) ) )
39 18 29 37 38 e222 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ,    𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 }    ▶   𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 )    )
40 39 in2 (    ( 𝐴𝐵𝐵𝐶𝐶𝐴 )    ▶    ( 𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 } → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) )    )
41 40 in1 ( ( 𝐴𝐵𝐵𝐶𝐶𝐴 ) → ( 𝑥 ∈ { 𝐴 , 𝐵 , 𝐶 } → ∃ 𝑦 ( 𝑦 ∈ { 𝐴 , 𝐵 , 𝐶 } ∧ 𝑦𝑥 ) ) )