Metamath Proof Explorer


Theorem 5oalem3

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

Ref Expression
Hypotheses 5oalem3.1 𝐴S
5oalem3.2 𝐵S
5oalem3.3 𝐶S
5oalem3.4 𝐷S
5oalem3.5 𝐹S
5oalem3.6 𝐺S
Assertion 5oalem3 ( ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑧𝐶𝑤𝐷 ) ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( ( 𝑥 + 𝑦 ) = ( 𝑓 + 𝑔 ) ∧ ( 𝑧 + 𝑤 ) = ( 𝑓 + 𝑔 ) ) ) → ( 𝑥 𝑧 ) ∈ ( ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) + ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) )

Proof

Step Hyp Ref Expression
1 5oalem3.1 𝐴S
2 5oalem3.2 𝐵S
3 5oalem3.3 𝐶S
4 5oalem3.4 𝐷S
5 5oalem3.5 𝐹S
6 5oalem3.6 𝐺S
7 anandir ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑧𝐶𝑤𝐷 ) ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ↔ ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( ( 𝑧𝐶𝑤𝐷 ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ) )
8 1 2 5 6 5oalem2 ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( 𝑥 + 𝑦 ) = ( 𝑓 + 𝑔 ) ) → ( 𝑥 𝑓 ) ∈ ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) )
9 3 4 5 6 5oalem2 ( ( ( ( 𝑧𝐶𝑤𝐷 ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( 𝑧 + 𝑤 ) = ( 𝑓 + 𝑔 ) ) → ( 𝑧 𝑓 ) ∈ ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) )
10 8 9 anim12i ( ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( 𝑥 + 𝑦 ) = ( 𝑓 + 𝑔 ) ) ∧ ( ( ( 𝑧𝐶𝑤𝐷 ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( 𝑧 + 𝑤 ) = ( 𝑓 + 𝑔 ) ) ) → ( ( 𝑥 𝑓 ) ∈ ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) ∧ ( 𝑧 𝑓 ) ∈ ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) )
11 10 an4s ( ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( ( 𝑧𝐶𝑤𝐷 ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ) ∧ ( ( 𝑥 + 𝑦 ) = ( 𝑓 + 𝑔 ) ∧ ( 𝑧 + 𝑤 ) = ( 𝑓 + 𝑔 ) ) ) → ( ( 𝑥 𝑓 ) ∈ ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) ∧ ( 𝑧 𝑓 ) ∈ ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) )
12 7 11 sylanb ( ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑧𝐶𝑤𝐷 ) ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( ( 𝑥 + 𝑦 ) = ( 𝑓 + 𝑔 ) ∧ ( 𝑧 + 𝑤 ) = ( 𝑓 + 𝑔 ) ) ) → ( ( 𝑥 𝑓 ) ∈ ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) ∧ ( 𝑧 𝑓 ) ∈ ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) )
13 1 5 shscli ( 𝐴 + 𝐹 ) ∈ S
14 2 6 shscli ( 𝐵 + 𝐺 ) ∈ S
15 13 14 shincli ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) ∈ S
16 3 5 shscli ( 𝐶 + 𝐹 ) ∈ S
17 4 6 shscli ( 𝐷 + 𝐺 ) ∈ S
18 16 17 shincli ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ∈ S
19 15 18 shsvsi ( ( ( 𝑥 𝑓 ) ∈ ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) ∧ ( 𝑧 𝑓 ) ∈ ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) → ( ( 𝑥 𝑓 ) − ( 𝑧 𝑓 ) ) ∈ ( ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) + ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) )
20 12 19 syl ( ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑧𝐶𝑤𝐷 ) ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( ( 𝑥 + 𝑦 ) = ( 𝑓 + 𝑔 ) ∧ ( 𝑧 + 𝑤 ) = ( 𝑓 + 𝑔 ) ) ) → ( ( 𝑥 𝑓 ) − ( 𝑧 𝑓 ) ) ∈ ( ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) + ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) )
21 1 sheli ( 𝑥𝐴𝑥 ∈ ℋ )
22 21 adantr ( ( 𝑥𝐴𝑦𝐵 ) → 𝑥 ∈ ℋ )
23 3 sheli ( 𝑧𝐶𝑧 ∈ ℋ )
24 23 adantr ( ( 𝑧𝐶𝑤𝐷 ) → 𝑧 ∈ ℋ )
25 22 24 anim12i ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑧𝐶𝑤𝐷 ) ) → ( 𝑥 ∈ ℋ ∧ 𝑧 ∈ ℋ ) )
26 5 sheli ( 𝑓𝐹𝑓 ∈ ℋ )
27 26 adantr ( ( 𝑓𝐹𝑔𝐺 ) → 𝑓 ∈ ℋ )
28 hvsubsub4 ( ( ( 𝑥 ∈ ℋ ∧ 𝑓 ∈ ℋ ) ∧ ( 𝑧 ∈ ℋ ∧ 𝑓 ∈ ℋ ) ) → ( ( 𝑥 𝑓 ) − ( 𝑧 𝑓 ) ) = ( ( 𝑥 𝑧 ) − ( 𝑓 𝑓 ) ) )
29 28 anandirs ( ( ( 𝑥 ∈ ℋ ∧ 𝑧 ∈ ℋ ) ∧ 𝑓 ∈ ℋ ) → ( ( 𝑥 𝑓 ) − ( 𝑧 𝑓 ) ) = ( ( 𝑥 𝑧 ) − ( 𝑓 𝑓 ) ) )
30 hvsubid ( 𝑓 ∈ ℋ → ( 𝑓 𝑓 ) = 0 )
31 30 oveq2d ( 𝑓 ∈ ℋ → ( ( 𝑥 𝑧 ) − ( 𝑓 𝑓 ) ) = ( ( 𝑥 𝑧 ) − 0 ) )
32 hvsubcl ( ( 𝑥 ∈ ℋ ∧ 𝑧 ∈ ℋ ) → ( 𝑥 𝑧 ) ∈ ℋ )
33 hvsub0 ( ( 𝑥 𝑧 ) ∈ ℋ → ( ( 𝑥 𝑧 ) − 0 ) = ( 𝑥 𝑧 ) )
34 32 33 syl ( ( 𝑥 ∈ ℋ ∧ 𝑧 ∈ ℋ ) → ( ( 𝑥 𝑧 ) − 0 ) = ( 𝑥 𝑧 ) )
35 31 34 sylan9eqr ( ( ( 𝑥 ∈ ℋ ∧ 𝑧 ∈ ℋ ) ∧ 𝑓 ∈ ℋ ) → ( ( 𝑥 𝑧 ) − ( 𝑓 𝑓 ) ) = ( 𝑥 𝑧 ) )
36 29 35 eqtrd ( ( ( 𝑥 ∈ ℋ ∧ 𝑧 ∈ ℋ ) ∧ 𝑓 ∈ ℋ ) → ( ( 𝑥 𝑓 ) − ( 𝑧 𝑓 ) ) = ( 𝑥 𝑧 ) )
37 25 27 36 syl2an ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑧𝐶𝑤𝐷 ) ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) → ( ( 𝑥 𝑓 ) − ( 𝑧 𝑓 ) ) = ( 𝑥 𝑧 ) )
38 37 eleq1d ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑧𝐶𝑤𝐷 ) ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) → ( ( ( 𝑥 𝑓 ) − ( 𝑧 𝑓 ) ) ∈ ( ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) + ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) ↔ ( 𝑥 𝑧 ) ∈ ( ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) + ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) ) )
39 38 adantr ( ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑧𝐶𝑤𝐷 ) ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( ( 𝑥 + 𝑦 ) = ( 𝑓 + 𝑔 ) ∧ ( 𝑧 + 𝑤 ) = ( 𝑓 + 𝑔 ) ) ) → ( ( ( 𝑥 𝑓 ) − ( 𝑧 𝑓 ) ) ∈ ( ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) + ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) ↔ ( 𝑥 𝑧 ) ∈ ( ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) + ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) ) )
40 20 39 mpbid ( ( ( ( ( 𝑥𝐴𝑦𝐵 ) ∧ ( 𝑧𝐶𝑤𝐷 ) ) ∧ ( 𝑓𝐹𝑔𝐺 ) ) ∧ ( ( 𝑥 + 𝑦 ) = ( 𝑓 + 𝑔 ) ∧ ( 𝑧 + 𝑤 ) = ( 𝑓 + 𝑔 ) ) ) → ( 𝑥 𝑧 ) ∈ ( ( ( 𝐴 + 𝐹 ) ∩ ( 𝐵 + 𝐺 ) ) + ( ( 𝐶 + 𝐹 ) ∩ ( 𝐷 + 𝐺 ) ) ) )