BT00YO · Bertrand theorem

prime_contribution_choice_functional

Alpha v34 checked-use theorem · independently kernel and Lean verified; not Stable

The complete contribution at a fixed index is unique.

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

∀ n. ∀ i. ∀ a. ∀ z. Prime(S i) ∧ (∃ x. PowerValuation(S i,n,x)Pow(S i,x,a)) ∨ ¬Prime(S i) ∧ a = 1 → Prime(S i) ∧ (∃ x. PowerValuation(S i,n,x)Pow(S i,x,z)) ∨ ¬Prime(S i) ∧ z = 1 → a = z

Every purple notation token opens its conservative definition. Expanding the displayed statement recovers the exact first-order Peano-arithmetic formula checked by the unchanged kernel.

Definitions used by this theorem

In the theorem statement

8 occurrences

In local proof propositions

none

0 occurrences

Exact expanded native-PA statement
forall n i a z. (((((~(S (i) = 1) /\ forall bpr_left_bpccf_left_prime bpr_right_bpccf_left_prime. S (i) = bpr_left_bpccf_left_prime * bpr_right_bpccf_left_prime -> bpr_left_bpccf_left_prime = 1 \/ bpr_right_bpccf_left_prime = 1)) /\ exists bpr_choice_exponent_bpccf_left. ((((exists bpr_le_gap_bpccf_left_valuation_selected_bound. bpr_le_gap_bpccf_left_valuation_selected_bound + (bpr_choice_exponent_bpccf_left) = (n)) /\ (exists bpr_power_value_bpccf_left_valuation_selected. ((exists bpr_power_code_bpccf_left_valuation_selected_power bpr_power_scale_bpccf_left_valuation_selected_power. ((forall bpr_power_index_bpccf_left_valuation_selected_power. (exists bpr_gap_bpccf_left_valuation_selected_power_repeat_bound. bpr_gap_bpccf_left_valuation_selected_power_repeat_bound + S (bpr_power_index_bpccf_left_valuation_selected_power) = bpr_choice_exponent_bpccf_left) -> (((exists bpr_height_bpccf_left_valuation_selected_power_repeat_entry. bpr_height_bpccf_left_valuation_selected_power_repeat_entry + S (S (i)) = S ((S (bpr_power_index_bpccf_left_valuation_selected_power)) * bpr_power_scale_bpccf_left_valuation_selected_power)) /\ exists bpr_quotient_bpccf_left_valuation_selected_power_repeat_entry. bpr_power_code_bpccf_left_valuation_selected_power = bpr_quotient_bpccf_left_valuation_selected_power_repeat_entry * S ((S (bpr_power_index_bpccf_left_valuation_selected_power)) * bpr_power_scale_bpccf_left_valuation_selected_power) + (S (i))))) /\ (exists ff_u_bpccf_left_valuation_selected_power_product ff_v_bpccf_left_valuation_selected_power_product. ((((exists ff_h_bpccf_left_valuation_selected_power_product_start. ff_h_bpccf_left_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_bpccf_left_valuation_selected_power_product)) /\ exists ff_q_bpccf_left_valuation_selected_power_product_start. ff_u_bpccf_left_valuation_selected_power_product = ff_q_bpccf_left_valuation_selected_power_product_start * S ((S (0)) * ff_v_bpccf_left_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_bpccf_left_valuation_selected_power_product_terminal. ff_h_bpccf_left_valuation_selected_power_product_terminal + S (bpr_power_value_bpccf_left_valuation_selected) = S ((S (bpr_choice_exponent_bpccf_left)) * ff_v_bpccf_left_valuation_selected_power_product)) /\ exists ff_q_bpccf_left_valuation_selected_power_product_terminal. ff_u_bpccf_left_valuation_selected_power_product = ff_q_bpccf_left_valuation_selected_power_product_terminal * S ((S (bpr_choice_exponent_bpccf_left)) * ff_v_bpccf_left_valuation_selected_power_product) + (bpr_power_value_bpccf_left_valuation_selected))) /\ forall ff_i_bpccf_left_valuation_selected_power_product. (exists ff_lt_bpccf_left_valuation_selected_power_product_bound. ff_lt_bpccf_left_valuation_selected_power_product_bound + S ff_i_bpccf_left_valuation_selected_power_product = bpr_choice_exponent_bpccf_left) -> exists ff_p_bpccf_left_valuation_selected_power_product ff_r_bpccf_left_valuation_selected_power_product ff_s_bpccf_left_valuation_selected_power_product. ((((exists ff_h_bpccf_left_valuation_selected_power_product_factor. ff_h_bpccf_left_valuation_selected_power_product_factor + S (ff_p_bpccf_left_valuation_selected_power_product) = S ((S (ff_i_bpccf_left_valuation_selected_power_product)) * bpr_power_scale_bpccf_left_valuation_selected_power)) /\ exists ff_q_bpccf_left_valuation_selected_power_product_factor. bpr_power_code_bpccf_left_valuation_selected_power = ff_q_bpccf_left_valuation_selected_power_product_factor * S ((S (ff_i_bpccf_left_valuation_selected_power_product)) * bpr_power_scale_bpccf_left_valuation_selected_power) + (ff_p_bpccf_left_valuation_selected_power_product))) /\ ((((exists ff_h_bpccf_left_valuation_selected_power_product_partial. ff_h_bpccf_left_valuation_selected_power_product_partial + S (ff_r_bpccf_left_valuation_selected_power_product) = S ((S (ff_i_bpccf_left_valuation_selected_power_product)) * ff_v_bpccf_left_valuation_selected_power_product)) /\ exists ff_q_bpccf_left_valuation_selected_power_product_partial. ff_u_bpccf_left_valuation_selected_power_product = ff_q_bpccf_left_valuation_selected_power_product_partial * S ((S (ff_i_bpccf_left_valuation_selected_power_product)) * ff_v_bpccf_left_valuation_selected_power_product) + (ff_r_bpccf_left_valuation_selected_power_product))) /\ ((((exists ff_h_bpccf_left_valuation_selected_power_product_successor. ff_h_bpccf_left_valuation_selected_power_product_successor + S (ff_s_bpccf_left_valuation_selected_power_product) = S ((S (S ff_i_bpccf_left_valuation_selected_power_product)) * ff_v_bpccf_left_valuation_selected_power_product)) /\ exists ff_q_bpccf_left_valuation_selected_power_product_successor. ff_u_bpccf_left_valuation_selected_power_product = ff_q_bpccf_left_valuation_selected_power_product_successor * S ((S (S ff_i_bpccf_left_valuation_selected_power_product)) * ff_v_bpccf_left_valuation_selected_power_product) + (ff_s_bpccf_left_valuation_selected_power_product))) /\ ff_s_bpccf_left_valuation_selected_power_product = ff_r_bpccf_left_valuation_selected_power_product * ff_p_bpccf_left_valuation_selected_power_product)))))))) /\ (exists bpr_divides_quotient_bpccf_left_valuation_selected_divides. n = (bpr_power_value_bpccf_left_valuation_selected) * bpr_divides_quotient_bpccf_left_valuation_selected_divides)))) /\ forall bpr_valuation_candidate_bpccf_left_valuation. (exists bpr_le_gap_bpccf_left_valuation_candidate_bound. bpr_le_gap_bpccf_left_valuation_candidate_bound + (bpr_valuation_candidate_bpccf_left_valuation) = (n)) -> (exists bpr_power_value_bpccf_left_valuation_candidate. ((exists bpr_power_code_bpccf_left_valuation_candidate_power bpr_power_scale_bpccf_left_valuation_candidate_power. ((forall bpr_power_index_bpccf_left_valuation_candidate_power. (exists bpr_gap_bpccf_left_valuation_candidate_power_repeat_bound. bpr_gap_bpccf_left_valuation_candidate_power_repeat_bound + S (bpr_power_index_bpccf_left_valuation_candidate_power) = bpr_valuation_candidate_bpccf_left_valuation) -> (((exists bpr_height_bpccf_left_valuation_candidate_power_repeat_entry. bpr_height_bpccf_left_valuation_candidate_power_repeat_entry + S (S (i)) = S ((S (bpr_power_index_bpccf_left_valuation_candidate_power)) * bpr_power_scale_bpccf_left_valuation_candidate_power)) /\ exists bpr_quotient_bpccf_left_valuation_candidate_power_repeat_entry. bpr_power_code_bpccf_left_valuation_candidate_power = bpr_quotient_bpccf_left_valuation_candidate_power_repeat_entry * S ((S (bpr_power_index_bpccf_left_valuation_candidate_power)) * bpr_power_scale_bpccf_left_valuation_candidate_power) + (S (i))))) /\ (exists ff_u_bpccf_left_valuation_candidate_power_product ff_v_bpccf_left_valuation_candidate_power_product. ((((exists ff_h_bpccf_left_valuation_candidate_power_product_start. ff_h_bpccf_left_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_bpccf_left_valuation_candidate_power_product)) /\ exists ff_q_bpccf_left_valuation_candidate_power_product_start. ff_u_bpccf_left_valuation_candidate_power_product = ff_q_bpccf_left_valuation_candidate_power_product_start * S ((S (0)) * ff_v_bpccf_left_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_bpccf_left_valuation_candidate_power_product_terminal. ff_h_bpccf_left_valuation_candidate_power_product_terminal + S (bpr_power_value_bpccf_left_valuation_candidate) = S ((S (bpr_valuation_candidate_bpccf_left_valuation)) * ff_v_bpccf_left_valuation_candidate_power_product)) /\ exists ff_q_bpccf_left_valuation_candidate_power_product_terminal. ff_u_bpccf_left_valuation_candidate_power_product = ff_q_bpccf_left_valuation_candidate_power_product_terminal * S ((S (bpr_valuation_candidate_bpccf_left_valuation)) * ff_v_bpccf_left_valuation_candidate_power_product) + (bpr_power_value_bpccf_left_valuation_candidate))) /\ forall ff_i_bpccf_left_valuation_candidate_power_product. (exists ff_lt_bpccf_left_valuation_candidate_power_product_bound. ff_lt_bpccf_left_valuation_candidate_power_product_bound + S ff_i_bpccf_left_valuation_candidate_power_product = bpr_valuation_candidate_bpccf_left_valuation) -> exists ff_p_bpccf_left_valuation_candidate_power_product ff_r_bpccf_left_valuation_candidate_power_product ff_s_bpccf_left_valuation_candidate_power_product. ((((exists ff_h_bpccf_left_valuation_candidate_power_product_factor. ff_h_bpccf_left_valuation_candidate_power_product_factor + S (ff_p_bpccf_left_valuation_candidate_power_product) = S ((S (ff_i_bpccf_left_valuation_candidate_power_product)) * bpr_power_scale_bpccf_left_valuation_candidate_power)) /\ exists ff_q_bpccf_left_valuation_candidate_power_product_factor. bpr_power_code_bpccf_left_valuation_candidate_power = ff_q_bpccf_left_valuation_candidate_power_product_factor * S ((S (ff_i_bpccf_left_valuation_candidate_power_product)) * bpr_power_scale_bpccf_left_valuation_candidate_power) + (ff_p_bpccf_left_valuation_candidate_power_product))) /\ ((((exists ff_h_bpccf_left_valuation_candidate_power_product_partial. ff_h_bpccf_left_valuation_candidate_power_product_partial + S (ff_r_bpccf_left_valuation_candidate_power_product) = S ((S (ff_i_bpccf_left_valuation_candidate_power_product)) * ff_v_bpccf_left_valuation_candidate_power_product)) /\ exists ff_q_bpccf_left_valuation_candidate_power_product_partial. ff_u_bpccf_left_valuation_candidate_power_product = ff_q_bpccf_left_valuation_candidate_power_product_partial * S ((S (ff_i_bpccf_left_valuation_candidate_power_product)) * ff_v_bpccf_left_valuation_candidate_power_product) + (ff_r_bpccf_left_valuation_candidate_power_product))) /\ ((((exists ff_h_bpccf_left_valuation_candidate_power_product_successor. ff_h_bpccf_left_valuation_candidate_power_product_successor + S (ff_s_bpccf_left_valuation_candidate_power_product) = S ((S (S ff_i_bpccf_left_valuation_candidate_power_product)) * ff_v_bpccf_left_valuation_candidate_power_product)) /\ exists ff_q_bpccf_left_valuation_candidate_power_product_successor. ff_u_bpccf_left_valuation_candidate_power_product = ff_q_bpccf_left_valuation_candidate_power_product_successor * S ((S (S ff_i_bpccf_left_valuation_candidate_power_product)) * ff_v_bpccf_left_valuation_candidate_power_product) + (ff_s_bpccf_left_valuation_candidate_power_product))) /\ ff_s_bpccf_left_valuation_candidate_power_product = ff_r_bpccf_left_valuation_candidate_power_product * ff_p_bpccf_left_valuation_candidate_power_product)))))))) /\ (exists bpr_divides_quotient_bpccf_left_valuation_candidate_divides. n = (bpr_power_value_bpccf_left_valuation_candidate) * bpr_divides_quotient_bpccf_left_valuation_candidate_divides))) -> (exists bpr_le_gap_bpccf_left_valuation_candidate_below. bpr_le_gap_bpccf_left_valuation_candidate_below + (bpr_valuation_candidate_bpccf_left_valuation) = (bpr_choice_exponent_bpccf_left))) /\ (exists bpr_power_code_bpccf_left_power bpr_power_scale_bpccf_left_power. ((forall bpr_power_index_bpccf_left_power. (exists bpr_gap_bpccf_left_power_repeat_bound. bpr_gap_bpccf_left_power_repeat_bound + S (bpr_power_index_bpccf_left_power) = bpr_choice_exponent_bpccf_left) -> (((exists bpr_height_bpccf_left_power_repeat_entry. bpr_height_bpccf_left_power_repeat_entry + S (S (i)) = S ((S (bpr_power_index_bpccf_left_power)) * bpr_power_scale_bpccf_left_power)) /\ exists bpr_quotient_bpccf_left_power_repeat_entry. bpr_power_code_bpccf_left_power = bpr_quotient_bpccf_left_power_repeat_entry * S ((S (bpr_power_index_bpccf_left_power)) * bpr_power_scale_bpccf_left_power) + (S (i))))) /\ (exists ff_u_bpccf_left_power_product ff_v_bpccf_left_power_product. ((((exists ff_h_bpccf_left_power_product_start. ff_h_bpccf_left_power_product_start + S (1) = S ((S (0)) * ff_v_bpccf_left_power_product)) /\ exists ff_q_bpccf_left_power_product_start. ff_u_bpccf_left_power_product = ff_q_bpccf_left_power_product_start * S ((S (0)) * ff_v_bpccf_left_power_product) + (1))) /\ ((((exists ff_h_bpccf_left_power_product_terminal. ff_h_bpccf_left_power_product_terminal + S (a) = S ((S (bpr_choice_exponent_bpccf_left)) * ff_v_bpccf_left_power_product)) /\ exists ff_q_bpccf_left_power_product_terminal. ff_u_bpccf_left_power_product = ff_q_bpccf_left_power_product_terminal * S ((S (bpr_choice_exponent_bpccf_left)) * ff_v_bpccf_left_power_product) + (a))) /\ forall ff_i_bpccf_left_power_product. (exists ff_lt_bpccf_left_power_product_bound. ff_lt_bpccf_left_power_product_bound + S ff_i_bpccf_left_power_product = bpr_choice_exponent_bpccf_left) -> exists ff_p_bpccf_left_power_product ff_r_bpccf_left_power_product ff_s_bpccf_left_power_product. ((((exists ff_h_bpccf_left_power_product_factor. ff_h_bpccf_left_power_product_factor + S (ff_p_bpccf_left_power_product) = S ((S (ff_i_bpccf_left_power_product)) * bpr_power_scale_bpccf_left_power)) /\ exists ff_q_bpccf_left_power_product_factor. bpr_power_code_bpccf_left_power = ff_q_bpccf_left_power_product_factor * S ((S (ff_i_bpccf_left_power_product)) * bpr_power_scale_bpccf_left_power) + (ff_p_bpccf_left_power_product))) /\ ((((exists ff_h_bpccf_left_power_product_partial. ff_h_bpccf_left_power_product_partial + S (ff_r_bpccf_left_power_product) = S ((S (ff_i_bpccf_left_power_product)) * ff_v_bpccf_left_power_product)) /\ exists ff_q_bpccf_left_power_product_partial. ff_u_bpccf_left_power_product = ff_q_bpccf_left_power_product_partial * S ((S (ff_i_bpccf_left_power_product)) * ff_v_bpccf_left_power_product) + (ff_r_bpccf_left_power_product))) /\ ((((exists ff_h_bpccf_left_power_product_successor. ff_h_bpccf_left_power_product_successor + S (ff_s_bpccf_left_power_product) = S ((S (S ff_i_bpccf_left_power_product)) * ff_v_bpccf_left_power_product)) /\ exists ff_q_bpccf_left_power_product_successor. ff_u_bpccf_left_power_product = ff_q_bpccf_left_power_product_successor * S ((S (S ff_i_bpccf_left_power_product)) * ff_v_bpccf_left_power_product) + (ff_s_bpccf_left_power_product))) /\ ff_s_bpccf_left_power_product = ff_r_bpccf_left_power_product * ff_p_bpccf_left_power_product)))))))))) \/ (~((~(S (i) = 1) /\ forall bpr_left_bpccf_left_prime bpr_right_bpccf_left_prime. S (i) = bpr_left_bpccf_left_prime * bpr_right_bpccf_left_prime -> bpr_left_bpccf_left_prime = 1 \/ bpr_right_bpccf_left_prime = 1)) /\ a = 1))) -> (((((~(S (i) = 1) /\ forall bpr_left_bpccf_right_prime bpr_right_bpccf_right_prime. S (i) = bpr_left_bpccf_right_prime * bpr_right_bpccf_right_prime -> bpr_left_bpccf_right_prime = 1 \/ bpr_right_bpccf_right_prime = 1)) /\ exists bpr_choice_exponent_bpccf_right. ((((exists bpr_le_gap_bpccf_right_valuation_selected_bound. bpr_le_gap_bpccf_right_valuation_selected_bound + (bpr_choice_exponent_bpccf_right) = (n)) /\ (exists bpr_power_value_bpccf_right_valuation_selected. ((exists bpr_power_code_bpccf_right_valuation_selected_power bpr_power_scale_bpccf_right_valuation_selected_power. ((forall bpr_power_index_bpccf_right_valuation_selected_power. (exists bpr_gap_bpccf_right_valuation_selected_power_repeat_bound. bpr_gap_bpccf_right_valuation_selected_power_repeat_bound + S (bpr_power_index_bpccf_right_valuation_selected_power) = bpr_choice_exponent_bpccf_right) -> (((exists bpr_height_bpccf_right_valuation_selected_power_repeat_entry. bpr_height_bpccf_right_valuation_selected_power_repeat_entry + S (S (i)) = S ((S (bpr_power_index_bpccf_right_valuation_selected_power)) * bpr_power_scale_bpccf_right_valuation_selected_power)) /\ exists bpr_quotient_bpccf_right_valuation_selected_power_repeat_entry. bpr_power_code_bpccf_right_valuation_selected_power = bpr_quotient_bpccf_right_valuation_selected_power_repeat_entry * S ((S (bpr_power_index_bpccf_right_valuation_selected_power)) * bpr_power_scale_bpccf_right_valuation_selected_power) + (S (i))))) /\ (exists ff_u_bpccf_right_valuation_selected_power_product ff_v_bpccf_right_valuation_selected_power_product. ((((exists ff_h_bpccf_right_valuation_selected_power_product_start. ff_h_bpccf_right_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_bpccf_right_valuation_selected_power_product)) /\ exists ff_q_bpccf_right_valuation_selected_power_product_start. ff_u_bpccf_right_valuation_selected_power_product = ff_q_bpccf_right_valuation_selected_power_product_start * S ((S (0)) * ff_v_bpccf_right_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_bpccf_right_valuation_selected_power_product_terminal. ff_h_bpccf_right_valuation_selected_power_product_terminal + S (bpr_power_value_bpccf_right_valuation_selected) = S ((S (bpr_choice_exponent_bpccf_right)) * ff_v_bpccf_right_valuation_selected_power_product)) /\ exists ff_q_bpccf_right_valuation_selected_power_product_terminal. ff_u_bpccf_right_valuation_selected_power_product = ff_q_bpccf_right_valuation_selected_power_product_terminal * S ((S (bpr_choice_exponent_bpccf_right)) * ff_v_bpccf_right_valuation_selected_power_product) + (bpr_power_value_bpccf_right_valuation_selected))) /\ forall ff_i_bpccf_right_valuation_selected_power_product. (exists ff_lt_bpccf_right_valuation_selected_power_product_bound. ff_lt_bpccf_right_valuation_selected_power_product_bound + S ff_i_bpccf_right_valuation_selected_power_product = bpr_choice_exponent_bpccf_right) -> exists ff_p_bpccf_right_valuation_selected_power_product ff_r_bpccf_right_valuation_selected_power_product ff_s_bpccf_right_valuation_selected_power_product. ((((exists ff_h_bpccf_right_valuation_selected_power_product_factor. ff_h_bpccf_right_valuation_selected_power_product_factor + S (ff_p_bpccf_right_valuation_selected_power_product) = S ((S (ff_i_bpccf_right_valuation_selected_power_product)) * bpr_power_scale_bpccf_right_valuation_selected_power)) /\ exists ff_q_bpccf_right_valuation_selected_power_product_factor. bpr_power_code_bpccf_right_valuation_selected_power = ff_q_bpccf_right_valuation_selected_power_product_factor * S ((S (ff_i_bpccf_right_valuation_selected_power_product)) * bpr_power_scale_bpccf_right_valuation_selected_power) + (ff_p_bpccf_right_valuation_selected_power_product))) /\ ((((exists ff_h_bpccf_right_valuation_selected_power_product_partial. ff_h_bpccf_right_valuation_selected_power_product_partial + S (ff_r_bpccf_right_valuation_selected_power_product) = S ((S (ff_i_bpccf_right_valuation_selected_power_product)) * ff_v_bpccf_right_valuation_selected_power_product)) /\ exists ff_q_bpccf_right_valuation_selected_power_product_partial. ff_u_bpccf_right_valuation_selected_power_product = ff_q_bpccf_right_valuation_selected_power_product_partial * S ((S (ff_i_bpccf_right_valuation_selected_power_product)) * ff_v_bpccf_right_valuation_selected_power_product) + (ff_r_bpccf_right_valuation_selected_power_product))) /\ ((((exists ff_h_bpccf_right_valuation_selected_power_product_successor. ff_h_bpccf_right_valuation_selected_power_product_successor + S (ff_s_bpccf_right_valuation_selected_power_product) = S ((S (S ff_i_bpccf_right_valuation_selected_power_product)) * ff_v_bpccf_right_valuation_selected_power_product)) /\ exists ff_q_bpccf_right_valuation_selected_power_product_successor. ff_u_bpccf_right_valuation_selected_power_product = ff_q_bpccf_right_valuation_selected_power_product_successor * S ((S (S ff_i_bpccf_right_valuation_selected_power_product)) * ff_v_bpccf_right_valuation_selected_power_product) + (ff_s_bpccf_right_valuation_selected_power_product))) /\ ff_s_bpccf_right_valuation_selected_power_product = ff_r_bpccf_right_valuation_selected_power_product * ff_p_bpccf_right_valuation_selected_power_product)))))))) /\ (exists bpr_divides_quotient_bpccf_right_valuation_selected_divides. n = (bpr_power_value_bpccf_right_valuation_selected) * bpr_divides_quotient_bpccf_right_valuation_selected_divides)))) /\ forall bpr_valuation_candidate_bpccf_right_valuation. (exists bpr_le_gap_bpccf_right_valuation_candidate_bound. bpr_le_gap_bpccf_right_valuation_candidate_bound + (bpr_valuation_candidate_bpccf_right_valuation) = (n)) -> (exists bpr_power_value_bpccf_right_valuation_candidate. ((exists bpr_power_code_bpccf_right_valuation_candidate_power bpr_power_scale_bpccf_right_valuation_candidate_power. ((forall bpr_power_index_bpccf_right_valuation_candidate_power. (exists bpr_gap_bpccf_right_valuation_candidate_power_repeat_bound. bpr_gap_bpccf_right_valuation_candidate_power_repeat_bound + S (bpr_power_index_bpccf_right_valuation_candidate_power) = bpr_valuation_candidate_bpccf_right_valuation) -> (((exists bpr_height_bpccf_right_valuation_candidate_power_repeat_entry. bpr_height_bpccf_right_valuation_candidate_power_repeat_entry + S (S (i)) = S ((S (bpr_power_index_bpccf_right_valuation_candidate_power)) * bpr_power_scale_bpccf_right_valuation_candidate_power)) /\ exists bpr_quotient_bpccf_right_valuation_candidate_power_repeat_entry. bpr_power_code_bpccf_right_valuation_candidate_power = bpr_quotient_bpccf_right_valuation_candidate_power_repeat_entry * S ((S (bpr_power_index_bpccf_right_valuation_candidate_power)) * bpr_power_scale_bpccf_right_valuation_candidate_power) + (S (i))))) /\ (exists ff_u_bpccf_right_valuation_candidate_power_product ff_v_bpccf_right_valuation_candidate_power_product. ((((exists ff_h_bpccf_right_valuation_candidate_power_product_start. ff_h_bpccf_right_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_bpccf_right_valuation_candidate_power_product)) /\ exists ff_q_bpccf_right_valuation_candidate_power_product_start. ff_u_bpccf_right_valuation_candidate_power_product = ff_q_bpccf_right_valuation_candidate_power_product_start * S ((S (0)) * ff_v_bpccf_right_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_bpccf_right_valuation_candidate_power_product_terminal. ff_h_bpccf_right_valuation_candidate_power_product_terminal + S (bpr_power_value_bpccf_right_valuation_candidate) = S ((S (bpr_valuation_candidate_bpccf_right_valuation)) * ff_v_bpccf_right_valuation_candidate_power_product)) /\ exists ff_q_bpccf_right_valuation_candidate_power_product_terminal. ff_u_bpccf_right_valuation_candidate_power_product = ff_q_bpccf_right_valuation_candidate_power_product_terminal * S ((S (bpr_valuation_candidate_bpccf_right_valuation)) * ff_v_bpccf_right_valuation_candidate_power_product) + (bpr_power_value_bpccf_right_valuation_candidate))) /\ forall ff_i_bpccf_right_valuation_candidate_power_product. (exists ff_lt_bpccf_right_valuation_candidate_power_product_bound. ff_lt_bpccf_right_valuation_candidate_power_product_bound + S ff_i_bpccf_right_valuation_candidate_power_product = bpr_valuation_candidate_bpccf_right_valuation) -> exists ff_p_bpccf_right_valuation_candidate_power_product ff_r_bpccf_right_valuation_candidate_power_product ff_s_bpccf_right_valuation_candidate_power_product. ((((exists ff_h_bpccf_right_valuation_candidate_power_product_factor. ff_h_bpccf_right_valuation_candidate_power_product_factor + S (ff_p_bpccf_right_valuation_candidate_power_product) = S ((S (ff_i_bpccf_right_valuation_candidate_power_product)) * bpr_power_scale_bpccf_right_valuation_candidate_power)) /\ exists ff_q_bpccf_right_valuation_candidate_power_product_factor. bpr_power_code_bpccf_right_valuation_candidate_power = ff_q_bpccf_right_valuation_candidate_power_product_factor * S ((S (ff_i_bpccf_right_valuation_candidate_power_product)) * bpr_power_scale_bpccf_right_valuation_candidate_power) + (ff_p_bpccf_right_valuation_candidate_power_product))) /\ ((((exists ff_h_bpccf_right_valuation_candidate_power_product_partial. ff_h_bpccf_right_valuation_candidate_power_product_partial + S (ff_r_bpccf_right_valuation_candidate_power_product) = S ((S (ff_i_bpccf_right_valuation_candidate_power_product)) * ff_v_bpccf_right_valuation_candidate_power_product)) /\ exists ff_q_bpccf_right_valuation_candidate_power_product_partial. ff_u_bpccf_right_valuation_candidate_power_product = ff_q_bpccf_right_valuation_candidate_power_product_partial * S ((S (ff_i_bpccf_right_valuation_candidate_power_product)) * ff_v_bpccf_right_valuation_candidate_power_product) + (ff_r_bpccf_right_valuation_candidate_power_product))) /\ ((((exists ff_h_bpccf_right_valuation_candidate_power_product_successor. ff_h_bpccf_right_valuation_candidate_power_product_successor + S (ff_s_bpccf_right_valuation_candidate_power_product) = S ((S (S ff_i_bpccf_right_valuation_candidate_power_product)) * ff_v_bpccf_right_valuation_candidate_power_product)) /\ exists ff_q_bpccf_right_valuation_candidate_power_product_successor. ff_u_bpccf_right_valuation_candidate_power_product = ff_q_bpccf_right_valuation_candidate_power_product_successor * S ((S (S ff_i_bpccf_right_valuation_candidate_power_product)) * ff_v_bpccf_right_valuation_candidate_power_product) + (ff_s_bpccf_right_valuation_candidate_power_product))) /\ ff_s_bpccf_right_valuation_candidate_power_product = ff_r_bpccf_right_valuation_candidate_power_product * ff_p_bpccf_right_valuation_candidate_power_product)))))))) /\ (exists bpr_divides_quotient_bpccf_right_valuation_candidate_divides. n = (bpr_power_value_bpccf_right_valuation_candidate) * bpr_divides_quotient_bpccf_right_valuation_candidate_divides))) -> (exists bpr_le_gap_bpccf_right_valuation_candidate_below. bpr_le_gap_bpccf_right_valuation_candidate_below + (bpr_valuation_candidate_bpccf_right_valuation) = (bpr_choice_exponent_bpccf_right))) /\ (exists bpr_power_code_bpccf_right_power bpr_power_scale_bpccf_right_power. ((forall bpr_power_index_bpccf_right_power. (exists bpr_gap_bpccf_right_power_repeat_bound. bpr_gap_bpccf_right_power_repeat_bound + S (bpr_power_index_bpccf_right_power) = bpr_choice_exponent_bpccf_right) -> (((exists bpr_height_bpccf_right_power_repeat_entry. bpr_height_bpccf_right_power_repeat_entry + S (S (i)) = S ((S (bpr_power_index_bpccf_right_power)) * bpr_power_scale_bpccf_right_power)) /\ exists bpr_quotient_bpccf_right_power_repeat_entry. bpr_power_code_bpccf_right_power = bpr_quotient_bpccf_right_power_repeat_entry * S ((S (bpr_power_index_bpccf_right_power)) * bpr_power_scale_bpccf_right_power) + (S (i))))) /\ (exists ff_u_bpccf_right_power_product ff_v_bpccf_right_power_product. ((((exists ff_h_bpccf_right_power_product_start. ff_h_bpccf_right_power_product_start + S (1) = S ((S (0)) * ff_v_bpccf_right_power_product)) /\ exists ff_q_bpccf_right_power_product_start. ff_u_bpccf_right_power_product = ff_q_bpccf_right_power_product_start * S ((S (0)) * ff_v_bpccf_right_power_product) + (1))) /\ ((((exists ff_h_bpccf_right_power_product_terminal. ff_h_bpccf_right_power_product_terminal + S (z) = S ((S (bpr_choice_exponent_bpccf_right)) * ff_v_bpccf_right_power_product)) /\ exists ff_q_bpccf_right_power_product_terminal. ff_u_bpccf_right_power_product = ff_q_bpccf_right_power_product_terminal * S ((S (bpr_choice_exponent_bpccf_right)) * ff_v_bpccf_right_power_product) + (z))) /\ forall ff_i_bpccf_right_power_product. (exists ff_lt_bpccf_right_power_product_bound. ff_lt_bpccf_right_power_product_bound + S ff_i_bpccf_right_power_product = bpr_choice_exponent_bpccf_right) -> exists ff_p_bpccf_right_power_product ff_r_bpccf_right_power_product ff_s_bpccf_right_power_product. ((((exists ff_h_bpccf_right_power_product_factor. ff_h_bpccf_right_power_product_factor + S (ff_p_bpccf_right_power_product) = S ((S (ff_i_bpccf_right_power_product)) * bpr_power_scale_bpccf_right_power)) /\ exists ff_q_bpccf_right_power_product_factor. bpr_power_code_bpccf_right_power = ff_q_bpccf_right_power_product_factor * S ((S (ff_i_bpccf_right_power_product)) * bpr_power_scale_bpccf_right_power) + (ff_p_bpccf_right_power_product))) /\ ((((exists ff_h_bpccf_right_power_product_partial. ff_h_bpccf_right_power_product_partial + S (ff_r_bpccf_right_power_product) = S ((S (ff_i_bpccf_right_power_product)) * ff_v_bpccf_right_power_product)) /\ exists ff_q_bpccf_right_power_product_partial. ff_u_bpccf_right_power_product = ff_q_bpccf_right_power_product_partial * S ((S (ff_i_bpccf_right_power_product)) * ff_v_bpccf_right_power_product) + (ff_r_bpccf_right_power_product))) /\ ((((exists ff_h_bpccf_right_power_product_successor. ff_h_bpccf_right_power_product_successor + S (ff_s_bpccf_right_power_product) = S ((S (S ff_i_bpccf_right_power_product)) * ff_v_bpccf_right_power_product)) /\ exists ff_q_bpccf_right_power_product_successor. ff_u_bpccf_right_power_product = ff_q_bpccf_right_power_product_successor * S ((S (S ff_i_bpccf_right_power_product)) * ff_v_bpccf_right_power_product) + (ff_s_bpccf_right_power_product))) /\ ff_s_bpccf_right_power_product = ff_r_bpccf_right_power_product * ff_p_bpccf_right_power_product)))))))))) \/ (~((~(S (i) = 1) /\ forall bpr_left_bpccf_right_prime bpr_right_bpccf_right_prime. S (i) = bpr_left_bpccf_right_prime * bpr_right_bpccf_right_prime -> bpr_left_bpccf_right_prime = 1 \/ bpr_right_bpccf_right_prime = 1)) /\ z = 1))) -> a = z

