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 PA statement
forall p h a x n q r m s. p = 2 * h + 1 -> (exists sdp_odd_gep_scale. a = 2 * sdp_odd_gep_scale + 1) -> n = a * x -> n = p * q + r -> (exists gsp_lt_gap_gep_r_below. gsp_lt_gap_gep_r_below + S r = p) -> (exists gsp_lt_gap_gep_m_positive. gsp_lt_gap_gep_m_positive + S 0 = m) -> (exists gsp_le_gap_gep_m_bounded. gsp_le_gap_gep_m_bounded + m = h) -> (((s = 0 /\ (exists wpp_mod_left_gep_n_mod_m wpp_mod_right_gep_n_mod_m. (n) + p * wpp_mod_left_gep_n_mod_m = (m) + p * wpp_mod_right_gep_n_mod_m)) \/ (s = 1 /\ (exists wpp_mod_left_gep_n_mod_reflected wpp_mod_right_gep_n_mod_reflected. (n) + p * wpp_mod_left_gep_n_mod_reflected = ((2 * h) * m) + p * wpp_mod_right_gep_n_mod_reflected)))) -> (exists sdp_u_gep_generic_result sdp_v_gep_generic_result. (x) + 2 * sdp_u_gep_generic_result = (q + m + s) + 2 * sdp_v_gep_generic_result)Structural proof guide
Generated structural guide
Exact signed division data gives the Gauss--Eisenstein modulo-two relation.
Use the direct prerequisites odd_signed_division_branch_exact, odd_scaled_division_signed_mod_two as previously established PA formulas.
The proof proceeds by intermediate claims (2).
Referenced ingredients
Proof neighborhood
Direct dependencies
Direct dependents
Formal native tactic body
Dependencies are introduced as named hypotheses before line 1. Linked names are exact direct references. This Alpha-v25 checked-use theorem is independently kernel-checked when replayed; it is not a Stable theorem.
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–10
02Fix variables and assumptionsL11–17
03Establish hexactL18–27
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply odd signed division branch exact.
- L18
have hexact : ((s = 0 /\ r = m) \/ (s = 1 /\ r + m = p)) - L19
specialize odd_signed_division_branch_exact p - L20
specialize odd_signed_division_branch_exact h - L21
specialize odd_signed_division_branch_exact n - L22
specialize odd_signed_division_branch_exact q - L23
specialize odd_signed_division_branch_exact r - L24
specialize odd_signed_division_branch_exact m - L25
specialize odd_signed_division_branch_exact s - L26
apply odd_signed_division_branch_exact - L27
exact hp
04Use earlier factsL28–32
05Establish hpoddL33–33
Establish this local claim before using it. It is not an additional assumption.
- L33
have hpodd : exists sdp_odd_gep_modulus. p = 2 * sdp_odd_gep_modulus + 1
06Construct an explicit witnessL34–34
Supply the displayed value, then prove that it has the required property.
- L34
exists h
07Use earlier factsL35–44
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L35
exact hp - L36
specialize odd_scaled_division_signed_mod_two p - L37
specialize odd_scaled_division_signed_mod_two a - L38
specialize odd_scaled_division_signed_mod_two x - L39
specialize odd_scaled_division_signed_mod_two q - L40
specialize odd_scaled_division_signed_mod_two r - L41
specialize odd_scaled_division_signed_mod_two m - L42
specialize odd_scaled_division_signed_mod_two s - L43
apply odd_scaled_division_signed_mod_two - L44
exact hpodd
08Use earlier factsL45–45
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L45
exact ha
09Calculate and transport equalitiesL46–47
Original exact command ledger · 50 lines
- 0001
intro p - 0002
intro h - 0003
intro a - 0004
intro x - 0005
intro n - 0006
intro q - 0007
intro r - 0008
intro m - 0009
intro s - 0010
intro hp - 0011
intro ha - 0012
intro hnscale - 0013
intro hdivision - 0014
intro hrbelow - 0015
intro hmpositive - 0016
intro hmbounded - 0017
intro hsigned - 0018
have hexact : ((s = 0 /\ r = m) \/ (s = 1 /\ r + m = p)) - 0019
specialize odd_signed_division_branch_exact p - 0020
specialize odd_signed_division_branch_exact h - 0021
specialize odd_signed_division_branch_exact n - 0022
specialize odd_signed_division_branch_exact q - 0023
specialize odd_signed_division_branch_exact r - 0024
specialize odd_signed_division_branch_exact m - 0025
specialize odd_signed_division_branch_exact s - 0026
apply odd_signed_division_branch_exact - 0027
exact hp - 0028
exact hdivision - 0029
exact hrbelow - 0030
exact hmpositive - 0031
exact hmbounded - 0032
exact hsigned - 0033
have hpodd : exists sdp_odd_gep_modulus. p = 2 * sdp_odd_gep_modulus + 1 - 0034
exists h - 0035
exact hp - 0036
specialize odd_scaled_division_signed_mod_two p - 0037
specialize odd_scaled_division_signed_mod_two a - 0038
specialize odd_scaled_division_signed_mod_two x - 0039
specialize odd_scaled_division_signed_mod_two q - 0040
specialize odd_scaled_division_signed_mod_two r - 0041
specialize odd_scaled_division_signed_mod_two m - 0042
specialize odd_scaled_division_signed_mod_two s - 0043
apply odd_scaled_division_signed_mod_two - 0044
exact hpodd - 0045
exact ha - 0046
trans n - 0047
symm - 0048
exact hnscale - 0049
exact hdivision - 0050
exact hexact