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 c d. ~(k = 0) -> exists e f g h. ((((exists fsd_center_bound_four_0. fsd_center_bound_four_0 + (e + e) = k) /\ ((exists fsd_center_lower_four_0. a = k * fsd_center_lower_four_0 + e) \/ (exists fsd_center_upper_four_0. a + e = k * fsd_center_upper_four_0)))) /\ ((((exists fsd_center_bound_four_1. fsd_center_bound_four_1 + (f + f) = k) /\ ((exists fsd_center_lower_four_1. b = k * fsd_center_lower_four_1 + f) \/ (exists fsd_center_upper_four_1. b + f = k * fsd_center_upper_four_1)))) /\ ((((exists fsd_center_bound_four_2. fsd_center_bound_four_2 + (g + g) = k) /\ ((exists fsd_center_lower_four_2. c = k * fsd_center_lower_four_2 + g) \/ (exists fsd_center_upper_four_2. c + g = k * fsd_center_upper_four_2)))) /\ (((exists fsd_center_bound_four_3. fsd_center_bound_four_3 + (h + h) = k) /\ ((exists fsd_center_lower_four_3. d = k * fsd_center_lower_four_3 + h) \/ (exists fsd_center_upper_four_3. d + h = k * fsd_center_upper_four_3)))))))Constructive proof overview
Generated structural guide
Every four-coordinate natural quaternion admits four independent constructively chosen centered signed remainders.
The unchanged tactic script uses 1 declared prerequisite and contains 35 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
Direct 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 (1)
01Fix variables and assumptionsL1–6
02Establish haL7–11
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply four square descent centered signed remainder exists.
- L7
have ha : exists e. (((exists fsd_center_bound_four_a. fsd_center_bound_four_a + (e + e) = k) /\ ((exists fsd_center_lower_four_a. a = k * fsd_center_lower_four_a + e) \/ (exists fsd_center_upper_four_a. a + e = k * fsd_center_upper_four_a)))) - L8
specialize four_square_descent_centered_signed_remainder_exists k - L9
specialize four_square_descent_centered_signed_remainder_exists a - L10
apply four_square_descent_centered_signed_remainder_exists - L11
exact hnonzero
03Establish hbL12–14
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply four square descent centered signed remainder exists.
- L12
have hb : exists f. (((exists fsd_center_bound_four_b. fsd_center_bound_four_b + (f + f) = k) /\ ((exists fsd_center_lower_four_b. b = k * fsd_center_lower_four_b + f) \/ (exists fsd_center_upper_four_b. b + f = k * fsd_center_upper_four_b)))) - L13
apply four_square_descent_centered_signed_remainder_exists - L14
exact hnonzero
04Establish hcL15–17
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply four square descent centered signed remainder exists.
- L15
have hc : exists g. (((exists fsd_center_bound_four_c. fsd_center_bound_four_c + (g + g) = k) /\ ((exists fsd_center_lower_four_c. c = k * fsd_center_lower_four_c + g) \/ (exists fsd_center_upper_four_c. c + g = k * fsd_center_upper_four_c)))) - L16
apply four_square_descent_centered_signed_remainder_exists - L17
exact hnonzero
05Establish hdL18–20
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply four square descent centered signed remainder exists.
- L18
have hd : exists h. (((exists fsd_center_bound_four_d. fsd_center_bound_four_d + (h + h) = k) /\ ((exists fsd_center_lower_four_d. d = k * fsd_center_lower_four_d + h) \/ (exists fsd_center_upper_four_d. d + h = k * fsd_center_upper_four_d)))) - L19
apply four_square_descent_centered_signed_remainder_exists - L20
exact hnonzero
06Separate the logical casesL21–24
07Construct an explicit witnessL25–28
08Separate the logical casesL29–29
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L29
split
09Use earlier factsL30–30
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L30
exact ha_witness
10Separate the logical casesL31–31
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L31
split
11Use earlier factsL32–32
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L32
exact hb_witness
12Separate the logical casesL33–33
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L33
split
Original exact command ledger · 35 lines
- 0001
intro k - 0002
intro a - 0003
intro b - 0004
intro c - 0005
intro d - 0006
intro hnonzero - 0007
have ha : exists e. (((exists fsd_center_bound_four_a. fsd_center_bound_four_a + (e + e) = k) /\ ((exists fsd_center_lower_four_a. a = k * fsd_center_lower_four_a + e) \/ (exists fsd_center_upper_four_a. a + e = k * fsd_center_upper_four_a)))) - 0008
specialize four_square_descent_centered_signed_remainder_exists k - 0009
specialize four_square_descent_centered_signed_remainder_exists a - 0010
apply four_square_descent_centered_signed_remainder_exists - 0011
exact hnonzero - 0012
have hb : exists f. (((exists fsd_center_bound_four_b. fsd_center_bound_four_b + (f + f) = k) /\ ((exists fsd_center_lower_four_b. b = k * fsd_center_lower_four_b + f) \/ (exists fsd_center_upper_four_b. b + f = k * fsd_center_upper_four_b)))) - 0013
apply four_square_descent_centered_signed_remainder_exists - 0014
exact hnonzero - 0015
have hc : exists g. (((exists fsd_center_bound_four_c. fsd_center_bound_four_c + (g + g) = k) /\ ((exists fsd_center_lower_four_c. c = k * fsd_center_lower_four_c + g) \/ (exists fsd_center_upper_four_c. c + g = k * fsd_center_upper_four_c)))) - 0016
apply four_square_descent_centered_signed_remainder_exists - 0017
exact hnonzero - 0018
have hd : exists h. (((exists fsd_center_bound_four_d. fsd_center_bound_four_d + (h + h) = k) /\ ((exists fsd_center_lower_four_d. d = k * fsd_center_lower_four_d + h) \/ (exists fsd_center_upper_four_d. d + h = k * fsd_center_upper_four_d)))) - 0019
apply four_square_descent_centered_signed_remainder_exists - 0020
exact hnonzero - 0021
cases ha - 0022
cases hb - 0023
cases hc - 0024
cases hd - 0025
exists x - 0026
exists x1 - 0027
exists x2 - 0028
exists x3 - 0029
split - 0030
exact ha_witness - 0031
split - 0032
exact hb_witness - 0033
split - 0034
exact hc_witness - 0035
exact hd_witness