Proof neighborhood

Direct theorem prerequisites

Direct theorem dependents

Definition-aware tactic body

Only local propositions introduced by have or suffices are compacted. Every changed line has an exact-AST conservative-expansion receipt; the kernel still receives the immutable original tactic script.

Read the argument

Proof checkpoints

48 script commands · 14 reading checkpoints · 1 local claims

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.

Definition notation is shown below. Open the paired exact edition for the original native formulas. Source pairing is not a new equivalence certificate.

Named ingredients (2)
01Fix variables and assumptionsL1–6

Work with arbitrary variables or the premises of the current implication.

  1. L1
    intro n
  2. L2
    intro i
  3. L3
    intro a
  4. L4
    intro z
  5. L5
    intro hleft
  6. L6
    intro hright
02Separate the logical casesL7–14

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L7
    cases hleft
  2. L8
    cases hleft_left
  3. L9
    cases hleft_left_right
  4. L10
    cases hleft_left_right_witness
  5. L11
    cases hright
  6. L12
    cases hright_left
  7. L13
    cases hright_left_right
  8. L14
    cases hright_left_right_witness
03Establish hexponentL15–24

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply power valuation functional.

  1. L15
    have hexponent : x = x1
  2. L16
    specialize power_valuation_functional (S i)
  3. L17
    specialize power_valuation_functional n
  4. L18
    specialize power_valuation_functional x
  5. L19
    specialize power_valuation_functional x1
  6. L20
    apply power_valuation_functional
  7. L21
    exact hleft_left_right_witness_left
  8. L22
    exact hright_left_right_witness_left
  9. L23
    rewrite <- hexponent at hright_left_right_witness_right
  10. L24
    rewrite <- hexponent at hright_left_right_witness_right
