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
∀ b. ∀ c. ∀ k. ∀ k2. ∀ t. ∀ t2. ∀ v. BetaAt(b,c,k,t) → BetaAt(b,c,k,v) → BetaAt(b,c,k2,t2) → BetaAt(b,c,k2,v) → t = t2Every 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 b c k k2 t t2 v. (((exists ff_h_ftpr_left_entry. ff_h_ftpr_left_entry + S (t) = S ((S (k)) * c)) /\ exists ff_q_ftpr_left_entry. b = ff_q_ftpr_left_entry * S ((S (k)) * c) + (t))) -> (((exists ff_h_ftpr_left_shared. ff_h_ftpr_left_shared + S (v) = S ((S (k)) * c)) /\ exists ff_q_ftpr_left_shared. b = ff_q_ftpr_left_shared * S ((S (k)) * c) + (v))) -> (((exists ff_h_ftpr_right_entry. ff_h_ftpr_right_entry + S (t2) = S ((S (k2)) * c)) /\ exists ff_q_ftpr_right_entry. b = ff_q_ftpr_right_entry * S ((S (k2)) * c) + (t2))) -> (((exists ff_h_ftpr_right_shared. ff_h_ftpr_right_shared + S (v) = S ((S (k2)) * c)) /\ exists ff_q_ftpr_right_shared. b = ff_q_ftpr_right_shared * S ((S (k2)) * c) + (v))) -> t = t2Proof 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–10
02Fix variables and assumptionsL11–11
Work with arbitrary variables or the premises of the current implication.
- L11
intro hsecond_shared
03Establish hleftL12–20
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta at unique.
04Establish hrightL21–30
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta at unique.
05Use earlier factsL31–31
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L31
exact hleft
06Calculate and transport equalitiesL32–32
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L32
symm
07Use earlier factsL33–33
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L33
exact hright
Original defined command ledger · 33 lines
- 0001
intro b - 0002
intro c - 0003
intro k - 0004
intro k2 - 0005
intro t - 0006
intro t2 - 0007
intro v - 0008
intro hfirst - 0009
intro hfirst_shared - 0010
intro hsecond - 0011
intro hsecond_shared - 0012
have hleft : t = v - 0013
specialize beta_at_unique b - 0014
specialize beta_at_unique c - 0015
specialize beta_at_unique k - 0016
specialize beta_at_unique t - 0017
specialize beta_at_unique v - 0018
apply beta_at_unique - 0019
exact hfirst - 0020
exact hfirst_shared - 0021
have hright : t2 = v - 0022
specialize beta_at_unique b - 0023
specialize beta_at_unique c - 0024
specialize beta_at_unique k2 - 0025
specialize beta_at_unique t2 - 0026
specialize beta_at_unique v - 0027
apply beta_at_unique - 0028
exact hsecond - 0029
exact hsecond_shared - 0030
trans v - 0031
exact hleft - 0032
symm - 0033
exact hright