Metamath Proof Explorer


Theorem stoweidlem22

Description: If a set of real functions from a common domain is closed under addition, multiplication and it contains constants, then it is closed under subtraction. (Contributed by Glauco Siliprandi, 20-Apr-2017)

Ref Expression
Hypotheses stoweidlem22.8 tφ
stoweidlem22.9 _tF
stoweidlem22.10 _tG
stoweidlem22.1 H=tTFtGt
stoweidlem22.2 I=tT1
stoweidlem22.3 L=tTItGt
stoweidlem22.4 φfAf:T
stoweidlem22.5 φfAgAtTft+gtA
stoweidlem22.6 φfAgAtTftgtA
stoweidlem22.7 φxtTxA
Assertion stoweidlem22 φFAGAtTFtGtA

Proof

Step Hyp Ref Expression
1 stoweidlem22.8 tφ
2 stoweidlem22.9 _tF
3 stoweidlem22.10 _tG
4 stoweidlem22.1 H=tTFtGt
5 stoweidlem22.2 I=tT1
6 stoweidlem22.3 L=tTItGt
7 stoweidlem22.4 φfAf:T
8 stoweidlem22.5 φfAgAtTft+gtA
9 stoweidlem22.6 φfAgAtTftgtA
10 stoweidlem22.7 φxtTxA
11 2 nfel1 tFA
12 3 nfel1 tGA
13 1 11 12 nf3an tφFAGA
14 simpr φFAGAtTtT
15 simpl1 φFAGAtTφ
16 neg1rr 1
17 10 stoweidlem4 φ1tT1A
18 16 17 mpan2 φtT1A
19 5 18 eqeltrid φIA
20 eleq1 f=IfAIA
21 20 anbi2d f=IφfAφIA
22 feq1 f=If:TI:T
23 21 22 imbi12d f=IφfAf:TφIAI:T
24 23 7 vtoclg IAφIAI:T
25 24 anabsi7 φIAI:T
26 15 19 25 syl2anc2 φFAGAtTI:T
27 26 14 ffvelcdmd φFAGAtTIt
28 simpl3 φFAGAtTGA
29 eleq1 f=GfAGA
30 29 anbi2d f=GφfAφGA
31 feq1 f=Gf:TG:T
32 30 31 imbi12d f=GφfAf:TφGAG:T
33 32 7 vtoclg GAφGAG:T
34 33 anabsi7 φGAG:T
35 34 3adant3 φGAtTG:T
36 simp3 φGAtTtT
37 35 36 ffvelcdmd φGAtTGt
38 15 28 14 37 syl3anc φFAGAtTGt
39 27 38 remulcld φFAGAtTItGt
40 6 fvmpt2 tTItGtLt=ItGt
41 14 39 40 syl2anc φFAGAtTLt=ItGt
42 5 fvmpt2 tT1It=1
43 16 42 mpan2 tTIt=1
44 43 adantl φFAGAtTIt=1
45 44 oveq1d φFAGAtTItGt=-1Gt
46 38 recnd φFAGAtTGt
47 46 mulm1d φFAGAtT-1Gt=Gt
48 41 45 47 3eqtrd φFAGAtTLt=Gt
49 48 oveq2d φFAGAtTFt+Lt=Ft+Gt
50 simpl2 φFAGAtTFA
51 eleq1 f=FfAFA
52 51 anbi2d f=FφfAφFA
53 feq1 f=Ff:TF:T
54 52 53 imbi12d f=FφfAf:TφFAF:T
55 54 7 vtoclg FAφFAF:T
56 55 anabsi7 φFAF:T
57 15 50 56 syl2anc φFAGAtTF:T
58 57 14 ffvelcdmd φFAGAtTFt
59 58 recnd φFAGAtTFt
60 59 46 negsubd φFAGAtTFt+Gt=FtGt
61 49 60 eqtr2d φFAGAtTFtGt=Ft+Lt
62 13 61 mpteq2da φFAGAtTFtGt=tTFt+Lt
63 19 3ad2ant1 φFAGAIA
64 nfmpt1 _ttT1
65 5 64 nfcxfr _tI
66 65 nfeq2 tf=I
67 3 nfeq2 tg=G
68 66 67 9 stoweidlem6 φIAGAtTItGtA
69 63 68 syld3an2 φFAGAtTItGtA
70 6 69 eqeltrid φFAGALA
71 nfmpt1 _ttTItGt
72 6 71 nfcxfr _tL
73 8 2 72 stoweidlem8 φFALAtTFt+LtA
74 70 73 syld3an3 φFAGAtTFt+LtA
75 62 74 eqeltrd φFAGAtTFtGtA