Metamath Proof Explorer


Theorem lines

Description: The lines passing through two different points in a left module (or any extended structure having a base set, an addition, and a scalar multiplication). (Contributed by AV, 14-Jan-2023)

Ref Expression
Hypotheses lines.b ⊢ B = Base W
lines.l ⊢ L = Line M ⁡ W
lines.s ⊢ S = Scalar ⁡ W
lines.k ⊢ K = Base S
lines.p ⊢ · ˙ = ⋅ W
lines.a ⊢ + ˙ = + W
lines.m ⊢ - ˙ = - S
lines.1 ⊢ 1 ˙ = 1 S
Assertion lines ⊢ W ∈ V → L = x ∈ B , y ∈ B ∖ x ⟼ p ∈ B | ∃ t ∈ K p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y

Proof

Step Hyp Ref Expression
1 lines.b ⊢ B = Base W
2 lines.l ⊢ L = Line M ⁡ W
3 lines.s ⊢ S = Scalar ⁡ W
4 lines.k ⊢ K = Base S
5 lines.p ⊢ · ˙ = ⋅ W
6 lines.a ⊢ + ˙ = + W
7 lines.m ⊢ - ˙ = - S
8 lines.1 ⊢ 1 ˙ = 1 S
9 df-line ⊢ Line M = w ∈ V ⟼ x ∈ Base w , y ∈ Base w ∖ x ⟼ p ∈ Base w | ∃ t ∈ Base Scalar ⁡ w p = 1 Scalar ⁡ w - Scalar ⁡ w t ⋅ w x + w t ⋅ w y
10 fveq2 ⊢ W = w → Base W = Base w
11 1 10 eqtrid ⊢ W = w → B = Base w
12 11 difeq1d ⊢ W = w → B ∖ x = Base w ∖ x
13 fveq2 ⊢ W = w → Scalar ⁡ W = Scalar ⁡ w
14 3 13 eqtrid ⊢ W = w → S = Scalar ⁡ w
15 14 fveq2d ⊢ W = w → Base S = Base Scalar ⁡ w
16 4 15 eqtrid ⊢ W = w → K = Base Scalar ⁡ w
17 fveq2 ⊢ W = w → + W = + w
18 6 17 eqtrid ⊢ W = w → + ˙ = + w
19 fveq2 ⊢ W = w → ⋅ W = ⋅ w
20 5 19 eqtrid ⊢ W = w → · ˙ = ⋅ w
21 3 fveq2i ⊢ - S = - Scalar ⁡ W
22 7 21 eqtri ⊢ - ˙ = - Scalar ⁡ W
23 2fveq3 ⊢ W = w → - Scalar ⁡ W = - Scalar ⁡ w
24 22 23 eqtrid ⊢ W = w → - ˙ = - Scalar ⁡ w
25 3 fveq2i ⊢ 1 S = 1 Scalar ⁡ W
26 8 25 eqtri ⊢ 1 ˙ = 1 Scalar ⁡ W
27 2fveq3 ⊢ W = w → 1 Scalar ⁡ W = 1 Scalar ⁡ w
28 26 27 eqtrid ⊢ W = w → 1 ˙ = 1 Scalar ⁡ w
29 eqidd ⊢ W = w → t = t
30 24 28 29 oveq123d ⊢ W = w → 1 ˙ - ˙ t = 1 Scalar ⁡ w - Scalar ⁡ w t
31 eqidd ⊢ W = w → x = x
32 20 30 31 oveq123d ⊢ W = w → 1 ˙ - ˙ t · ˙ x = 1 Scalar ⁡ w - Scalar ⁡ w t ⋅ w x
33 20 oveqd ⊢ W = w → t · ˙ y = t ⋅ w y
34 18 32 33 oveq123d ⊢ W = w → 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y = 1 Scalar ⁡ w - Scalar ⁡ w t ⋅ w x + w t ⋅ w y
35 34 eqeq2d ⊢ W = w → p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y ↔ p = 1 Scalar ⁡ w - Scalar ⁡ w t ⋅ w x + w t ⋅ w y
36 16 35 rexeqbidv ⊢ W = w → ∃ t ∈ K p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y ↔ ∃ t ∈ Base Scalar ⁡ w p = 1 Scalar ⁡ w - Scalar ⁡ w t ⋅ w x + w t ⋅ w y
37 11 36 rabeqbidv ⊢ W = w → p ∈ B | ∃ t ∈ K p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y = p ∈ Base w | ∃ t ∈ Base Scalar ⁡ w p = 1 Scalar ⁡ w - Scalar ⁡ w t ⋅ w x + w t ⋅ w y
38 11 12 37 mpoeq123dv ⊢ W = w → x ∈ B , y ∈ B ∖ x ⟼ p ∈ B | ∃ t ∈ K p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y = x ∈ Base w , y ∈ Base w ∖ x ⟼ p ∈ Base w | ∃ t ∈ Base Scalar ⁡ w p = 1 Scalar ⁡ w - Scalar ⁡ w t ⋅ w x + w t ⋅ w y
39 38 eqcomd ⊢ W = w → x ∈ Base w , y ∈ Base w ∖ x ⟼ p ∈ Base w | ∃ t ∈ Base Scalar ⁡ w p = 1 Scalar ⁡ w - Scalar ⁡ w t ⋅ w x + w t ⋅ w y = x ∈ B , y ∈ B ∖ x ⟼ p ∈ B | ∃ t ∈ K p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y
40 39 eqcoms ⊢ w = W → x ∈ Base w , y ∈ Base w ∖ x ⟼ p ∈ Base w | ∃ t ∈ Base Scalar ⁡ w p = 1 Scalar ⁡ w - Scalar ⁡ w t ⋅ w x + w t ⋅ w y = x ∈ B , y ∈ B ∖ x ⟼ p ∈ B | ∃ t ∈ K p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y
41 elex ⊢ W ∈ V → W ∈ V
42 1 fvexi ⊢ B ∈ V
43 42 difexi ⊢ B ∖ x ∈ V
44 42 43 mpoex ⊢ x ∈ B , y ∈ B ∖ x ⟼ p ∈ B | ∃ t ∈ K p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y ∈ V
45 44 a1i ⊢ W ∈ V → x ∈ B , y ∈ B ∖ x ⟼ p ∈ B | ∃ t ∈ K p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y ∈ V
46 9 40 41 45 fvmptd3 ⊢ W ∈ V → Line M ⁡ W = x ∈ B , y ∈ B ∖ x ⟼ p ∈ B | ∃ t ∈ K p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y
47 2 46 eqtrid ⊢ W ∈ V → L = x ∈ B , y ∈ B ∖ x ⟼ p ∈ B | ∃ t ∈ K p = 1 ˙ - ˙ t · ˙ x + ˙ t · ˙ y