Metamath Proof Explorer


Theorem eloprabga

Description: The law of concretion for operation class abstraction. Compare elopab . (Contributed by NM, 14-Sep-1999) Remove unnecessary distinct variable conditions. (Revised by David Abernethy, 19-Jun-2012) (Revised by Mario Carneiro, 19-Dec-2013) Avoid ax-10 , ax-11 . (Revised by Wolf Lammen, 15-Oct-2024)

Ref Expression
Hypothesis eloprabga.1 x = A y = B z = C φ ψ
Assertion eloprabga A V B W C X A B C x y z | φ ψ

Proof

Step Hyp Ref Expression
1 eloprabga.1 x = A y = B z = C φ ψ
2 elex A V A V
3 elex B W B V
4 elex C X C V
5 opex A B C V
6 simpr A V B V C V w = A B C w = A B C
7 6 eqeq1d A V B V C V w = A B C w = x y z A B C = x y z
8 eqcom A B C = x y z x y z = A B C
9 vex x V
10 vex y V
11 vex z V
12 9 10 11 otth2 x y z = A B C x = A y = B z = C
13 8 12 bitri A B C = x y z x = A y = B z = C
14 7 13 bitrdi A V B V C V w = A B C w = x y z x = A y = B z = C
15 14 anbi1d A V B V C V w = A B C w = x y z φ x = A y = B z = C φ
16 1 pm5.32i x = A y = B z = C φ x = A y = B z = C ψ
17 15 16 bitrdi A V B V C V w = A B C w = x y z φ x = A y = B z = C ψ
18 17 3exbidv A V B V C V w = A B C x y z w = x y z φ x y z x = A y = B z = C ψ
19 df-oprab x y z | φ = w | x y z w = x y z φ
20 19 eleq2i w x y z | φ w w | x y z w = x y z φ
21 abid w w | x y z w = x y z φ x y z w = x y z φ
22 20 21 bitr2i x y z w = x y z φ w x y z | φ
23 eleq1 w = A B C w x y z | φ A B C x y z | φ
24 22 23 bitrid w = A B C x y z w = x y z φ A B C x y z | φ
25 24 adantl A V B V C V w = A B C x y z w = x y z φ A B C x y z | φ
26 19.41vvv x y z x = A y = B z = C ψ x y z x = A y = B z = C ψ
27 elisset A V x x = A
28 elisset B V y y = B
29 elisset C V z z = C
30 27 28 29 3anim123i A V B V C V x x = A y y = B z z = C
31 3exdistr x y z x = A y = B z = C x x = A y y = B z z = C
32 19.41v x x = A y y = B z z = C x x = A y y = B z z = C
33 19.41v y y = B z z = C y y = B z z = C
34 33 anbi2i x x = A y y = B z z = C x x = A y y = B z z = C
35 31 32 34 3bitri x y z x = A y = B z = C x x = A y y = B z z = C
36 3anass x x = A y y = B z z = C x x = A y y = B z z = C
37 35 36 bitr4i x y z x = A y = B z = C x x = A y y = B z z = C
38 30 37 sylibr A V B V C V x y z x = A y = B z = C
39 38 biantrurd A V B V C V ψ x y z x = A y = B z = C ψ
40 26 39 bitr4id A V B V C V x y z x = A y = B z = C ψ ψ
41 40 adantr A V B V C V w = A B C x y z x = A y = B z = C ψ ψ
42 18 25 41 3bitr3d A V B V C V w = A B C A B C x y z | φ ψ
43 42 expcom w = A B C A V B V C V A B C x y z | φ ψ
44 5 43 vtocle A V B V C V A B C x y z | φ ψ
45 2 3 4 44 syl3an A V B W C X A B C x y z | φ ψ