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
∀ p. ∀ w. ∀ r. ∀ b. ∀ c. ∀ l. (∀ x. Lt(x,l) → ∃ y. ∃ z. ∃ n. ∃ m. x = w · y + z ∧ (Lt(z,w) ∧ (r · y + z = p · n + m ∧ (Lt(m,p) ∧ BetaAt(b,c,x,m))))) → ∀ x. Lt(x,l) → ∃ y. BetaAt(b,c,x,y) ∧ Lt(y,p)Every purple notation token opens its conservative definition. This reading surface never changes the unchanged intuitionistic kernel or confers checked-use authority.
Definitions used by this theorem
In the theorem statement
In local proof propositions
Exact expanded first-order statement
forall p w r b c l. (forall ftrg_index_bounded_source. (exists ftrg_gap_bounded_source_index. ftrg_gap_bounded_source_index + S (ftrg_index_bounded_source) = (l)) -> exists ftrg_row_bounded_source ftrg_column_bounded_source ftrg_quotient_bounded_source ftrg_remainder_bounded_source. ((ftrg_index_bounded_source) = (w) * ftrg_row_bounded_source + ftrg_column_bounded_source /\ ((exists ftrg_gap_bounded_source_column. ftrg_gap_bounded_source_column + S (ftrg_column_bounded_source) = (w)) /\ ((r * ftrg_row_bounded_source + ftrg_column_bounded_source = (p) * ftrg_quotient_bounded_source + ftrg_remainder_bounded_source) /\ ((exists ftrg_gap_bounded_source_residue. ftrg_gap_bounded_source_residue + S (ftrg_remainder_bounded_source) = (p)) /\ (((exists ff_h_ftrg_bounded_source_entry. ff_h_ftrg_bounded_source_entry + S (ftrg_remainder_bounded_source) = S ((S (ftrg_index_bounded_source)) * c)) /\ exists ff_q_ftrg_bounded_source_entry. b = ff_q_ftrg_bounded_source_entry * S ((S (ftrg_index_bounded_source)) * c) + (ftrg_remainder_bounded_source)))))))) -> (forall fom_index_ftrg_bounded. (exists fom_gap_ftrg_bounded_index_bound. fom_gap_ftrg_bounded_index_bound + S (fom_index_ftrg_bounded) = l) -> exists fom_value_ftrg_bounded. ((((exists fom_beta_height_ftrg_bounded_entry. fom_beta_height_ftrg_bounded_entry + S (fom_value_ftrg_bounded) = S ((S (fom_index_ftrg_bounded)) * c)) /\ exists fom_beta_quotient_ftrg_bounded_entry. b = fom_beta_quotient_ftrg_bounded_entry * S ((S (fom_index_ftrg_bounded)) * c) + (fom_value_ftrg_bounded))) /\ (exists fom_gap_ftrg_bounded_value_bound. fom_gap_ftrg_bounded_value_bound + S (fom_value_ftrg_bounded) = p)))Proof neighborhood
Direct theorem prerequisites
Direct theorem dependents
Definition-aware tactic body
Only propositions whose conservative expansion has been checked for exact first-order equivalence are compacted. Every changed line retains its immutable exact replay command.
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.
01Fix variables and assumptionsL1–9
02Use earlier factsL10–10
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L10
specialize hgrid k
03Establish hpointL11–13
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply hgrid.
- L11
have hpoint : ∃ i. ∃ j. ∃ q. ∃ t. k = w · i + j ∧ (Lt(j,w) ∧ (r · i + j = p · q + t ∧ (Lt(t,p) ∧ BetaAt(b,c,k,t))))Definitions: Lt(j,w)Lt(t,p)BetaAt(b,c,k,t)Original native command in the exact edition - L12
apply hgrid - L13
exact hk
04Separate the logical casesL14–21
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L14
cases hpoint - L15
cases hpoint_witness - L16
cases hpoint_witness_witness - L17
cases hpoint_witness_witness_witness - L18
cases hpoint_witness_witness_witness_witness - L19
cases hpoint_witness_witness_witness_witness_right - L20
cases hpoint_witness_witness_witness_witness_right_right - L21
cases hpoint_witness_witness_witness_witness_right_right_right
05Construct an explicit witnessL22–22
Supply the displayed value, then prove that it has the required property.
- L22
exists x3
06Separate the logical casesL23–23
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L23
split
Original defined command ledger · 25 lines
- 0001
intro p - 0002
intro w - 0003
intro r - 0004
intro b - 0005
intro c - 0006
intro l - 0007
intro hgrid - 0008
intro k - 0009
intro hk - 0010
specialize hgrid k - 0011
have hpoint : ∃ i. ∃ j. ∃ q. ∃ t. k = w · i + j ∧ (Lt(j,w) ∧ (r · i + j = p · q + t ∧ (Lt(t,p) ∧ BetaAt(b,c,k,t))))Exact native replay line
have hpoint : exists i j q t. (k = w * i + j /\ ((exists gap. gap + S j = w) /\ ((r * i + j = p * q + t) /\ ((exists gap. gap + S t = p) /\ (((exists ff_h_ftrg_bounded_point. ff_h_ftrg_bounded_point + S (t) = S ((S (k)) * c)) /\ exists ff_q_ftrg_bounded_point. b = ff_q_ftrg_bounded_point * S ((S (k)) * c) + (t))))))) - 0012
apply hgrid - 0013
exact hk - 0014
cases hpoint - 0015
cases hpoint_witness - 0016
cases hpoint_witness_witness - 0017
cases hpoint_witness_witness_witness - 0018
cases hpoint_witness_witness_witness_witness - 0019
cases hpoint_witness_witness_witness_witness_right - 0020
cases hpoint_witness_witness_witness_witness_right_right - 0021
cases hpoint_witness_witness_witness_witness_right_right_right - 0022
exists x3 - 0023
split - 0024
exact hpoint_witness_witness_witness_witness_right_right_right_right - 0025
exact hpoint_witness_witness_witness_witness_right_right_right_left