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 first-order arithmetic statement
forall b c l x m. (forall bpr_left_index_gcrt_product_last_pairs bpr_right_index_gcrt_product_last_pairs bpr_left_value_gcrt_product_last_pairs bpr_right_value_gcrt_product_last_pairs. (exists bpr_gap_gcrt_product_last_pairs_left_bound. bpr_gap_gcrt_product_last_pairs_left_bound + S (bpr_left_index_gcrt_product_last_pairs) = S l) -> (exists bpr_gap_gcrt_product_last_pairs_right_bound. bpr_gap_gcrt_product_last_pairs_right_bound + S (bpr_right_index_gcrt_product_last_pairs) = S l) -> (((exists bpr_height_gcrt_product_last_pairs_left_at. bpr_height_gcrt_product_last_pairs_left_at + S (bpr_left_value_gcrt_product_last_pairs) = S ((S (bpr_left_index_gcrt_product_last_pairs)) * c)) /\ exists bpr_quotient_gcrt_product_last_pairs_left_at. b = bpr_quotient_gcrt_product_last_pairs_left_at * S ((S (bpr_left_index_gcrt_product_last_pairs)) * c) + (bpr_left_value_gcrt_product_last_pairs))) -> (((exists bpr_height_gcrt_product_last_pairs_right_at. bpr_height_gcrt_product_last_pairs_right_at + S (bpr_right_value_gcrt_product_last_pairs) = S ((S (bpr_right_index_gcrt_product_last_pairs)) * c)) /\ exists bpr_quotient_gcrt_product_last_pairs_right_at. b = bpr_quotient_gcrt_product_last_pairs_right_at * S ((S (bpr_right_index_gcrt_product_last_pairs)) * c) + (bpr_right_value_gcrt_product_last_pairs))) -> ~(bpr_left_index_gcrt_product_last_pairs = bpr_right_index_gcrt_product_last_pairs) -> (forall bpr_coprime_divisor_gcrt_product_last_pairs_coprime. (exists bpr_coprime_left_factor_gcrt_product_last_pairs_coprime. bpr_left_value_gcrt_product_last_pairs = bpr_coprime_divisor_gcrt_product_last_pairs_coprime * bpr_coprime_left_factor_gcrt_product_last_pairs_coprime) -> (exists bpr_coprime_right_factor_gcrt_product_last_pairs_coprime. bpr_right_value_gcrt_product_last_pairs = bpr_coprime_divisor_gcrt_product_last_pairs_coprime * bpr_coprime_right_factor_gcrt_product_last_pairs_coprime) -> bpr_coprime_divisor_gcrt_product_last_pairs_coprime = 1)) -> (exists ff_u_gcrt_product_last_prefix ff_v_gcrt_product_last_prefix. ((((exists ff_h_gcrt_product_last_prefix_start. ff_h_gcrt_product_last_prefix_start + S (1) = S ((S (0)) * ff_v_gcrt_product_last_prefix)) /\ exists ff_q_gcrt_product_last_prefix_start. ff_u_gcrt_product_last_prefix = ff_q_gcrt_product_last_prefix_start * S ((S (0)) * ff_v_gcrt_product_last_prefix) + (1))) /\ ((((exists ff_h_gcrt_product_last_prefix_terminal. ff_h_gcrt_product_last_prefix_terminal + S (x) = S ((S (l)) * ff_v_gcrt_product_last_prefix)) /\ exists ff_q_gcrt_product_last_prefix_terminal. ff_u_gcrt_product_last_prefix = ff_q_gcrt_product_last_prefix_terminal * S ((S (l)) * ff_v_gcrt_product_last_prefix) + (x))) /\ forall ff_i_gcrt_product_last_prefix. (exists ff_lt_gcrt_product_last_prefix_bound. ff_lt_gcrt_product_last_prefix_bound + S ff_i_gcrt_product_last_prefix = l) -> exists ff_p_gcrt_product_last_prefix ff_r_gcrt_product_last_prefix ff_s_gcrt_product_last_prefix. ((((exists ff_h_gcrt_product_last_prefix_factor. ff_h_gcrt_product_last_prefix_factor + S (ff_p_gcrt_product_last_prefix) = S ((S (ff_i_gcrt_product_last_prefix)) * c)) /\ exists ff_q_gcrt_product_last_prefix_factor. b = ff_q_gcrt_product_last_prefix_factor * S ((S (ff_i_gcrt_product_last_prefix)) * c) + (ff_p_gcrt_product_last_prefix))) /\ ((((exists ff_h_gcrt_product_last_prefix_partial. ff_h_gcrt_product_last_prefix_partial + S (ff_r_gcrt_product_last_prefix) = S ((S (ff_i_gcrt_product_last_prefix)) * ff_v_gcrt_product_last_prefix)) /\ exists ff_q_gcrt_product_last_prefix_partial. ff_u_gcrt_product_last_prefix = ff_q_gcrt_product_last_prefix_partial * S ((S (ff_i_gcrt_product_last_prefix)) * ff_v_gcrt_product_last_prefix) + (ff_r_gcrt_product_last_prefix))) /\ ((((exists ff_h_gcrt_product_last_prefix_successor. ff_h_gcrt_product_last_prefix_successor + S (ff_s_gcrt_product_last_prefix) = S ((S (S ff_i_gcrt_product_last_prefix)) * ff_v_gcrt_product_last_prefix)) /\ exists ff_q_gcrt_product_last_prefix_successor. ff_u_gcrt_product_last_prefix = ff_q_gcrt_product_last_prefix_successor * S ((S (S ff_i_gcrt_product_last_prefix)) * ff_v_gcrt_product_last_prefix) + (ff_s_gcrt_product_last_prefix))) /\ ff_s_gcrt_product_last_prefix = ff_r_gcrt_product_last_prefix * ff_p_gcrt_product_last_prefix)))))) -> (((exists ff_h_gcrt_product_last_entry. ff_h_gcrt_product_last_entry + S (m) = S ((S (l)) * c)) /\ exists ff_q_gcrt_product_last_entry. b = ff_q_gcrt_product_last_entry * S ((S (l)) * c) + (m))) -> (forall frp_divisor_gcrt_product_last_coprime. (exists frp_left_factor_gcrt_product_last_coprime. x = frp_divisor_gcrt_product_last_coprime * frp_left_factor_gcrt_product_last_coprime) -> (exists frp_right_factor_gcrt_product_last_coprime. m = frp_divisor_gcrt_product_last_coprime * frp_right_factor_gcrt_product_last_coprime) -> frp_divisor_gcrt_product_last_coprime = 1)Constructive proof overview
Generated structural guide
The actual predecessor product is coprime to the final modulus of any pairwise-coprime list.
The unchanged tactic script uses 2 declared prerequisites and contains 30 exact native proof lines.
Alpha v34 checked-use · first admitted v24 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
beta_product_pointwise_coprime Alpha theorem; checked-use authorized CR0009 crt_pairwise_coprime_prefix_lastDirect dependents
Formal native tactic body
Dependencies are introduced as named hypotheses before line 1. Local theorem links identify exact declared prerequisites. This exact body belongs to a complete independently kernel-checked constructive proof bundle and has Alpha checked-use authority; it does not imply Stable membership.
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 (1)
01Fix variables and assumptionsL1–8
02Use earlier factsL9–14
Instantiate or apply named facts and discharge the corresponding proof obligations.
03Fix variables and assumptionsL15–18
04Use earlier factsL19–28
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L19
specialize crt_pairwise_coprime_prefix_last b - L20
specialize crt_pairwise_coprime_prefix_last c - L21
specialize crt_pairwise_coprime_prefix_last l - L22
specialize crt_pairwise_coprime_prefix_last i - L23
specialize crt_pairwise_coprime_prefix_last n - L24
specialize crt_pairwise_coprime_prefix_last m - L25
apply crt_pairwise_coprime_prefix_last - L26
exact hpairs - L27
exact hi - L28
exact hn
Original exact command ledger · 30 lines
- 0001
intro b - 0002
intro c - 0003
intro l - 0004
intro x - 0005
intro m - 0006
intro hpairs - 0007
intro hproduct - 0008
intro hm - 0009
specialize beta_product_pointwise_coprime m - 0010
specialize beta_product_pointwise_coprime b - 0011
specialize beta_product_pointwise_coprime c - 0012
specialize beta_product_pointwise_coprime l - 0013
specialize beta_product_pointwise_coprime x - 0014
apply beta_product_pointwise_coprime - 0015
intro i - 0016
intro n - 0017
intro hi - 0018
intro hn - 0019
specialize crt_pairwise_coprime_prefix_last b - 0020
specialize crt_pairwise_coprime_prefix_last c - 0021
specialize crt_pairwise_coprime_prefix_last l - 0022
specialize crt_pairwise_coprime_prefix_last i - 0023
specialize crt_pairwise_coprime_prefix_last n - 0024
specialize crt_pairwise_coprime_prefix_last m - 0025
apply crt_pairwise_coprime_prefix_last - 0026
exact hpairs - 0027
exact hi - 0028
exact hn - 0029
exact hm - 0030
exact hproduct
Separate complete second-wave branches: Full G011 proof · Alpha v27.