04Calculate and transport equalitiesL25–26

Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.

  1. L25
    rewrite <- hexponent at hright_left_right_witness_right
  2. L26
    rewrite <- hexponent at hright_left_right_witness_right
05Use earlier factsL27–33

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L27
    specialize pow_functional (S i)
  2. L28
    specialize pow_functional x
  3. L29
    specialize pow_functional a
  4. L30
    specialize pow_functional z
  5. L31
    apply pow_functional
  6. L32
    exact hleft_left_right_witness_right
  7. L33
    exact hright_left_right_witness_right
06Separate the logical casesL34–35

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L34
    cases hright_right
  2. L35
    exfalso
07Use earlier factsL36–37

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L36
    apply hright_right_left
  2. L37
    exact hleft_left_left
08Separate the logical casesL38–41

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L38
    cases hleft_right
  2. L39
    cases hright
  3. L40
    cases hright_left
  4. L41
    exfalso
09Use earlier factsL42–43

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L42
    apply hleft_right_left
  2. L43
    exact hright_left_left
10Separate the logical casesL44–44

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L44
    cases hright_right
11Calculate and transport equalitiesL45–45

Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.

  1. L45
    trans 1
12Use earlier factsL46–46

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L46
    exact hleft_right_right
13Calculate and transport equalitiesL47–47

Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.

  1. L47
    symm
