Metamath Proof Explorer


Theorem bropfvvvvlem

Description: Lemma for bropfvvvv . (Contributed by AV, 31-Dec-2020) (Revised by AV, 16-Jan-2021)

Ref Expression
Hypotheses bropfvvvv.o O=aUbV,cWde|φ
bropfvvvv.oo AUBSCTBOAC=de|θ
Assertion bropfvvvvlem BCS×TDBOACEAUBSCTDVEV

Proof

Step Hyp Ref Expression
1 bropfvvvv.o O=aUbV,cWde|φ
2 bropfvvvv.oo AUBSCTBOAC=de|θ
3 opelxp BCS×TBSCT
4 brne0 DBOACEBOAC
5 2 3expb AUBSCTBOAC=de|θ
6 5 breqd AUBSCTDBOACEDde|θE
7 brabv Dde|θEDVEV
8 7 anim2i AUDde|θEAUDVEV
9 8 ex AUDde|θEAUDVEV
10 9 adantr AUBSCTDde|θEAUDVEV
11 6 10 sylbid AUBSCTDBOACEAUDVEV
12 11 ex AUBSCTDBOACEAUDVEV
13 12 com23 AUDBOACEBSCTAUDVEV
14 13 a1d AUBOACDBOACEBSCTAUDVEV
15 1 fvmptndm ¬AUOA=
16 df-ov BOAC=OABC
17 fveq1 OA=OABC=BC
18 16 17 eqtrid OA=BOAC=BC
19 0fv BC=
20 18 19 eqtrdi OA=BOAC=
21 eqneqall BOAC=BOACDBOACEBSCTAUDVEV
22 15 20 21 3syl ¬AUBOACDBOACEBSCTAUDVEV
23 14 22 pm2.61i BOACDBOACEBSCTAUDVEV
24 4 23 mpcom DBOACEBSCTAUDVEV
25 24 com12 BSCTDBOACEAUDVEV
26 25 anc2ri BSCTDBOACEAUDVEVBSCT
27 3anan32 AUBSCTDVEVAUDVEVBSCT
28 26 27 imbitrrdi BSCTDBOACEAUBSCTDVEV
29 3 28 sylbi BCS×TDBOACEAUBSCTDVEV
30 29 imp BCS×TDBOACEAUBSCTDVEV