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.
The carry relation contains actual quotient columns and carry bits, not the desired valuation. The theorem includes all finite lists and zero parts. It uses sequential binary-column carries; a separate simultaneous-grid or permutation-invariance theorem is not asserted.
Exact theorem in conservative defined notation
∀ p. ∀ b. ∀ c. ∀ vb. ∀ vc. ∀ l. ∀ a. ∀ e. BetaValuationPrefix(p,b,c,vb,vc,l) → BetaAt(b,c,l,a) → BoundedPowerValuation(p,a,a,e) → ∃ x. ∃ y. BetaValuationPrefix(p,b,c,x,y,S l)
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 63 original proof lines are preserved. Only local proposition formulas are abbreviated; every abbreviation has an exact binder-safe expansion check. The linked exact edition contains the unchanged replay 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.
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–11
Work with arbitrary variables or the premises of the current implication.
- L11
intro he
03Establish hextL12–17
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta prefix extend.
- L12
have hext : ∃ wb. ∃ wc. BetaAt(wb,wc,l,e) ∧ (∀ x. ∀ y. Lt(x,l) → BetaAt(vb,vc,x,y) → BetaAt(wb,wc,x,y))Definitions: BetaAt(wb,wc,l,e)Lt(x,l)BetaAt(vb,vc,x,y)BetaAt(wb,wc,x,y)Original native command in the exact edition - L13
specialize beta_prefix_extend l - L14
specialize beta_prefix_extend vb - L15
specialize beta_prefix_extend vc - L16
specialize beta_prefix_extend e - L17
apply beta_prefix_extend
04Separate the logical casesL18–20
05Construct an explicit witnessL21–22
06Fix variables and assumptionsL23–24
07Establish hsplitL25–32
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply le eq or lt.
08Separate the logical casesL33–33
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L33
cases hsplit
09Construct an explicit witnessL34–35
10Separate the logical casesL36–36
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L36
split
11Calculate and transport equalitiesL37–38
12Use earlier factsL39–39
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L39
exact ha
13Separate the logical casesL40–40
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L40
split
14Calculate and transport equalitiesL41–42
15Use earlier factsL43–44
16Establish hpointL45–48
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply h.
- L45
have hpoint : ∃ mkm_value_extend_point. ∃ mkm_exponent_extend_point. BetaAt(b,c,i,mkm_value_extend_point) ∧ (BetaAt(vb,vc,i,mkm_exponent_extend_point) ∧ BoundedPowerValuation(p,mkm_value_extend_point,mkm_value_extend_point,mkm_exponent_extend_point))Definitions: BetaAt(b,c,i,mkm_value_extend_point)BetaAt(vb,vc,i,mkm_exponent_extend_point)BoundedPowerValuation(p,mkm_value_extend_point,mkm_value_extend_point,mkm_exponent_extend_point)Original native command in the exact edition - L46
specialize h i - L47
apply h - L48
exact hsplit_right
17Separate the logical casesL49–52
18Construct an explicit witnessL53–54
19Separate the logical casesL55–55
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L55
split
20Use earlier factsL56–56
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L56
exact hpoint_witness_witness_left
21Separate the logical casesL57–57
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L57
split
22Use earlier factsL58–63
Instantiate or apply named facts and discharge the corresponding proof obligations.
Original defined command ledger · 63 lines
- 0001
intro p - 0002
intro b - 0003
intro c - 0004
intro vb - 0005
intro vc - 0006
intro l - 0007
intro a - 0008
intro e - 0009
intro h - 0010
intro ha - 0011
intro he - 0012
have hext : ∃ wb. ∃ wc. BetaAt(wb,wc,l,e) ∧ (∀ x. ∀ y. Lt(x,l) → BetaAt(vb,vc,x,y) → BetaAt(wb,wc,x,y)) - 0013
specialize beta_prefix_extend l - 0014
specialize beta_prefix_extend vb - 0015
specialize beta_prefix_extend vc - 0016
specialize beta_prefix_extend e - 0017
apply beta_prefix_extend - 0018
cases hext - 0019
cases hext_witness - 0020
cases hext_witness_witness - 0021
exists x - 0022
exists x1 - 0023
intro i - 0024
intro hi - 0025
have hsplit : i = l ∨ Lt(i,l) - 0026
specialize le_eq_or_lt i - 0027
specialize le_eq_or_lt l - 0028
apply le_eq_or_lt - 0029
specialize le_of_succ_le_succ i - 0030
specialize le_of_succ_le_succ l - 0031
apply le_of_succ_le_succ - 0032
exact hi - 0033
cases hsplit - 0034
exists a - 0035
exists e - 0036
split - 0037
rewrite hsplit_left - 0038
rewrite hsplit_left - 0039
exact ha - 0040
split - 0041
rewrite hsplit_left - 0042
rewrite hsplit_left - 0043
exact hext_witness_witness_left - 0044
exact he - 0045
have hpoint : ∃ mkm_value_extend_point. ∃ mkm_exponent_extend_point. BetaAt(b,c,i,mkm_value_extend_point) ∧ (BetaAt(vb,vc,i,mkm_exponent_extend_point) ∧ BoundedPowerValuation(p,mkm_value_extend_point,mkm_value_extend_point,mkm_exponent_extend_point)) - 0046
specialize h i - 0047
apply h - 0048
exact hsplit_right - 0049
cases hpoint - 0050
cases hpoint_witness - 0051
cases hpoint_witness_witness - 0052
cases hpoint_witness_witness_right - 0053
exists x2 - 0054
exists x3 - 0055
split - 0056
exact hpoint_witness_witness_left - 0057
split - 0058
specialize hext_witness_witness_right i - 0059
specialize hext_witness_witness_right x3 - 0060
apply hext_witness_witness_right - 0061
exact hsplit_right - 0062
exact hpoint_witness_witness_right_left - 0063
exact hpoint_witness_witness_right_right