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.
Statement with defined notation
∀ n. ∀ s. ∀ q. ∀ r. Lt(2,n) → FloorSqrt(n + n,s) → DivRem(n + n,3,q,r) → ∃ x. ∃ y. s + x = q ∧ q + y = n + nEvery purple notation token opens its conservative definition. Expanding the displayed statement recovers the exact first-order Peano-arithmetic formula checked by the unchanged kernel.
Definitions used by this theorem
In the theorem statement
3 occurrences
In local proof propositions
0 occurrences
Exact expanded native-PA statement
forall n s q r. (exists bcf_lt_gap_b5rbfsltq_positive. bcf_lt_gap_b5rbfsltq_positive + S (2) = n) -> (((exists bcs_sqrt_lower_gap_b5rbfsltq_floor. bcs_sqrt_lower_gap_b5rbfsltq_floor + (s) * (s) = (n + n)) /\ exists bcs_sqrt_upper_gap_b5rbfsltq_floor. bcs_sqrt_upper_gap_b5rbfsltq_floor + S (n + n) = S (s) * S (s))) -> (((n + n) = (3) * (q) + (r) /\ (exists bcf_lt_gap_b5rbfsltq_division_bound. bcf_lt_gap_b5rbfsltq_division_bound + S (r) = 3))) -> exists g h. s + g = q /\ q + h = n + nProof neighborhood
Direct theorem prerequisites
Direct theorem dependents
Definition-aware tactic body
Only local propositions introduced by have or suffices are compacted. Every changed line has an exact-AST conservative-expansion receipt; the kernel still receives the immutable original tactic script.
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–16
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply floor sqrt third quotient gap exists.
- L8
have hfirst : exists g. s + g = q - L9
specialize floor_sqrt_third_quotient_gap_exists n - L10
specialize floor_sqrt_third_quotient_gap_exists s - L11
specialize floor_sqrt_third_quotient_gap_exists q - L12
specialize floor_sqrt_third_quotient_gap_exists r - L13
apply floor_sqrt_third_quotient_gap_exists - L14
exact hpositive - L15
exact hfloor - L16
exact hdivision
03Separate the logical casesL17–17
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L17
cases hfirst
04Establish hsecondL18–23
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply third quotient double gap exists.
05Separate the logical casesL24–24
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L24
cases hsecond
06Construct an explicit witnessL25–26
07Separate the logical casesL27–27
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L27
split
Original defined command ledger · 29 lines
- 0001
intro n - 0002
intro s - 0003
intro q - 0004
intro r - 0005
intro hpositive - 0006
intro hfloor - 0007
intro hdivision - 0008
have hfirst : exists g. s + g = q - 0009
specialize floor_sqrt_third_quotient_gap_exists n - 0010
specialize floor_sqrt_third_quotient_gap_exists s - 0011
specialize floor_sqrt_third_quotient_gap_exists q - 0012
specialize floor_sqrt_third_quotient_gap_exists r - 0013
apply floor_sqrt_third_quotient_gap_exists - 0014
exact hpositive - 0015
exact hfloor - 0016
exact hdivision - 0017
cases hfirst - 0018
have hsecond : exists h. q + h = n + n - 0019
specialize third_quotient_double_gap_exists n - 0020
specialize third_quotient_double_gap_exists q - 0021
specialize third_quotient_double_gap_exists r - 0022
apply third_quotient_double_gap_exists - 0023
exact hdivision - 0024
cases hsecond - 0025
exists x - 0026
exists x1 - 0027
split - 0028
exact hfirst_witness - 0029
exact hsecond_witness