Metamath Proof Explorer


Theorem istrkgb

Description: Property of being a Tarski geometry - betweenness part. (Contributed by Thierry Arnoux, 14-Mar-2019)

Ref Expression
Hypotheses istrkg.p P = Base G
istrkg.d - ˙ = dist G
istrkg.i I = Itv G
Assertion istrkgb G 𝒢 Tarski B G V x P y P y x I x x = y x P y P z P u P v P u x I z v y I z a P a u I y a v I x s 𝒫 P t 𝒫 P a P x s y t x a I y b P x s y t b x I y

Proof

Step Hyp Ref Expression
1 istrkg.p P = Base G
2 istrkg.d - ˙ = dist G
3 istrkg.i I = Itv G
4 simpl p = P i = I p = P
5 4 eqcomd p = P i = I P = p
6 5 adantr p = P i = I x P P = p
7 simpllr p = P i = I x P y P i = I
8 7 eqcomd p = P i = I x P y P I = i
9 8 oveqd p = P i = I x P y P x I x = x i x
10 9 eleq2d p = P i = I x P y P y x I x y x i x
11 10 imbi1d p = P i = I x P y P y x I x x = y y x i x x = y
12 6 11 raleqbidva p = P i = I x P y P y x I x x = y y p y x i x x = y
13 5 12 raleqbidva p = P i = I x P y P y x I x x = y x p y p y x i x x = y
14 6 adantr p = P i = I x P y P P = p
15 14 adantr p = P i = I x P y P z P P = p
16 15 adantr p = P i = I x P y P z P u P P = p
17 simp-6r p = P i = I x P y P z P u P v P i = I
18 17 eqcomd p = P i = I x P y P z P u P v P I = i
19 18 oveqd p = P i = I x P y P z P u P v P x I z = x i z
20 19 eleq2d p = P i = I x P y P z P u P v P u x I z u x i z
21 18 oveqd p = P i = I x P y P z P u P v P y I z = y i z
22 21 eleq2d p = P i = I x P y P z P u P v P v y I z v y i z
23 20 22 anbi12d p = P i = I x P y P z P u P v P u x I z v y I z u x i z v y i z
24 16 adantr p = P i = I x P y P z P u P v P P = p
25 18 oveqdr p = P i = I x P y P z P u P v P a P u I y = u i y
26 25 eleq2d p = P i = I x P y P z P u P v P a P a u I y a u i y
27 18 oveqdr p = P i = I x P y P z P u P v P a P v I x = v i x
28 27 eleq2d p = P i = I x P y P z P u P v P a P a v I x a v i x
29 26 28 anbi12d p = P i = I x P y P z P u P v P a P a u I y a v I x a u i y a v i x
30 24 29 rexeqbidva p = P i = I x P y P z P u P v P a P a u I y a v I x a p a u i y a v i x
31 23 30 imbi12d p = P i = I x P y P z P u P v P u x I z v y I z a P a u I y a v I x u x i z v y i z a p a u i y a v i x
32 16 31 raleqbidva p = P i = I x P y P z P u P v P u x I z v y I z a P a u I y a v I x v p u x i z v y i z a p a u i y a v i x
33 15 32 raleqbidva p = P i = I x P y P z P u P v P u x I z v y I z a P a u I y a v I x u p v p u x i z v y i z a p a u i y a v i x
34 14 33 raleqbidva p = P i = I x P y P z P u P v P u x I z v y I z a P a u I y a v I x z p u p v p u x i z v y i z a p a u i y a v i x
35 6 34 raleqbidva p = P i = I x P y P z P u P v P u x I z v y I z a P a u I y a v I x y p z p u p v p u x i z v y i z a p a u i y a v i x
36 5 35 raleqbidva p = P i = I x P y P z P u P v P u x I z v y I z a P a u I y a v I x x p y p z p u p v p u x i z v y i z a p a u i y a v i x
37 5 pweqd p = P i = I 𝒫 P = 𝒫 p
38 37 adantr p = P i = I s 𝒫 P 𝒫 P = 𝒫 p
39 5 ad2antrr p = P i = I s 𝒫 P t 𝒫 P P = p
40 simp-4r p = P i = I s 𝒫 P t 𝒫 P a P i = I
41 40 eqcomd p = P i = I s 𝒫 P t 𝒫 P a P I = i
42 41 oveqd p = P i = I s 𝒫 P t 𝒫 P a P a I y = a i y
43 42 eleq2d p = P i = I s 𝒫 P t 𝒫 P a P x a I y x a i y
44 43 2ralbidv p = P i = I s 𝒫 P t 𝒫 P a P x s y t x a I y x s y t x a i y
45 39 44 rexeqbidva p = P i = I s 𝒫 P t 𝒫 P a P x s y t x a I y a p x s y t x a i y
46 simp-4r p = P i = I s 𝒫 P t 𝒫 P b P i = I
47 46 eqcomd p = P i = I s 𝒫 P t 𝒫 P b P I = i
48 47 oveqd p = P i = I s 𝒫 P t 𝒫 P b P x I y = x i y
49 48 eleq2d p = P i = I s 𝒫 P t 𝒫 P b P b x I y b x i y
50 49 2ralbidv p = P i = I s 𝒫 P t 𝒫 P b P x s y t b x I y x s y t b x i y
51 39 50 rexeqbidva p = P i = I s 𝒫 P t 𝒫 P b P x s y t b x I y b p x s y t b x i y
52 45 51 imbi12d p = P i = I s 𝒫 P t 𝒫 P a P x s y t x a I y b P x s y t b x I y a p x s y t x a i y b p x s y t b x i y
53 38 52 raleqbidva p = P i = I s 𝒫 P t 𝒫 P a P x s y t x a I y b P x s y t b x I y t 𝒫 p a p x s y t x a i y b p x s y t b x i y
54 37 53 raleqbidva p = P i = I s 𝒫 P t 𝒫 P a P x s y t x a I y b P x s y t b x I y s 𝒫 p t 𝒫 p a p x s y t x a i y b p x s y t b x i y
55 13 36 54 3anbi123d p = P i = I x P y P y x I x x = y x P y P z P u P v P u x I z v y I z a P a u I y a v I x s 𝒫 P t 𝒫 P a P x s y t x a I y b P x s y t b x I y x p y p y x i x x = y x p y p z p u p v p u x i z v y i z a p a u i y a v i x s 𝒫 p t 𝒫 p a p x s y t x a i y b p x s y t b x i y
56 1 3 55 sbcie2s f = G [˙Base f / p]˙ [˙ Itv f / i]˙ x p y p y x i x x = y x p y p z p u p v p u x i z v y i z a p a u i y a v i x s 𝒫 p t 𝒫 p a p x s y t x a i y b p x s y t b x i y x P y P y x I x x = y x P y P z P u P v P u x I z v y I z a P a u I y a v I x s 𝒫 P t 𝒫 P a P x s y t x a I y b P x s y t b x I y
57 df-trkgb 𝒢 Tarski B = f | [˙Base f / p]˙ [˙ Itv f / i]˙ x p y p y x i x x = y x p y p z p u p v p u x i z v y i z a p a u i y a v i x s 𝒫 p t 𝒫 p a p x s y t x a i y b p x s y t b x i y
58 56 57 elab4g G 𝒢 Tarski B G V x P y P y x I x x = y x P y P z P u P v P u x I z v y I z a P a u I y a v I x s 𝒫 P t 𝒫 P a P x s y t x a I y b P x s y t b x I y