Metamath Proof Explorer


Theorem crosspv3d

Description: Value of the third component of the cross product. (Contributed by Jiamin Zhao, 12-Aug-2026)

Ref Expression
Hypotheses crosspd.1 ⊢ φ → A ∈ ℝ 1 … 3
crosspd.2 ⊢ φ → B ∈ ℝ 1 … 3
Assertion crosspv3d Could not format assertion : No typesetting found for |- ( ph -> ( ( A crossp B ) ` 3 ) = ( ( ( A ` 1 ) x. ( B ` 2 ) ) - ( ( A ` 2 ) x. ( B ` 1 ) ) ) ) with typecode |-

Proof

Step Hyp Ref Expression
1 crosspd.1 ⊢ φ → A ∈ ℝ 1 … 3
2 crosspd.2 ⊢ φ → B ∈ ℝ 1 … 3
3 id ⊢ k = 1 → k = 1
4 1ne3 ⊢ 1 ≠ 3
5 4 a1i ⊢ k = 1 → 1 ≠ 3
6 3 5 eqnetrd ⊢ k = 1 → k ≠ 3
7 6 necon2bi ⊢ k = 3 → ¬ k = 1
8 7 iffalsed ⊢ k = 3 → if k = 1 A ⁡ 2 ⁢ B ⁡ 3 − A ⁡ 3 ⁢ B ⁡ 2 if k = 2 A ⁡ 3 ⁢ B ⁡ 1 − A ⁡ 1 ⁢ B ⁡ 3 A ⁡ 1 ⁢ B ⁡ 2 − A ⁡ 2 ⁢ B ⁡ 1 = if k = 2 A ⁡ 3 ⁢ B ⁡ 1 − A ⁡ 1 ⁢ B ⁡ 3 A ⁡ 1 ⁢ B ⁡ 2 − A ⁡ 2 ⁢ B ⁡ 1
9 id ⊢ k = 2 → k = 2
10 2ne3 ⊢ 2 ≠ 3
11 10 a1i ⊢ k = 2 → 2 ≠ 3
12 9 11 eqnetrd ⊢ k = 2 → k ≠ 3
13 12 necon2bi ⊢ k = 3 → ¬ k = 2
14 13 iffalsed ⊢ k = 3 → if k = 2 A ⁡ 3 ⁢ B ⁡ 1 − A ⁡ 1 ⁢ B ⁡ 3 A ⁡ 1 ⁢ B ⁡ 2 − A ⁡ 2 ⁢ B ⁡ 1 = A ⁡ 1 ⁢ B ⁡ 2 − A ⁡ 2 ⁢ B ⁡ 1
15 8 14 eqtrd ⊢ k = 3 → if k = 1 A ⁡ 2 ⁢ B ⁡ 3 − A ⁡ 3 ⁢ B ⁡ 2 if k = 2 A ⁡ 3 ⁢ B ⁡ 1 − A ⁡ 1 ⁢ B ⁡ 3 A ⁡ 1 ⁢ B ⁡ 2 − A ⁡ 2 ⁢ B ⁡ 1 = A ⁡ 1 ⁢ B ⁡ 2 − A ⁡ 2 ⁢ B ⁡ 1
16 crosspval Could not format ( ( A e. ( RR ^m ( 1 ... 3 ) ) /\ B e. ( RR ^m ( 1 ... 3 ) ) ) -> ( A crossp B ) = ( k e. ( 1 ... 3 ) |-> if ( k = 1 , ( ( ( A ` 2 ) x. ( B ` 3 ) ) - ( ( A ` 3 ) x. ( B ` 2 ) ) ) , if ( k = 2 , ( ( ( A ` 3 ) x. ( B ` 1 ) ) - ( ( A ` 1 ) x. ( B ` 3 ) ) ) , ( ( ( A ` 1 ) x. ( B ` 2 ) ) - ( ( A ` 2 ) x. ( B ` 1 ) ) ) ) ) ) ) : No typesetting found for |- ( ( A e. ( RR ^m ( 1 ... 3 ) ) /\ B e. ( RR ^m ( 1 ... 3 ) ) ) -> ( A crossp B ) = ( k e. ( 1 ... 3 ) |-> if ( k = 1 , ( ( ( A ` 2 ) x. ( B ` 3 ) ) - ( ( A ` 3 ) x. ( B ` 2 ) ) ) , if ( k = 2 , ( ( ( A ` 3 ) x. ( B ` 1 ) ) - ( ( A ` 1 ) x. ( B ` 3 ) ) ) , ( ( ( A ` 1 ) x. ( B ` 2 ) ) - ( ( A ` 2 ) x. ( B ` 1 ) ) ) ) ) ) ) with typecode |-
17 1 2 16 syl2anc Could not format ( ph -> ( A crossp B ) = ( k e. ( 1 ... 3 ) |-> if ( k = 1 , ( ( ( A ` 2 ) x. ( B ` 3 ) ) - ( ( A ` 3 ) x. ( B ` 2 ) ) ) , if ( k = 2 , ( ( ( A ` 3 ) x. ( B ` 1 ) ) - ( ( A ` 1 ) x. ( B ` 3 ) ) ) , ( ( ( A ` 1 ) x. ( B ` 2 ) ) - ( ( A ` 2 ) x. ( B ` 1 ) ) ) ) ) ) ) : No typesetting found for |- ( ph -> ( A crossp B ) = ( k e. ( 1 ... 3 ) |-> if ( k = 1 , ( ( ( A ` 2 ) x. ( B ` 3 ) ) - ( ( A ` 3 ) x. ( B ` 2 ) ) ) , if ( k = 2 , ( ( ( A ` 3 ) x. ( B ` 1 ) ) - ( ( A ` 1 ) x. ( B ` 3 ) ) ) , ( ( ( A ` 1 ) x. ( B ` 2 ) ) - ( ( A ` 2 ) x. ( B ` 1 ) ) ) ) ) ) ) with typecode |-
18 3elfz13 ⊢ 3 ∈ 1 … 3
19 18 a1i ⊢ φ → 3 ∈ 1 … 3
20 1 2 crosspcle3d ⊢ φ → A ⁡ 1 ⁢ B ⁡ 2 − A ⁡ 2 ⁢ B ⁡ 1 ∈ ℝ
21 15 17 19 20 fvmptd4 Could not format ( ph -> ( ( A crossp B ) ` 3 ) = ( ( ( A ` 1 ) x. ( B ` 2 ) ) - ( ( A ` 2 ) x. ( B ` 1 ) ) ) ) : No typesetting found for |- ( ph -> ( ( A crossp B ) ` 3 ) = ( ( ( A ` 1 ) x. ( B ` 2 ) ) - ( ( A ` 2 ) x. ( B ` 1 ) ) ) ) with typecode |-