Metamath Proof Explorer


Theorem suppss3

Description: Deduce a function's support's inclusion in another function's support. (Contributed by Thierry Arnoux, 7-Sep-2017) (Revised by Thierry Arnoux, 1-Sep-2019)

Ref Expression
Hypotheses suppss3.1 G=xAB
suppss3.a φAV
suppss3.z φZW
suppss3.2 φFFnA
suppss3.3 φxAFx=ZB=Z
Assertion suppss3 φGsuppZFsuppZ

Proof

Step Hyp Ref Expression
1 suppss3.1 G=xAB
2 suppss3.a φAV
3 suppss3.z φZW
4 suppss3.2 φFFnA
5 suppss3.3 φxAFx=ZB=Z
6 1 oveq1i GsuppZ=xABsuppZ
7 simpl φxAsuppZFφ
8 eldifi xAsuppZFxA
9 8 adantl φxAsuppZFxA
10 fnex FFnAAVFV
11 4 2 10 syl2anc φFV
12 suppimacnv FVZWFsuppZ=F-1VZ
13 11 3 12 syl2anc φFsuppZ=F-1VZ
14 13 eleq2d φxsuppZFxF-1VZ
15 elpreima FFnAxF-1VZxAFxVZ
16 4 15 syl φxF-1VZxAFxVZ
17 14 16 bitrd φxsuppZFxAFxVZ
18 17 baibd φxAxsuppZFFxVZ
19 18 notbid φxA¬xsuppZF¬FxVZ
20 19 biimpd φxA¬xsuppZF¬FxVZ
21 20 expimpd φxA¬xsuppZF¬FxVZ
22 eldif xAsuppZFxA¬xsuppZF
23 fvex FxV
24 eldifsn FxVZFxVFxZ
25 23 24 mpbiran FxVZFxZ
26 25 necon2bbii Fx=Z¬FxVZ
27 21 22 26 3imtr4g φxAsuppZFFx=Z
28 27 imp φxAsuppZFFx=Z
29 7 9 28 5 syl3anc φxAsuppZFB=Z
30 29 2 suppss2 φxABsuppZFsuppZ
31 6 30 eqsstrid φGsuppZFsuppZ