Exact expanded first-order arithmetic statement
forall p h j m n b c k. (~((p) = 1) /\ forall pvs_left_jordan_base pvs_right_jordan_base. (p) = pvs_left_jordan_base * pvs_right_jordan_base -> pvs_left_jordan_base = 1 \/ pvs_right_jordan_base = 1) -> (exists pa_b_pvs_jordan_first_power pa_c_pvs_jordan_first_power. ((forall pa_i_pvs_jordan_first_power_repeat. (exists pa_lt_pvs_jordan_first_power_repeat_bound. pa_lt_pvs_jordan_first_power_repeat_bound + S pa_i_pvs_jordan_first_power_repeat = S h) -> (((exists pa_h_pvs_jordan_first_power_repeat_decoded. pa_h_pvs_jordan_first_power_repeat_decoded + S (p) = S ((S (pa_i_pvs_jordan_first_power_repeat)) * pa_c_pvs_jordan_first_power)) /\ exists pa_q_pvs_jordan_first_power_repeat_decoded. pa_b_pvs_jordan_first_power = pa_q_pvs_jordan_first_power_repeat_decoded * S ((S (pa_i_pvs_jordan_first_power_repeat)) * pa_c_pvs_jordan_first_power) + (p)))) /\ (exists pa_u_pvs_jordan_first_power_product pa_v_pvs_jordan_first_power_product. ((((exists pa_h_pvs_jordan_first_power_product_start. pa_h_pvs_jordan_first_power_product_start + S (1) = S ((S (0)) * pa_v_pvs_jordan_first_power_product)) /\ exists pa_q_pvs_jordan_first_power_product_start. pa_u_pvs_jordan_first_power_product = pa_q_pvs_jordan_first_power_product_start * S ((S (0)) * pa_v_pvs_jordan_first_power_product) + (1))) /\ ((((exists pa_h_pvs_jordan_first_power_product_terminal. pa_h_pvs_jordan_first_power_product_terminal + S (m) = S ((S (S h)) * pa_v_pvs_jordan_first_power_product)) /\ exists pa_q_pvs_jordan_first_power_product_terminal. pa_u_pvs_jordan_first_power_product = pa_q_pvs_jordan_first_power_product_terminal * S ((S (S h)) * pa_v_pvs_jordan_first_power_product) + (m))) /\ forall pa_i_pvs_jordan_first_power_product. (exists pa_lt_pvs_jordan_first_power_product_bound. pa_lt_pvs_jordan_first_power_product_bound + S pa_i_pvs_jordan_first_power_product = S h) -> exists pa_p_pvs_jordan_first_power_product pa_r_pvs_jordan_first_power_product pa_s_pvs_jordan_first_power_product. ((((exists pa_h_pvs_jordan_first_power_product_factor. pa_h_pvs_jordan_first_power_product_factor + S (pa_p_pvs_jordan_first_power_product) = S ((S (pa_i_pvs_jordan_first_power_product)) * pa_c_pvs_jordan_first_power)) /\ exists pa_q_pvs_jordan_first_power_product_factor. pa_b_pvs_jordan_first_power = pa_q_pvs_jordan_first_power_product_factor * S ((S (pa_i_pvs_jordan_first_power_product)) * pa_c_pvs_jordan_first_power) + (pa_p_pvs_jordan_first_power_product))) /\ ((((exists pa_h_pvs_jordan_first_power_product_partial. pa_h_pvs_jordan_first_power_product_partial + S (pa_r_pvs_jordan_first_power_product) = S ((S (pa_i_pvs_jordan_first_power_product)) * pa_v_pvs_jordan_first_power_product)) /\ exists pa_q_pvs_jordan_first_power_product_partial. pa_u_pvs_jordan_first_power_product = pa_q_pvs_jordan_first_power_product_partial * S ((S (pa_i_pvs_jordan_first_power_product)) * pa_v_pvs_jordan_first_power_product) + (pa_r_pvs_jordan_first_power_product))) /\ ((((exists pa_h_pvs_jordan_first_power_product_successor. pa_h_pvs_jordan_first_power_product_successor + S (pa_s_pvs_jordan_first_power_product) = S ((S (S pa_i_pvs_jordan_first_power_product)) * pa_v_pvs_jordan_first_power_product)) /\ exists pa_q_pvs_jordan_first_power_product_successor. pa_u_pvs_jordan_first_power_product = pa_q_pvs_jordan_first_power_product_successor * S ((S (S pa_i_pvs_jordan_first_power_product)) * pa_v_pvs_jordan_first_power_product) + (pa_s_pvs_jordan_first_power_product))) /\ pa_s_pvs_jordan_first_power_product = pa_r_pvs_jordan_first_power_product * pa_p_pvs_jordan_first_power_product)))))))) -> (exists pa_b_pvs_jordan_second_power pa_c_pvs_jordan_second_power. ((forall pa_i_pvs_jordan_second_power_repeat. (exists pa_lt_pvs_jordan_second_power_repeat_bound. pa_lt_pvs_jordan_second_power_repeat_bound + S pa_i_pvs_jordan_second_power_repeat = S j) -> (((exists pa_h_pvs_jordan_second_power_repeat_decoded. pa_h_pvs_jordan_second_power_repeat_decoded + S (p) = S ((S (pa_i_pvs_jordan_second_power_repeat)) * pa_c_pvs_jordan_second_power)) /\ exists pa_q_pvs_jordan_second_power_repeat_decoded. pa_b_pvs_jordan_second_power = pa_q_pvs_jordan_second_power_repeat_decoded * S ((S (pa_i_pvs_jordan_second_power_repeat)) * pa_c_pvs_jordan_second_power) + (p)))) /\ (exists pa_u_pvs_jordan_second_power_product pa_v_pvs_jordan_second_power_product. ((((exists pa_h_pvs_jordan_second_power_product_start. pa_h_pvs_jordan_second_power_product_start + S (1) = S ((S (0)) * pa_v_pvs_jordan_second_power_product)) /\ exists pa_q_pvs_jordan_second_power_product_start. pa_u_pvs_jordan_second_power_product = pa_q_pvs_jordan_second_power_product_start * S ((S (0)) * pa_v_pvs_jordan_second_power_product) + (1))) /\ ((((exists pa_h_pvs_jordan_second_power_product_terminal. pa_h_pvs_jordan_second_power_product_terminal + S (n) = S ((S (S j)) * pa_v_pvs_jordan_second_power_product)) /\ exists pa_q_pvs_jordan_second_power_product_terminal. pa_u_pvs_jordan_second_power_product = pa_q_pvs_jordan_second_power_product_terminal * S ((S (S j)) * pa_v_pvs_jordan_second_power_product) + (n))) /\ forall pa_i_pvs_jordan_second_power_product. (exists pa_lt_pvs_jordan_second_power_product_bound. pa_lt_pvs_jordan_second_power_product_bound + S pa_i_pvs_jordan_second_power_product = S j) -> exists pa_p_pvs_jordan_second_power_product pa_r_pvs_jordan_second_power_product pa_s_pvs_jordan_second_power_product. ((((exists pa_h_pvs_jordan_second_power_product_factor. pa_h_pvs_jordan_second_power_product_factor + S (pa_p_pvs_jordan_second_power_product) = S ((S (pa_i_pvs_jordan_second_power_product)) * pa_c_pvs_jordan_second_power)) /\ exists pa_q_pvs_jordan_second_power_product_factor. pa_b_pvs_jordan_second_power = pa_q_pvs_jordan_second_power_product_factor * S ((S (pa_i_pvs_jordan_second_power_product)) * pa_c_pvs_jordan_second_power) + (pa_p_pvs_jordan_second_power_product))) /\ ((((exists pa_h_pvs_jordan_second_power_product_partial. pa_h_pvs_jordan_second_power_product_partial + S (pa_r_pvs_jordan_second_power_product) = S ((S (pa_i_pvs_jordan_second_power_product)) * pa_v_pvs_jordan_second_power_product)) /\ exists pa_q_pvs_jordan_second_power_product_partial. pa_u_pvs_jordan_second_power_product = pa_q_pvs_jordan_second_power_product_partial * S ((S (pa_i_pvs_jordan_second_power_product)) * pa_v_pvs_jordan_second_power_product) + (pa_r_pvs_jordan_second_power_product))) /\ ((((exists pa_h_pvs_jordan_second_power_product_successor. pa_h_pvs_jordan_second_power_product_successor + S (pa_s_pvs_jordan_second_power_product) = S ((S (S pa_i_pvs_jordan_second_power_product)) * pa_v_pvs_jordan_second_power_product)) /\ exists pa_q_pvs_jordan_second_power_product_successor. pa_u_pvs_jordan_second_power_product = pa_q_pvs_jordan_second_power_product_successor * S ((S (S pa_i_pvs_jordan_second_power_product)) * pa_v_pvs_jordan_second_power_product) + (pa_s_pvs_jordan_second_power_product))) /\ pa_s_pvs_jordan_second_power_product = pa_r_pvs_jordan_second_power_product * pa_p_pvs_jordan_second_power_product)))))))) -> (forall jt_divisor_jordan_first_primitive. (exists jt_factor_jordan_first_primitivemodulus. (m)=(jt_divisor_jordan_first_primitive)*jt_factor_jordan_first_primitivemodulus) -> (forall jt_index_jordan_first_primitivecoordinates jt_value_jordan_first_primitivecoordinates. (exists jt_gap_jordan_first_primitivecoordinatesindex. jt_gap_jordan_first_primitivecoordinatesindex+S (jt_index_jordan_first_primitivecoordinates)=(k)) -> (((exists fs_h_jt_jordan_first_primitivecoordinatesat. fs_h_jt_jordan_first_primitivecoordinatesat + S (jt_value_jordan_first_primitivecoordinates) = S ((S (jt_index_jordan_first_primitivecoordinates)) * c)) /\ exists fs_q_jt_jordan_first_primitivecoordinatesat. b = fs_q_jt_jordan_first_primitivecoordinatesat * S ((S (jt_index_jordan_first_primitivecoordinates)) * c) + (jt_value_jordan_first_primitivecoordinates))) -> (exists jt_factor_jordan_first_primitivecoordinatesdivides. (jt_value_jordan_first_primitivecoordinates)=(jt_divisor_jordan_first_primitive)*jt_factor_jordan_first_primitivecoordinatesdivides)) -> jt_divisor_jordan_first_primitive=1) -> forall jt_divisor_power_primitive. (exists jt_factor_power_primitivemodulus. (n)=(jt_divisor_power_primitive)*jt_factor_power_primitivemodulus) -> (forall jt_index_power_primitivecoordinates jt_value_power_primitivecoordinates. (exists jt_gap_power_primitivecoordinatesindex. jt_gap_power_primitivecoordinatesindex+S (jt_index_power_primitivecoordinates)=(k)) -> (((exists fs_h_jt_power_primitivecoordinatesat. fs_h_jt_power_primitivecoordinatesat + S (jt_value_power_primitivecoordinates) = S ((S (jt_index_power_primitivecoordinates)) * c)) /\ exists fs_q_jt_power_primitivecoordinatesat. b = fs_q_jt_power_primitivecoordinatesat * S ((S (jt_index_power_primitivecoordinates)) * c) + (jt_value_power_primitivecoordinates))) -> (exists jt_factor_power_primitivecoordinatesdivides. (jt_value_power_primitivecoordinates)=(jt_divisor_power_primitive)*jt_factor_power_primitivecoordinatesdivides)) -> jt_divisor_power_primitive=1Constructive proof overview
Generated structural guide
Primitivity of an actual beta tuple is invariant under changing the positive exponent of its prime-power modulus.
The unchanged tactic script uses 4 declared prerequisites and contains 40 exact native proof lines.
Alpha v35 checked-use · first admitted v35 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
JT005E jordan_prime_power_tuple_primitive_of_not_all_divisible JT005D jordan_primitive_tuple_avoids_prime_common_divisor pow_positive_exponent_base_divides Alpha theorem; checked-use authorized succ_ne_zero Alpha theorem; checked-use authorizedDirect 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 (2)
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–12
03Use earlier factsL13–21
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L13
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (p) - L14
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (S j) - L15
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (n) - L16
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (b) - L17
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (c) - L18
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (k) - L19
apply jordan_prime_power_tuple_primitive_of_not_all_divisible - L20
exact hp - L21
exact hn
04Fix variables and assumptionsL22–22
Work with arbitrary variables or the premises of the current implication.
- L22
intro hall
05Use earlier factsL23–32
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L23
specialize jordan_primitive_tuple_avoids_prime_common_divisor (p) - L24
specialize jordan_primitive_tuple_avoids_prime_common_divisor (m) - L25
specialize jordan_primitive_tuple_avoids_prime_common_divisor (b) - L26
specialize jordan_primitive_tuple_avoids_prime_common_divisor (c) - L27
specialize jordan_primitive_tuple_avoids_prime_common_divisor (k) - L28
apply jordan_primitive_tuple_avoids_prime_common_divisor - L29
exact hp - L30
specialize pow_positive_exponent_base_divides (p) - L31
specialize pow_positive_exponent_base_divides (S h) - L32
specialize pow_positive_exponent_base_divides (m)
06Use earlier factsL33–33
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L33
apply pow_positive_exponent_base_divides
07Fix variables and assumptionsL34–34
Work with arbitrary variables or the premises of the current implication.
- L34
intro hszero
Original exact command ledger · 40 lines
- 0001
intro p - 0002
intro h - 0003
intro j - 0004
intro m - 0005
intro n - 0006
intro b - 0007
intro c - 0008
intro k - 0009
intro hp - 0010
intro hm - 0011
intro hn - 0012
intro hprimitive - 0013
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (p) - 0014
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (S j) - 0015
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (n) - 0016
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (b) - 0017
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (c) - 0018
specialize jordan_prime_power_tuple_primitive_of_not_all_divisible (k) - 0019
apply jordan_prime_power_tuple_primitive_of_not_all_divisible - 0020
exact hp - 0021
exact hn - 0022
intro hall - 0023
specialize jordan_primitive_tuple_avoids_prime_common_divisor (p) - 0024
specialize jordan_primitive_tuple_avoids_prime_common_divisor (m) - 0025
specialize jordan_primitive_tuple_avoids_prime_common_divisor (b) - 0026
specialize jordan_primitive_tuple_avoids_prime_common_divisor (c) - 0027
specialize jordan_primitive_tuple_avoids_prime_common_divisor (k) - 0028
apply jordan_primitive_tuple_avoids_prime_common_divisor - 0029
exact hp - 0030
specialize pow_positive_exponent_base_divides (p) - 0031
specialize pow_positive_exponent_base_divides (S h) - 0032
specialize pow_positive_exponent_base_divides (m) - 0033
apply pow_positive_exponent_base_divides - 0034
intro hszero - 0035
specialize succ_ne_zero (h) - 0036
apply succ_ne_zero - 0037
exact hszero - 0038
exact hm - 0039
exact hprimitive - 0040
exact hall