14Use earlier factsL48–48

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L48
    exact hright_right_right

Library-wide reading audit

Original defined command ledger · 48 lines
  1. 0001intro n
  2. 0002intro i
  3. 0003intro a
  4. 0004intro z
  5. 0005intro hleft
  6. 0006intro hright
  7. 0007cases hleft
  8. 0008cases hleft_left
  9. 0009cases hleft_left_right
  10. 0010cases hleft_left_right_witness
  11. 0011cases hright
  12. 0012cases hright_left
  13. 0013cases hright_left_right
  14. 0014cases hright_left_right_witness
  15. 0015have hexponent : x = x1
  16. 0016specialize power_valuation_functional (S i)
  17. 0017specialize power_valuation_functional n
  18. 0018specialize power_valuation_functional x
  19. 0019specialize power_valuation_functional x1
  20. 0020apply power_valuation_functional
  21. 0021exact hleft_left_right_witness_left
  22. 0022exact hright_left_right_witness_left
  23. 0023rewrite <- hexponent at hright_left_right_witness_right
  24. 0024rewrite <- hexponent at hright_left_right_witness_right
  25. 0025rewrite <- hexponent at hright_left_right_witness_right
  26. 0026rewrite <- hexponent at hright_left_right_witness_right
  27. 0027specialize pow_functional (S i)
  28. 0028specialize pow_functional x
  29. 0029specialize pow_functional a
  30. 0030specialize pow_functional z
  31. 0031apply pow_functional
  32. 0032exact hleft_left_right_witness_right
  33. 0033exact hright_left_right_witness_right
  34. 0034cases hright_right
  35. 0035exfalso
  36. 0036apply hright_right_left
  37. 0037exact hleft_left_left
  38. 0038cases hleft_right
  39. 0039cases hright
  40. 0040cases hright_left
  41. 0041exfalso
  42. 0042apply hleft_right_left
  43. 0043exact hright_left_left
  44. 0044cases hright_right
  45. 0045trans 1
  46. 0046exact hleft_right_right
  47. 0047symm
  48. 0048exact hright_right_right