Metamath Proof Explorer


Theorem 5oalem2

Description: Lemma for orthoarguesian law 5OA. (Contributed by NM, 2-Apr-2000) (New usage is discouraged.)

Ref Expression
Hypotheses 5oalem2.1 A S
5oalem2.2 B S
5oalem2.3 C S
5oalem2.4 D S
Assertion 5oalem2 x A y B z C w D x + y = z + w x - z A + C B + D

Proof

Step Hyp Ref Expression
1 5oalem2.1 A S
2 5oalem2.2 B S
3 5oalem2.3 C S
4 5oalem2.4 D S
5 1 3 shsvsi x A z C x - z A + C
6 5 ad2ant2r x A y B z C w D x - z A + C
7 6 adantr x A y B z C w D x + y = z + w x - z A + C
8 4 2 shsvsi w D y B w - y D + B
9 8 ancoms y B w D w - y D + B
10 2 4 shscomi B + D = D + B
11 9 10 eleqtrrdi y B w D w - y B + D
12 11 ad2ant2l x A y B z C w D w - y B + D
13 12 adantr x A y B z C w D x + y = z + w w - y B + D
14 1 sheli x A x
15 2 sheli y B y
16 14 15 anim12i x A y B x y
17 3 sheli z C z
18 4 sheli w D w
19 17 18 anim12i z C w D z w
20 16 19 anim12i x A y B z C w D x y z w
21 oveq1 x + y = z + w x + y - z + y = z + w - z + y
22 21 adantl x y z w x + y = z + w x + y - z + y = z + w - z + y
23 simpr x y y
24 23 anim2i z x y z y
25 24 ancoms x y z z y
26 hvsub4 x y z y x + y - z + y = x - z + y - y
27 25 26 syldan x y z x + y - z + y = x - z + y - y
28 hvsubid y y - y = 0
29 28 oveq2d y x - z + y - y = x - z + 0
30 29 ad2antlr x y z x - z + y - y = x - z + 0
31 hvsubcl x z x - z
32 ax-hvaddid x - z x - z + 0 = x - z
33 31 32 syl x z x - z + 0 = x - z
34 33 adantlr x y z x - z + 0 = x - z
35 27 30 34 3eqtrd x y z x + y - z + y = x - z
36 35 adantrr x y z w x + y - z + y = x - z
37 36 adantr x y z w x + y = z + w x + y - z + y = x - z
38 simpr y z w z w
39 simpl z w z
40 39 anim1i z w y z y
41 40 ancoms y z w z y
42 hvsub4 z w z y z + w - z + y = z - z + w - y
43 38 41 42 syl2anc y z w z + w - z + y = z - z + w - y
44 hvsubid z z - z = 0
45 44 oveq1d z z - z + w - y = 0 + w - y
46 45 ad2antrl y z w z - z + w - y = 0 + w - y
47 hvsubcl w y w - y
48 hvaddid2 w - y 0 + w - y = w - y
49 47 48 syl w y 0 + w - y = w - y
50 49 ancoms y w 0 + w - y = w - y
51 50 adantrl y z w 0 + w - y = w - y
52 43 46 51 3eqtrd y z w z + w - z + y = w - y
53 52 adantll x y z w z + w - z + y = w - y
54 53 adantr x y z w x + y = z + w z + w - z + y = w - y
55 22 37 54 3eqtr3d x y z w x + y = z + w x - z = w - y
56 55 eleq1d x y z w x + y = z + w x - z B + D w - y B + D
57 20 56 sylan x A y B z C w D x + y = z + w x - z B + D w - y B + D
58 13 57 mpbird x A y B z C w D x + y = z + w x - z B + D
59 7 58 elind x A y B z C w D x + y = z + w x - z A + C B + D