Search for blocks/addresses/...
Proofgold Proof
pf
Claim L0:
HSNo
(
mul_HSNo
Complex_i
Quaternion_k
)
Apply HSNo_mul_HSNo with
Complex_i
,
Quaternion_k
leaving 2 subgoals.
The subproof is completed by applying HSNo_Complex_i.
The subproof is completed by applying HSNo_Quaternion_k.
Apply HSNo_proj0proj1_split with
mul_HSNo
Complex_i
Quaternion_k
,
minus_HSNo
Quaternion_j
leaving 4 subgoals.
The subproof is completed by applying L0.
Apply HSNo_minus_HSNo with
Quaternion_j
.
The subproof is completed by applying HSNo_Quaternion_j.
Apply minus_HSNo_proj0 with
Quaternion_j
,
λ x0 x1 .
HSNo_proj0
(
mul_HSNo
Complex_i
Quaternion_k
)
=
x1
leaving 2 subgoals.
The subproof is completed by applying HSNo_Quaternion_j.
Apply HSNo_p0_j with
λ x0 x1 .
HSNo_proj0
(
mul_HSNo
Complex_i
Quaternion_k
)
=
minus_CSNo
x1
.
Apply mul_HSNo_proj0 with
Complex_i
,
Quaternion_k
,
λ x0 x1 .
x1
=
minus_CSNo
0
leaving 3 subgoals.
The subproof is completed by applying HSNo_Complex_i.
The subproof is completed by applying HSNo_Quaternion_k.
Apply HSNo_p0_i with
λ x0 x1 .
add_CSNo
(
mul_CSNo
x1
(
HSNo_proj0
Quaternion_k
)
)
(
minus_CSNo
(
mul_CSNo
(
conj_CSNo
(
HSNo_proj1
Quaternion_k
)
)
(
HSNo_proj1
Complex_i
)
)
)
=
minus_CSNo
0
.
Apply HSNo_p1_i with
λ x0 x1 .
add_CSNo
(
mul_CSNo
Complex_i
(
HSNo_proj0
Quaternion_k
)
)
(
minus_CSNo
(
mul_CSNo
(
conj_CSNo
(
HSNo_proj1
Quaternion_k
)
)
x1
)
)
=
minus_CSNo
0
.
Apply HSNo_p0_k with
λ x0 x1 .
add_CSNo
(
mul_CSNo
Complex_i
x1
)
(
minus_CSNo
(
mul_CSNo
(
conj_CSNo
(
HSNo_proj1
Quaternion_k
)
)
0
)
)
=
minus_CSNo
0
.
Apply HSNo_p1_k with
λ x0 x1 .
add_CSNo
(
mul_CSNo
Complex_i
0
)
(
minus_CSNo
(
mul_CSNo
(
conj_CSNo
x1
)
0
)
)
=
minus_CSNo
0
.
Apply mul_CSNo_0R with
Complex_i
,
λ x0 x1 .
add_CSNo
x1
(
minus_CSNo
(
mul_CSNo
(
conj_CSNo
Complex_i
)
0
)
)
=
minus_CSNo
0
leaving 2 subgoals.
The subproof is completed by applying CSNo_Complex_i.
Apply mul_CSNo_0R with
conj_CSNo
Complex_i
,
λ x0 x1 .
add_CSNo
0
(
minus_CSNo
x1
)
=
minus_CSNo
0
leaving 2 subgoals.
Apply CSNo_conj_CSNo with
Complex_i
.
The subproof is completed by applying CSNo_Complex_i.
Apply add_CSNo_0L with
minus_CSNo
0
.
Apply CSNo_minus_CSNo with
0
.
The subproof is completed by applying CSNo_0.
Apply minus_HSNo_proj1 with
Quaternion_j
,
λ x0 x1 .
HSNo_proj1
(
mul_HSNo
Complex_i
Quaternion_k
)
=
x1
leaving 2 subgoals.
The subproof is completed by applying HSNo_Quaternion_j.
Apply HSNo_p1_j with
λ x0 x1 .
HSNo_proj1
(
mul_HSNo
Complex_i
Quaternion_k
)
=
minus_CSNo
x1
.
Apply mul_HSNo_proj1 with
Complex_i
,
Quaternion_k
,
λ x0 x1 .
x1
=
minus_CSNo
1
leaving 3 subgoals.
The subproof is completed by applying HSNo_Complex_i.
The subproof is completed by applying HSNo_Quaternion_k.
Apply HSNo_p0_i with
λ x0 x1 .
add_CSNo
(
mul_CSNo
(
HSNo_proj1
Quaternion_k
)
x1
)
(
mul_CSNo
(
HSNo_proj1
Complex_i
)
(
conj_CSNo
(
HSNo_proj0
Quaternion_k
)
)
)
=
minus_CSNo
1
.
Apply HSNo_p1_i with
λ x0 x1 .
add_CSNo
(
mul_CSNo
(
HSNo_proj1
Quaternion_k
)
Complex_i
)
(
mul_CSNo
x1
(
conj_CSNo
(
HSNo_proj0
Quaternion_k
)
)
)
=
minus_CSNo
1
.
Apply HSNo_p0_k with
λ x0 x1 .
add_CSNo
(
mul_CSNo
(
HSNo_proj1
Quaternion_k
)
Complex_i
)
(
mul_CSNo
0
(
conj_CSNo
x1
)
)
=
minus_CSNo
1
.
Apply HSNo_p1_k with
λ x0 x1 .
add_CSNo
(
mul_CSNo
x1
Complex_i
)
(
mul_CSNo
0
(
conj_CSNo
0
)
)
=
minus_CSNo
1
.
Apply mul_CSNo_0L with
conj_CSNo
0
,
λ x0 x1 .
add_CSNo
(
mul_CSNo
Complex_i
Complex_i
)
x1
=
minus_CSNo
1
leaving 2 subgoals.
Apply CSNo_conj_CSNo with
0
.
The subproof is completed by applying CSNo_0.
Apply Complex_i_sqr with
λ x0 x1 .
add_CSNo
x1
0
=
minus_CSNo
1
.
Apply add_CSNo_0R with
minus_CSNo
1
.
Apply CSNo_minus_CSNo with
1
.
The subproof is completed by applying CSNo_1.
■