Exact expanded first-order arithmetic statement
forall n b c d e k. (forall jt_index_pr_equal jt_left_pr_equal jt_right_pr_equal. (exists jt_gap_pr_equalindex. jt_gap_pr_equalindex+S (jt_index_pr_equal)=(k)) -> (((exists fs_h_jt_pr_equalleft. fs_h_jt_pr_equalleft + S (jt_left_pr_equal) = S ((S (jt_index_pr_equal)) * c)) /\ exists fs_q_jt_pr_equalleft. b = fs_q_jt_pr_equalleft * S ((S (jt_index_pr_equal)) * c) + (jt_left_pr_equal))) -> (((exists fs_h_jt_pr_equalright. fs_h_jt_pr_equalright + S (jt_right_pr_equal) = S ((S (jt_index_pr_equal)) * e)) /\ exists fs_q_jt_pr_equalright. d = fs_q_jt_pr_equalright * S ((S (jt_index_pr_equal)) * e) + (jt_right_pr_equal))) -> jt_left_pr_equal=jt_right_pr_equal) -> (forall jt_divisor_prsource. (exists jt_factor_prsourcemodulus. (n)=(jt_divisor_prsource)*jt_factor_prsourcemodulus) -> (forall jt_index_prsourcecoordinates jt_value_prsourcecoordinates. (exists jt_gap_prsourcecoordinatesindex. jt_gap_prsourcecoordinatesindex+S (jt_index_prsourcecoordinates)=(k)) -> (((exists fs_h_jt_prsourcecoordinatesat. fs_h_jt_prsourcecoordinatesat + S (jt_value_prsourcecoordinates) = S ((S (jt_index_prsourcecoordinates)) * c)) /\ exists fs_q_jt_prsourcecoordinatesat. b = fs_q_jt_prsourcecoordinatesat * S ((S (jt_index_prsourcecoordinates)) * c) + (jt_value_prsourcecoordinates))) -> (exists jt_factor_prsourcecoordinatesdivides. (jt_value_prsourcecoordinates)=(jt_divisor_prsource)*jt_factor_prsourcecoordinatesdivides)) -> jt_divisor_prsource=1) -> (forall jt_divisor_prtarget. (exists jt_factor_prtargetmodulus. (n)=(jt_divisor_prtarget)*jt_factor_prtargetmodulus) -> (forall jt_index_prtargetcoordinates jt_value_prtargetcoordinates. (exists jt_gap_prtargetcoordinatesindex. jt_gap_prtargetcoordinatesindex+S (jt_index_prtargetcoordinates)=(k)) -> (((exists fs_h_jt_prtargetcoordinatesat. fs_h_jt_prtargetcoordinatesat + S (jt_value_prtargetcoordinates) = S ((S (jt_index_prtargetcoordinates)) * e)) /\ exists fs_q_jt_prtargetcoordinatesat. d = fs_q_jt_prtargetcoordinatesat * S ((S (jt_index_prtargetcoordinates)) * e) + (jt_value_prtargetcoordinates))) -> (exists jt_factor_prtargetcoordinatesdivides. (jt_value_prtargetcoordinates)=(jt_divisor_prtarget)*jt_factor_prtargetcoordinatesdivides)) -> jt_divisor_prtarget=1)Constructive proof overview
Generated structural guide
Primitive means common-divisor one and is independent of beta presentation.
The unchanged tactic script uses 2 declared prerequisites and contains 29 exact native proof lines.
Alpha v35 checked-use · first admitted v35 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
Direct 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–11
Work with arbitrary variables or the premises of the current implication.
- L11
intro hall
03Use earlier factsL12–21
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L12
specialize hp (q) - L13
apply hp - L14
exact hq - L15
specialize jordan_tuple_common_divisor_transport (q) - L16
specialize jordan_tuple_common_divisor_transport (d) - L17
specialize jordan_tuple_common_divisor_transport (e) - L18
specialize jordan_tuple_common_divisor_transport (b) - L19
specialize jordan_tuple_common_divisor_transport (c) - L20
specialize jordan_tuple_common_divisor_transport (k) - L21
apply jordan_tuple_common_divisor_transport
04Use earlier factsL22–29
Instantiate or apply named facts and discharge the corresponding proof obligations.
Original exact command ledger · 29 lines
- 0001
intro n - 0002
intro b - 0003
intro c - 0004
intro d - 0005
intro e - 0006
intro k - 0007
intro heq - 0008
intro hp - 0009
intro q - 0010
intro hq - 0011
intro hall - 0012
specialize hp (q) - 0013
apply hp - 0014
exact hq - 0015
specialize jordan_tuple_common_divisor_transport (q) - 0016
specialize jordan_tuple_common_divisor_transport (d) - 0017
specialize jordan_tuple_common_divisor_transport (e) - 0018
specialize jordan_tuple_common_divisor_transport (b) - 0019
specialize jordan_tuple_common_divisor_transport (c) - 0020
specialize jordan_tuple_common_divisor_transport (k) - 0021
apply jordan_tuple_common_divisor_transport - 0022
specialize jordan_tuple_equal_symm (b) - 0023
specialize jordan_tuple_equal_symm (c) - 0024
specialize jordan_tuple_equal_symm (d) - 0025
specialize jordan_tuple_equal_symm (e) - 0026
specialize jordan_tuple_equal_symm (k) - 0027
apply jordan_tuple_equal_symm - 0028
exact heq - 0029
exact hall