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 p d r T C H. (~((p) = 1) /\ forall pvs_left_correction_prime pvs_right_correction_prime. (p) = pvs_left_correction_prime * pvs_right_correction_prime -> pvs_left_correction_prime = 1 \/ pvs_right_correction_prime = 1) -> ~(p = 2) -> (exists olte_factor_correction_difference. (d) = (p) * olte_factor_correction_difference) -> 2 * C = (p * r) * T + d * H -> (exists olte_factor_correction_result. (C) = (p) * olte_factor_correction_result)Constructive proof overview
Generated structural guide
The doubled second-order remainder is divisible by an odd prime, so its actual correction is divisible too.
The unchanged tactic script uses 5 declared prerequisites and contains 35 exact native proof lines.
Alpha v34 checked-use · first admitted v29 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
gauss_coprime_cancel Stable theorem; checked-use authorized prime_not_divides_coprime Stable theorem; checked-use authorized EL000F lte_prime_nondivisor_two multiple_add Stable theorem; checked-use authorized mul_assoc Stable theorem; checked-use authorizedDirect 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–10
02Use earlier factsL11–18
Instantiate or apply named facts and discharge the corresponding proof obligations.
03Fix variables and assumptionsL19–19
Work with arbitrary variables or the premises of the current implication.
- L19
intro hdiv
04Use earlier factsL20–24
05Calculate and transport equalitiesL25–25
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L25
rewrite hC
06Use earlier factsL26–29
07Construct an explicit witnessL30–30
Supply the displayed value, then prove that it has the required property.
- L30
exists r * T
08Use earlier factsL31–31
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L31
apply mul_assoc
09Separate the logical casesL32–32
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L32
cases hd
10Construct an explicit witnessL33–33
Supply the displayed value, then prove that it has the required property.
- L33
exists x * H
11Calculate and transport equalitiesL34–34
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L34
rewrite hd_witness
12Use earlier factsL35–35
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L35
apply mul_assoc
Original exact command ledger · 35 lines
- 0001
intro p - 0002
intro d - 0003
intro r - 0004
intro T - 0005
intro C - 0006
intro H - 0007
intro hp - 0008
intro hne - 0009
intro hd - 0010
intro hC - 0011
specialize gauss_coprime_cancel (p) - 0012
specialize gauss_coprime_cancel (2) - 0013
specialize gauss_coprime_cancel (C) - 0014
apply gauss_coprime_cancel - 0015
specialize prime_not_divides_coprime (p) - 0016
specialize prime_not_divides_coprime (2) - 0017
apply prime_not_divides_coprime - 0018
exact hp - 0019
intro hdiv - 0020
specialize lte_prime_nondivisor_two (p) - 0021
apply lte_prime_nondivisor_two - 0022
exact hp - 0023
exact hne - 0024
exact hdiv - 0025
rewrite hC - 0026
specialize multiple_add (p) - 0027
specialize multiple_add ((p * r) * T) - 0028
specialize multiple_add (d * H) - 0029
apply multiple_add - 0030
exists r * T - 0031
apply mul_assoc - 0032
cases hd - 0033
exists x * H - 0034
rewrite hd_witness - 0035
apply mul_assoc