Metamath Proof Explorer


Theorem ralxpmap

Description: Quantification over functions in terms of quantification over values and punctured functions. (Contributed by Stefan O'Rear, 27-Feb-2015) (Revised by Stefan O'Rear, 5-May-2015)

Ref Expression
Hypothesis ralxpmap.j f = g J y φ ψ
Assertion ralxpmap J T f S T φ y S g S T J ψ

Proof

Step Hyp Ref Expression
1 ralxpmap.j f = g J y φ ψ
2 vex g V
3 snex J y V
4 2 3 unex g J y V
5 simpr J T f S T f S T
6 elmapex f S T S V T V
7 6 adantl J T f S T S V T V
8 elmapg S V T V f S T f : T S
9 7 8 syl J T f S T f S T f : T S
10 5 9 mpbid J T f S T f : T S
11 simpl J T f S T J T
12 10 11 ffvelrnd J T f S T f J S
13 difss T J T
14 fssres f : T S T J T f T J : T J S
15 10 13 14 sylancl J T f S T f T J : T J S
16 6 simpld f S T S V
17 16 adantl J T f S T S V
18 7 simprd J T f S T T V
19 difexg T V T J V
20 18 19 syl J T f S T T J V
21 17 20 elmapd J T f S T f T J S T J f T J : T J S
22 15 21 mpbird J T f S T f T J S T J
23 10 ffnd J T f S T f Fn T
24 fnsnsplit f Fn T J T f = f T J J f J
25 23 11 24 syl2anc J T f S T f = f T J J f J
26 opeq2 y = f J J y = J f J
27 26 sneqd y = f J J y = J f J
28 27 uneq2d y = f J g J y = g J f J
29 28 eqeq2d y = f J f = g J y f = g J f J
30 uneq1 g = f T J g J f J = f T J J f J
31 30 eqeq2d g = f T J f = g J f J f = f T J J f J
32 29 31 rspc2ev f J S f T J S T J f = f T J J f J y S g S T J f = g J y
33 12 22 25 32 syl3anc J T f S T y S g S T J f = g J y
34 33 ex J T f S T y S g S T J f = g J y
35 elmapi g S T J g : T J S
36 35 ad2antll J T y S g S T J g : T J S
37 f1osng J T y V J y : J 1-1 onto y
38 f1of J y : J 1-1 onto y J y : J y
39 37 38 syl J T y V J y : J y
40 39 elvd J T J y : J y
41 40 adantr J T y S g S T J J y : J y
42 incom T J J = J T J
43 disjdif J T J =
44 42 43 eqtri T J J =
45 44 a1i J T y S g S T J T J J =
46 fun g : T J S J y : J y T J J = g J y : T J J S y
47 36 41 45 46 syl21anc J T y S g S T J g J y : T J J S y
48 uncom T J J = J T J
49 simpl J T y S g S T J J T
50 49 snssd J T y S g S T J J T
51 undif J T J T J = T
52 50 51 sylib J T y S g S T J J T J = T
53 48 52 syl5eq J T y S g S T J T J J = T
54 53 feq2d J T y S g S T J g J y : T J J S y g J y : T S y
55 47 54 mpbid J T y S g S T J g J y : T S y
56 ssidd J T y S g S T J S S
57 snssi y S y S
58 57 ad2antrl J T y S g S T J y S
59 56 58 unssd J T y S g S T J S y S
60 55 59 fssd J T y S g S T J g J y : T S
61 elmapex g S T J S V T J V
62 61 ad2antll J T y S g S T J S V T J V
63 62 simpld J T y S g S T J S V
64 ssun1 T T J
65 undif1 T J J = T J
66 62 simprd J T y S g S T J T J V
67 snex J V
68 unexg T J V J V T J J V
69 66 67 68 sylancl J T y S g S T J T J J V
70 65 69 eqeltrrid J T y S g S T J T J V
71 ssexg T T J T J V T V
72 64 70 71 sylancr J T y S g S T J T V
73 63 72 elmapd J T y S g S T J g J y S T g J y : T S
74 60 73 mpbird J T y S g S T J g J y S T
75 eleq1 f = g J y f S T g J y S T
76 74 75 syl5ibrcom J T y S g S T J f = g J y f S T
77 76 rexlimdvva J T y S g S T J f = g J y f S T
78 34 77 impbid J T f S T y S g S T J f = g J y
79 1 adantl J T f = g J y φ ψ
80 4 78 79 ralxpxfr2d J T f S T φ y S g S T J ψ