Current library: Alpha v34, 4,223 checked-use theorems; Stable remains 432. Historical first admissions, original proof editions, and non-admitted aliases are preserved. Exact original first-admission records.
Exact expanded first-order arithmetic statement
forall k a b e f. (exists ftcn_left_fssq_cross_negative_a ftcn_right_fssq_cross_negative_a. (a + e) + (k) * ftcn_left_fssq_cross_negative_a = (0) + (k) * ftcn_right_fssq_cross_negative_a) -> (exists ftcn_left_fssq_cross_negative_b ftcn_right_fssq_cross_negative_b. (b + f) + (k) * ftcn_left_fssq_cross_negative_b = (0) + (k) * ftcn_right_fssq_cross_negative_b) -> (exists ftcn_left_fssq_cross_negative_result ftcn_right_fssq_cross_negative_result. (a * f) + (k) * ftcn_left_fssq_cross_negative_result = (b * e) + (k) * ftcn_right_fssq_cross_negative_result)Constructive proof overview
Generated structural guide
Two negative signed coordinate orientations also have congruent crossed bilinear products.
The unchanged tactic script uses 3 declared prerequisites and contains 31 exact native proof lines.
dependency-curried kernel-checked theorem body; Alpha enrollment and checked-use authority follow separately sealed release evidence; Stable membership remains unchanged
Proof neighborhood
Direct dependencies
FS005K four_square_signed_negative_scale_zero mul_comm Stable theorem; checked-use authorized FS005L four_square_signed_common_zero_cancelDirect dependents
Formal native tactic body
Dependencies are introduced as named hypotheses before line 1. Local theorem links identify exact declared prerequisites. This exact body belongs to a complete independently kernel-checked constructive proof bundle and has Alpha checked-use authority; it does not imply Stable membership.
Read the argument
Proof checkpoints
This is a reading aid, not a new proof or a proof-tree certificate. Checkpoint groups are consecutive commands, not inferred branch boundaries. Every step links to the preserved script.
Named ingredients (2)
01Fix variables and assumptionsL1–7
02Establish hfirstL8–14
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply four square signed negative scale zero.
- L8
have hfirst : exists ftcn_left_fssq_cross_negative_first ftcn_right_fssq_cross_negative_first. (a * f + e * f) + (k) * ftcn_left_fssq_cross_negative_first = (0) + (k) * ftcn_right_fssq_cross_negative_first - L9
specialize four_square_signed_negative_scale_zero k - L10
specialize four_square_signed_negative_scale_zero a - L11
specialize four_square_signed_negative_scale_zero e - L12
specialize four_square_signed_negative_scale_zero f - L13
apply four_square_signed_negative_scale_zero - L14
exact ha
03Establish hsecondL15–21
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply four square signed negative scale zero.
- L15
have hsecond : exists ftcn_left_fssq_cross_negative_second ftcn_right_fssq_cross_negative_second. (b * e + f * e) + (k) * ftcn_left_fssq_cross_negative_second = (0) + (k) * ftcn_right_fssq_cross_negative_second - L16
specialize four_square_signed_negative_scale_zero k - L17
specialize four_square_signed_negative_scale_zero b - L18
specialize four_square_signed_negative_scale_zero f - L19
specialize four_square_signed_negative_scale_zero e - L20
apply four_square_signed_negative_scale_zero - L21
exact hb
04Establish hswapL22–31
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply mul comm.
- L22
have hswap : f * e = e * f - L23
apply mul_comm - L24
rewrite hswap at hsecond - L25
specialize four_square_signed_common_zero_cancel k - L26
specialize four_square_signed_common_zero_cancel (a * f) - L27
specialize four_square_signed_common_zero_cancel (b * e) - L28
specialize four_square_signed_common_zero_cancel (e * f) - L29
apply four_square_signed_common_zero_cancel - L30
exact hfirst - L31
exact hsecond
Original exact command ledger · 31 lines
- 0001
intro k - 0002
intro a - 0003
intro b - 0004
intro e - 0005
intro f - 0006
intro ha - 0007
intro hb - 0008
have hfirst : exists ftcn_left_fssq_cross_negative_first ftcn_right_fssq_cross_negative_first. (a * f + e * f) + (k) * ftcn_left_fssq_cross_negative_first = (0) + (k) * ftcn_right_fssq_cross_negative_first - 0009
specialize four_square_signed_negative_scale_zero k - 0010
specialize four_square_signed_negative_scale_zero a - 0011
specialize four_square_signed_negative_scale_zero e - 0012
specialize four_square_signed_negative_scale_zero f - 0013
apply four_square_signed_negative_scale_zero - 0014
exact ha - 0015
have hsecond : exists ftcn_left_fssq_cross_negative_second ftcn_right_fssq_cross_negative_second. (b * e + f * e) + (k) * ftcn_left_fssq_cross_negative_second = (0) + (k) * ftcn_right_fssq_cross_negative_second - 0016
specialize four_square_signed_negative_scale_zero k - 0017
specialize four_square_signed_negative_scale_zero b - 0018
specialize four_square_signed_negative_scale_zero f - 0019
specialize four_square_signed_negative_scale_zero e - 0020
apply four_square_signed_negative_scale_zero - 0021
exact hb - 0022
have hswap : f * e = e * f - 0023
apply mul_comm - 0024
rewrite hswap at hsecond - 0025
specialize four_square_signed_common_zero_cancel k - 0026
specialize four_square_signed_common_zero_cancel (a * f) - 0027
specialize four_square_signed_common_zero_cancel (b * e) - 0028
specialize four_square_signed_common_zero_cancel (e * f) - 0029
apply four_square_signed_common_zero_cancel - 0030
exact hfirst - 0031
exact hsecond