Theorem apsym 8504

Description: Apartness is symmetric. This theorem for real numbers is part of Definition 11.2.7(v) of [HoTT], p. (varies). (Contributed by Jim Kingdon, 16-Feb-2020.)

Assertion

Ref	Expression
apsym	|- ( ( A e. CC /\ B e. CC ) -> ( A # B <-> B # A ) )

Proof of Theorem apsym

Dummy variables w x y z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		cnre 7895	. . 3 |- ( B e. CC -> E. z e. RR E. w e. RR B = ( z + ( _i x. w ) ) )
2	1	adantl 275	. 2 |- ( ( A e. CC /\ B e. CC ) -> E. z e. RR E. w e. RR B = ( z + ( _i x. w ) ) )
3		cnre 7895	. . . . . 6 |- ( A e. CC -> E. x e. RR E. y e. RR A = ( x + ( _i x. y ) ) )
4	3	ad3antrrr 484	. . . . 5 |- ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) -> E. x e. RR E. y e. RR A = ( x + ( _i x. y ) ) )
5		simplrl 525	. . . . . . . . . . . 12 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> x e. RR )
6		simplrl 525	. . . . . . . . . . . . 13 |- ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) -> z e. RR )
7	6	ad2antrr 480	. . . . . . . . . . . 12 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> z e. RR )
8		reaplt 8486	. . . . . . . . . . . 12 |- ( ( x e. RR /\ z e. RR ) -> ( x # z <-> ( x < z \/ z < x ) ) )
9	5, 7, 8	syl2anc 409	. . . . . . . . . . 11 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( x # z <-> ( x < z \/ z < x ) ) )
10		reaplt 8486	. . . . . . . . . . . . 13 |- ( ( z e. RR /\ x e. RR ) -> ( z # x <-> ( z < x \/ x < z ) ) )
11	7, 5, 10	syl2anc 409	. . . . . . . . . . . 12 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( z # x <-> ( z < x \/ x < z ) ) )
12		orcom 718	. . . . . . . . . . . 12 |- ( ( x < z \/ z < x ) <-> ( z < x \/ x < z ) )
13	11, 12	bitr4di 197	. . . . . . . . . . 11 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( z # x <-> ( x < z \/ z < x ) ) )
14	9, 13	bitr4d 190	. . . . . . . . . 10 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( x # z <-> z # x ) )
15		simplrr 526	. . . . . . . . . . . 12 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> y e. RR )
16		simplrr 526	. . . . . . . . . . . . 13 |- ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) -> w e. RR )
17	16	ad2antrr 480	. . . . . . . . . . . 12 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> w e. RR )
18		reaplt 8486	. . . . . . . . . . . 12 |- ( ( y e. RR /\ w e. RR ) -> ( y # w <-> ( y < w \/ w < y ) ) )
19	15, 17, 18	syl2anc 409	. . . . . . . . . . 11 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( y # w <-> ( y < w \/ w < y ) ) )
20		reaplt 8486	. . . . . . . . . . . . 13 |- ( ( w e. RR /\ y e. RR ) -> ( w # y <-> ( w < y \/ y < w ) ) )
21	17, 15, 20	syl2anc 409	. . . . . . . . . . . 12 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( w # y <-> ( w < y \/ y < w ) ) )
22		orcom 718	. . . . . . . . . . . 12 |- ( ( y < w \/ w < y ) <-> ( w < y \/ y < w ) )
23	21, 22	bitr4di 197	. . . . . . . . . . 11 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( w # y <-> ( y < w \/ w < y ) ) )
24	19, 23	bitr4d 190	. . . . . . . . . 10 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( y # w <-> w # y ) )
25	14, 24	orbi12d 783	. . . . . . . . 9 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( ( x # z \/ y # w ) <-> ( z # x \/ w # y ) ) )
26		apreim 8501	. . . . . . . . . 10 |- ( ( ( x e. RR /\ y e. RR ) /\ ( z e. RR /\ w e. RR ) ) -> ( ( x + ( _i x. y ) ) # ( z + ( _i x. w ) ) <-> ( x # z \/ y # w ) ) )
27	5, 15, 7, 17, 26	syl22anc 1229	. . . . . . . . 9 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( ( x + ( _i x. y ) ) # ( z + ( _i x. w ) ) <-> ( x # z \/ y # w ) ) )
28		apreim 8501	. . . . . . . . . 10 |- ( ( ( z e. RR /\ w e. RR ) /\ ( x e. RR /\ y e. RR ) ) -> ( ( z + ( _i x. w ) ) # ( x + ( _i x. y ) ) <-> ( z # x \/ w # y ) ) )
29	7, 17, 5, 15, 28	syl22anc 1229	. . . . . . . . 9 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( ( z + ( _i x. w ) ) # ( x + ( _i x. y ) ) <-> ( z # x \/ w # y ) ) )
30	25, 27, 29	3bitr4d 219	. . . . . . . 8 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( ( x + ( _i x. y ) ) # ( z + ( _i x. w ) ) <-> ( z + ( _i x. w ) ) # ( x + ( _i x. y ) ) ) )
31		simpr 109	. . . . . . . . 9 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> A = ( x + ( _i x. y ) ) )
32		simpllr 524	. . . . . . . . 9 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> B = ( z + ( _i x. w ) ) )
33	31, 32	breq12d 3995	. . . . . . . 8 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( A # B <-> ( x + ( _i x. y ) ) # ( z + ( _i x. w ) ) ) )
34	32, 31	breq12d 3995	. . . . . . . 8 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( B # A <-> ( z + ( _i x. w ) ) # ( x + ( _i x. y ) ) ) )
35	30, 33, 34	3bitr4d 219	. . . . . . 7 |- ( ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) /\ A = ( x + ( _i x. y ) ) ) -> ( A # B <-> B # A ) )
36	35	ex 114	. . . . . 6 |- ( ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) /\ ( x e. RR /\ y e. RR ) ) -> ( A = ( x + ( _i x. y ) ) -> ( A # B <-> B # A ) ) )
37	36	rexlimdvva 2591	. . . . 5 |- ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) -> ( E. x e. RR E. y e. RR A = ( x + ( _i x. y ) ) -> ( A # B <-> B # A ) ) )
38	4, 37	mpd 13	. . . 4 |- ( ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) /\ B = ( z + ( _i x. w ) ) ) -> ( A # B <-> B # A ) )
39	38	ex 114	. . 3 |- ( ( ( A e. CC /\ B e. CC ) /\ ( z e. RR /\ w e. RR ) ) -> ( B = ( z + ( _i x. w ) ) -> ( A # B <-> B # A ) ) )
40	39	rexlimdvva 2591	. 2 |- ( ( A e. CC /\ B e. CC ) -> ( E. z e. RR E. w e. RR B = ( z + ( _i x. w ) ) -> ( A # B <-> B # A ) ) )
41	2, 40	mpd 13	1 |- ( ( A e. CC /\ B e. CC ) -> ( A # B <-> B # A ) )

Syntax hints:   -> wi 4   /\ wa 103   <-> wb 104   \/ wo 698   = wceq 1343   e. wcel 2136   E.wrex 2445   class class class wbr 3982  (class class class)co 5842   CCcc 7751   RRcr 7752   _ici 7755   + caddc 7756   x. cmul 7758   < clt 7933   # cap 8479

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-13 2138  ax-14 2139  ax-ext 2147  ax-sep 4100  ax-pow 4153  ax-pr 4187  ax-un 4411  ax-setind 4514  ax-cnex 7844  ax-resscn 7845  ax-1cn 7846  ax-1re 7847  ax-icn 7848  ax-addcl 7849  ax-addrcl 7850  ax-mulcl 7851  ax-mulrcl 7852  ax-addcom 7853  ax-mulcom 7854  ax-addass 7855  ax-mulass 7856  ax-distr 7857  ax-i2m1 7858  ax-0lt1 7859  ax-1rid 7860  ax-0id 7861  ax-rnegex 7862  ax-precex 7863  ax-cnre 7864  ax-pre-ltirr 7865  ax-pre-lttrn 7867  ax-pre-apti 7868  ax-pre-ltadd 7869  ax-pre-mulgt0 7870

This theorem depends on definitions:  df-bi 116  df-3an 970  df-tru 1346  df-fal 1349  df-nf 1449  df-sb 1751  df-eu 2017  df-mo 2018  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2297  df-ne 2337  df-nel 2432  df-ral 2449  df-rex 2450  df-reu 2451  df-rab 2453  df-v 2728  df-sbc 2952  df-dif 3118  df-un 3120  df-in 3122  df-ss 3129  df-pw 3561  df-sn 3582  df-pr 3583  df-op 3585  df-uni 3790  df-br 3983  df-opab 4044  df-id 4271  df-xp 4610  df-rel 4611  df-cnv 4612  df-co 4613  df-dm 4614  df-iota 5153  df-fun 5190  df-fv 5196  df-riota 5798  df-ov 5845  df-oprab 5846  df-mpo 5847  df-pnf 7935  df-mnf 7936  df-ltxr 7938  df-sub 8071  df-neg 8072  df-reap 8473  df-ap 8480

This theorem is referenced by:  addext  8508  mulext  8512  ltapii  8533  ltapd  8536  apdivmuld  8709  div2subap  8733  recgt0  8745  prodgt0  8747  pwm1geoserap1  11449  absgtap  11451  geolim  11452  geolim2  11453  geo2sum2  11456  geoisum1c  11461  tanaddap  11680  egt2lt3  11720  sqrt2irraplemnn  12111  triap  13908  apdiff  13927