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 b c l n. (exists h. h + S l = n) -> (exists fom_value_short_omit. ((exists fom_gap_short_omit_value_bound. fom_gap_short_omit_value_bound + S (fom_value_short_omit) = n) /\ ~(exists fom_index_short_omit. ((exists fom_gap_short_omit_index_bound. fom_gap_short_omit_index_bound + S (fom_index_short_omit) = l) /\ (((exists fom_beta_height_short_omit_entry. fom_beta_height_short_omit_entry + S (fom_value_short_omit) = S ((S (fom_index_short_omit)) * c)) /\ exists fom_beta_quotient_short_omit_entry. b = fom_beta_quotient_short_omit_entry * S ((S (fom_index_short_omit)) * c) + (fom_value_short_omit)))))))Structural proof guide
Generated structural guide
Every beta-coded prefix shorter than n explicitly omits a value below n.
Use the direct prerequisites finite_covers_into_or_omits, finite_short_cover_impossible as previously established PA formulas.
The proof proceeds by case analysis (1), intermediate claims (1).
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–5
02Establish hsearchL6–11
Establish this local claim before using it. It is not an additional assumption.
- L6
have hsearch : (∀ x. Lt(x,n) → ContainsPrefix(b,c,l,x)) ∨ (∃ x. Lt(x,n) ∧ ¬ContainsPrefix(b,c,l,x))Definitions: LtContainsPrefix - L7
specialize finite_covers_into_or_omits b - L8
specialize finite_covers_into_or_omits c - L9
specialize finite_covers_into_or_omits l - L10
specialize finite_covers_into_or_omits n - L11
exact finite_covers_into_or_omits
03Separate the logical casesL12–13
04Use earlier factsL14–21
Instantiate or apply named facts and discharge the corresponding proof obligations.
Original exact command ledger · 21 lines
- 0001
intro b - 0002
intro c - 0003
intro l - 0004
intro n - 0005
intro hln - 0006
have hsearch : ((forall fom_value_short_cover. (exists fom_gap_short_cover_value_bound. fom_gap_short_cover_value_bound + S (fom_value_short_cover) = n) -> exists fom_index_short_cover. ((exists fom_gap_short_cover_index_bound. fom_gap_short_cover_index_bound + S (fom_index_short_cover) = l) /\ (((exists fom_beta_height_short_cover_entry. fom_beta_height_short_cover_entry + S (fom_value_short_cover) = S ((S (fom_index_short_cover)) * c)) /\ exists fom_beta_quotient_short_cover_entry. b = fom_beta_quotient_short_cover_entry * S ((S (fom_index_short_cover)) * c) + (fom_value_short_cover))))) \/ (exists fom_value_short_omit. ((exists fom_gap_short_omit_value_bound. fom_gap_short_omit_value_bound + S (fom_value_short_omit) = n) /\ ~(exists fom_index_short_omit. ((exists fom_gap_short_omit_index_bound. fom_gap_short_omit_index_bound + S (fom_index_short_omit) = l) /\ (((exists fom_beta_height_short_omit_entry. fom_beta_height_short_omit_entry + S (fom_value_short_omit) = S ((S (fom_index_short_omit)) * c)) /\ exists fom_beta_quotient_short_omit_entry. b = fom_beta_quotient_short_omit_entry * S ((S (fom_index_short_omit)) * c) + (fom_value_short_omit)))))))) - 0007
specialize finite_covers_into_or_omits b - 0008
specialize finite_covers_into_or_omits c - 0009
specialize finite_covers_into_or_omits l - 0010
specialize finite_covers_into_or_omits n - 0011
exact finite_covers_into_or_omits - 0012
cases hsearch - 0013
exfalso - 0014
specialize finite_short_cover_impossible b - 0015
specialize finite_short_cover_impossible c - 0016
specialize finite_short_cover_impossible l - 0017
specialize finite_short_cover_impossible n - 0018
apply finite_short_cover_impossible - 0019
exact hln - 0020
exact hsearch_left - 0021
exact hsearch_right