Metamath Proof Explorer


Theorem isperp2

Description: Property for 2 lines A, B, intersecting at a point X to be perpendicular. Item (i) of definition 8.13 of Schwabhauser p. 59. (Contributed by Thierry Arnoux, 16-Oct-2019)

Ref Expression
Hypotheses isperp.p P=BaseG
isperp.d -˙=distG
isperp.i I=ItvG
isperp.l L=Line𝒢G
isperp.g φG𝒢Tarski
isperp.a φAranL
isperp2.b φBranL
isperp2.x φXAB
Assertion isperp2 φA𝒢GBuAvB⟨“uXv”⟩𝒢G

Proof

Step Hyp Ref Expression
1 isperp.p P=BaseG
2 isperp.d -˙=distG
3 isperp.i I=ItvG
4 isperp.l L=Line𝒢G
5 isperp.g φG𝒢Tarski
6 isperp.a φAranL
7 isperp2.b φBranL
8 isperp2.x φXAB
9 eqidd φA𝒢GBxABuAvBu=u
10 5 ad4antr φA𝒢GBxABuAvBG𝒢Tarski
11 6 ad4antr φA𝒢GBxABuAvBAranL
12 7 ad4antr φA𝒢GBxABuAvBBranL
13 simp-4r φA𝒢GBxABuAvBA𝒢GB
14 1 2 3 4 10 11 12 13 perpneq φA𝒢GBxABuAvBAB
15 simpllr φA𝒢GBxABuAvBxAB
16 8 ad4antr φA𝒢GBxABuAvBXAB
17 1 3 4 10 11 12 14 15 16 tglineineq φA𝒢GBxABuAvBx=X
18 eqidd φA𝒢GBxABuAvBv=v
19 9 17 18 s3eqd φA𝒢GBxABuAvB⟨“uxv”⟩=⟨“uXv”⟩
20 19 eleq1d φA𝒢GBxABuAvB⟨“uxv”⟩𝒢G⟨“uXv”⟩𝒢G
21 20 biimpd φA𝒢GBxABuAvB⟨“uxv”⟩𝒢G⟨“uXv”⟩𝒢G
22 21 ralimdva φA𝒢GBxABuAvB⟨“uxv”⟩𝒢GvB⟨“uXv”⟩𝒢G
23 22 ralimdva φA𝒢GBxABuAvB⟨“uxv”⟩𝒢GuAvB⟨“uXv”⟩𝒢G
24 23 imp φA𝒢GBxABuAvB⟨“uxv”⟩𝒢GuAvB⟨“uXv”⟩𝒢G
25 1 2 3 4 5 6 7 isperp φA𝒢GBxABuAvB⟨“uxv”⟩𝒢G
26 25 biimpa φA𝒢GBxABuAvB⟨“uxv”⟩𝒢G
27 24 26 r19.29a φA𝒢GBuAvB⟨“uXv”⟩𝒢G
28 s3eq2 x=X⟨“uxv”⟩=⟨“uXv”⟩
29 28 eleq1d x=X⟨“uxv”⟩𝒢G⟨“uXv”⟩𝒢G
30 29 2ralbidv x=XuAvB⟨“uxv”⟩𝒢GuAvB⟨“uXv”⟩𝒢G
31 30 rspcev XABuAvB⟨“uXv”⟩𝒢GxABuAvB⟨“uxv”⟩𝒢G
32 8 31 sylan φuAvB⟨“uXv”⟩𝒢GxABuAvB⟨“uxv”⟩𝒢G
33 25 adantr φuAvB⟨“uXv”⟩𝒢GA𝒢GBxABuAvB⟨“uxv”⟩𝒢G
34 32 33 mpbird φuAvB⟨“uXv”⟩𝒢GA𝒢GB
35 27 34 impbida φA𝒢GBuAvB⟨“uXv”⟩𝒢G