Search for blocks/addresses/...

Proofgold Proof

pf
Claim L0: HSNo (mul_HSNo Quaternion_j Quaternion_j)
Apply HSNo_mul_HSNo with Quaternion_j, Quaternion_j leaving 2 subgoals.
The subproof is completed by applying HSNo_Quaternion_j.
The subproof is completed by applying HSNo_Quaternion_j.
Claim L1: HSNo (minus_HSNo 1)
Apply HSNo_minus_HSNo with 1.
The subproof is completed by applying HSNo_1.
Apply HSNo_proj0proj1_split with mul_HSNo Quaternion_j Quaternion_j, minus_HSNo 1 leaving 4 subgoals.
The subproof is completed by applying L0.
The subproof is completed by applying L1.
Apply mul_HSNo_proj0 with Quaternion_j, Quaternion_j, λ x0 x1 . x1 = HSNo_proj0 (minus_HSNo 1) leaving 3 subgoals.
The subproof is completed by applying HSNo_Quaternion_j.
The subproof is completed by applying HSNo_Quaternion_j.
Apply minus_HSNo_proj0 with 1, λ x0 x1 . add_CSNo (mul_CSNo (HSNo_proj0 Quaternion_j) (HSNo_proj0 Quaternion_j)) (minus_CSNo (mul_CSNo (conj_CSNo (HSNo_proj1 Quaternion_j)) (HSNo_proj1 Quaternion_j))) = x1 leaving 2 subgoals.
The subproof is completed by applying HSNo_1.
Apply HSNo_p0_j with λ x0 x1 . add_CSNo (mul_CSNo x1 x1) (minus_CSNo (mul_CSNo (conj_CSNo (HSNo_proj1 Quaternion_j)) (HSNo_proj1 Quaternion_j))) = minus_CSNo (HSNo_proj0 1).
Apply HSNo_p1_j with λ x0 x1 . add_CSNo (mul_CSNo 0 0) (minus_CSNo (mul_CSNo (conj_CSNo x1) x1)) = minus_CSNo (HSNo_proj0 1).
Apply CSNo_HSNo_proj0 with 1, λ x0 x1 . add_CSNo (mul_CSNo 0 0) (minus_CSNo (mul_CSNo (conj_CSNo 1) 1)) = minus_CSNo x1 leaving 2 subgoals.
The subproof is completed by applying CSNo_1.
Apply conj_CSNo_1 with λ x0 x1 . add_CSNo (mul_CSNo 0 0) (minus_CSNo (mul_CSNo x1 1)) = minus_CSNo 1.
Apply mul_CSNo_0L with 0, λ x0 x1 . add_CSNo x1 (minus_CSNo (mul_CSNo 1 1)) = minus_CSNo 1 leaving 2 subgoals.
The subproof is completed by applying CSNo_0.
Apply mul_CSNo_1L with 1, λ x0 x1 . add_CSNo 0 (minus_CSNo x1) = minus_CSNo 1 leaving 2 subgoals.
The subproof is completed by applying CSNo_1.
Apply add_CSNo_0L with minus_CSNo 1.
Apply CSNo_minus_CSNo with 1.
The subproof is completed by applying CSNo_1.
Apply mul_HSNo_proj1 with Quaternion_j, Quaternion_j, λ x0 x1 . x1 = HSNo_proj1 (minus_HSNo 1) leaving 3 subgoals.
The subproof is completed by applying HSNo_Quaternion_j.
The subproof is completed by applying HSNo_Quaternion_j.
Apply minus_HSNo_proj1 with 1, λ x0 x1 . add_CSNo (mul_CSNo (HSNo_proj1 Quaternion_j) (HSNo_proj0 Quaternion_j)) (mul_CSNo (HSNo_proj1 Quaternion_j) (conj_CSNo (HSNo_proj0 Quaternion_j))) = x1 leaving 2 subgoals.
The subproof is completed by applying HSNo_1.
Apply HSNo_p1_1 with λ x0 x1 . add_CSNo (mul_CSNo (HSNo_proj1 Quaternion_j) (HSNo_proj0 Quaternion_j)) (mul_CSNo (HSNo_proj1 Quaternion_j) (conj_CSNo (HSNo_proj0 Quaternion_j))) = minus_CSNo x1.
Apply minus_CSNo_0 with λ x0 x1 . add_CSNo (mul_CSNo (HSNo_proj1 Quaternion_j) (HSNo_proj0 Quaternion_j)) (mul_CSNo (HSNo_proj1 Quaternion_j) (conj_CSNo (HSNo_proj0 Quaternion_j))) = x1.
Apply HSNo_p0_j with λ x0 x1 . add_CSNo (mul_CSNo (HSNo_proj1 Quaternion_j) x1) (mul_CSNo (HSNo_proj1 Quaternion_j) (conj_CSNo x1)) = 0.
Apply HSNo_p1_j with λ x0 x1 . add_CSNo (mul_CSNo x1 0) (mul_CSNo x1 (conj_CSNo 0)) = 0.
Apply conj_CSNo_0 with λ x0 x1 . add_CSNo (mul_CSNo 1 0) (mul_CSNo 1 x1) = 0.
Apply mul_CSNo_0R with 1, λ x0 x1 . add_CSNo x1 x1 = 0 leaving 2 subgoals.
The subproof is completed by applying CSNo_1.
Apply add_CSNo_0L with 0.
The subproof is completed by applying CSNo_0.
■