Metamath Proof Explorer


Theorem istrkge

Description: Property of fulfilling Euclid's axiom. (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 istrkge G 𝒢 Tarski E G V x P y P z P u P v P u x I v u y I z x u a P b P y x I a z x I b v a I b

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 6 adantr p = P i = I x P y P P = p
8 7 adantr p = P i = I x P y P z P P = p
9 8 adantr p = P i = I x P y P z P u P P = p
10 simp-6r p = P i = I x P y P z P u P v P i = I
11 10 eqcomd p = P i = I x P y P z P u P v P I = i
12 11 oveqd p = P i = I x P y P z P u P v P x I v = x i v
13 12 eleq2d p = P i = I x P y P z P u P v P u x I v u x i v
14 11 oveqd p = P i = I x P y P z P u P v P y I z = y i z
15 14 eleq2d p = P i = I x P y P z P u P v P u y I z u y i z
16 13 15 3anbi12d p = P i = I x P y P z P u P v P u x I v u y I z x u u x i v u y i z x u
17 9 adantr p = P i = I x P y P z P u P v P P = p
18 17 adantr p = P i = I x P y P z P u P v P a P P = p
19 10 ad2antrr p = P i = I x P y P z P u P v P a P b P i = I
20 19 eqcomd p = P i = I x P y P z P u P v P a P b P I = i
21 20 oveqd p = P i = I x P y P z P u P v P a P b P x I a = x i a
22 21 eleq2d p = P i = I x P y P z P u P v P a P b P y x I a y x i a
23 20 oveqd p = P i = I x P y P z P u P v P a P b P x I b = x i b
24 23 eleq2d p = P i = I x P y P z P u P v P a P b P z x I b z x i b
25 20 oveqd p = P i = I x P y P z P u P v P a P b P a I b = a i b
26 25 eleq2d p = P i = I x P y P z P u P v P a P b P v a I b v a i b
27 22 24 26 3anbi123d p = P i = I x P y P z P u P v P a P b P y x I a z x I b v a I b y x i a z x i b v a i b
28 18 27 rexeqbidva p = P i = I x P y P z P u P v P a P b P y x I a z x I b v a I b b p y x i a z x i b v a i b
29 17 28 rexeqbidva p = P i = I x P y P z P u P v P a P b P y x I a z x I b v a I b a p b p y x i a z x i b v a i b
30 16 29 imbi12d p = P i = I x P y P z P u P v P u x I v u y I z x u a P b P y x I a z x I b v a I b u x i v u y i z x u a p b p y x i a z x i b v a i b
31 9 30 raleqbidva p = P i = I x P y P z P u P v P u x I v u y I z x u a P b P y x I a z x I b v a I b v p u x i v u y i z x u a p b p y x i a z x i b v a i b
32 8 31 raleqbidva p = P i = I x P y P z P u P v P u x I v u y I z x u a P b P y x I a z x I b v a I b u p v p u x i v u y i z x u a p b p y x i a z x i b v a i b
33 7 32 raleqbidva p = P i = I x P y P z P u P v P u x I v u y I z x u a P b P y x I a z x I b v a I b z p u p v p u x i v u y i z x u a p b p y x i a z x i b v a i b
34 6 33 raleqbidva p = P i = I x P y P z P u P v P u x I v u y I z x u a P b P y x I a z x I b v a I b y p z p u p v p u x i v u y i z x u a p b p y x i a z x i b v a i b
35 5 34 raleqbidva p = P i = I x P y P z P u P v P u x I v u y I z x u a P b P y x I a z x I b v a I b x p y p z p u p v p u x i v u y i z x u a p b p y x i a z x i b v a i b
36 1 3 35 sbcie2s f = G [˙Base f / p]˙ [˙ Itv f / i]˙ x p y p z p u p v p u x i v u y i z x u a p b p y x i a z x i b v a i b x P y P z P u P v P u x I v u y I z x u a P b P y x I a z x I b v a I b
37 df-trkge 𝒢 Tarski E = f | [˙Base f / p]˙ [˙ Itv f / i]˙ x p y p z p u p v p u x i v u y i z x u a p b p y x i a z x i b v a i b
38 36 37 elab4g G 𝒢 Tarski E G V x P y P z P u P v P u x I v u y I z x u a P b P y x I a z x I b v a I b