Exact expanded first-order arithmetic statement
forall m n k A B C D u E F G H v P Q R T q p f g. (forall jt_index_locrect. (exists jt_gap_locrectindex. jt_gap_locrectindex+S (jt_index_locrect)=(q)) -> exists jt_row_locrect jt_column_locrect jt_b_locrect jt_c_locrect jt_d_locrect jt_e_locrect jt_f_locrect jt_g_locrect. ((exists jt_gap_locrectrow. jt_gap_locrectrow+S (jt_row_locrect)=(u)) /\ (((exists jt_gap_locrectcolumn. jt_gap_locrectcolumn+S (jt_column_locrect)=(v)) /\ (((jt_index_locrect=(v)*jt_row_locrect+jt_column_locrect) /\ (((((((exists fs_h_jt_locrectleftcode. fs_h_jt_locrectleftcode + S (jt_b_locrect) = S ((S (jt_row_locrect)) * B)) /\ exists fs_q_jt_locrectleftcode. A = fs_q_jt_locrectleftcode * S ((S (jt_row_locrect)) * B) + (jt_b_locrect))) /\ (((exists fs_h_jt_locrectleftscale. fs_h_jt_locrectleftscale + S (jt_c_locrect) = S ((S (jt_row_locrect)) * D)) /\ exists fs_q_jt_locrectleftscale. C = fs_q_jt_locrectleftscale * S ((S (jt_row_locrect)) * D) + (jt_c_locrect))))) /\ (((((((exists fs_h_jt_locrectrightcode. fs_h_jt_locrectrightcode + S (jt_d_locrect) = S ((S (jt_column_locrect)) * F)) /\ exists fs_q_jt_locrectrightcode. E = fs_q_jt_locrectrightcode * S ((S (jt_column_locrect)) * F) + (jt_d_locrect))) /\ (((exists fs_h_jt_locrectrightscale. fs_h_jt_locrectrightscale + S (jt_e_locrect) = S ((S (jt_column_locrect)) * H)) /\ exists fs_q_jt_locrectrightscale. G = fs_q_jt_locrectrightscale * S ((S (jt_column_locrect)) * H) + (jt_e_locrect))))) /\ (((((((exists fs_h_jt_locrectoutputcode. fs_h_jt_locrectoutputcode + S (jt_f_locrect) = S ((S (jt_index_locrect)) * Q)) /\ exists fs_q_jt_locrectoutputcode. P = fs_q_jt_locrectoutputcode * S ((S (jt_index_locrect)) * Q) + (jt_f_locrect))) /\ (((exists fs_h_jt_locrectoutputscale. fs_h_jt_locrectoutputscale + S (jt_g_locrect) = S ((S (jt_index_locrect)) * T)) /\ exists fs_q_jt_locrectoutputscale. R = fs_q_jt_locrectoutputscale * S ((S (jt_index_locrect)) * T) + (jt_g_locrect))))) /\ (((((forall jt_index_locrectcrtbound. (exists jt_gap_locrectcrtboundindex. jt_gap_locrectcrtboundindex+S (jt_index_locrectcrtbound)=(k)) -> exists jt_value_locrectcrtbound. ((((exists fs_h_jt_locrectcrtboundat. fs_h_jt_locrectcrtboundat + S (jt_value_locrectcrtbound) = S ((S (jt_index_locrectcrtbound)) * jt_g_locrect)) /\ exists fs_q_jt_locrectcrtboundat. jt_f_locrect = fs_q_jt_locrectcrtboundat * S ((S (jt_index_locrectcrtbound)) * jt_g_locrect) + (jt_value_locrectcrtbound))) /\ (exists jt_gap_locrectcrtboundvalue. jt_gap_locrectcrtboundvalue+S (jt_value_locrectcrtbound)=(m*n)))) /\ (((forall jt_index_locrectcrtleft jt_left_locrectcrtleft jt_right_locrectcrtleft. (exists jt_gap_locrectcrtleftindex. jt_gap_locrectcrtleftindex+S (jt_index_locrectcrtleft)=(k)) -> (((exists fs_h_jt_locrectcrtleftleft. fs_h_jt_locrectcrtleftleft + S (jt_left_locrectcrtleft) = S ((S (jt_index_locrectcrtleft)) * jt_g_locrect)) /\ exists fs_q_jt_locrectcrtleftleft. jt_f_locrect = fs_q_jt_locrectcrtleftleft * S ((S (jt_index_locrectcrtleft)) * jt_g_locrect) + (jt_left_locrectcrtleft))) -> (((exists fs_h_jt_locrectcrtleftright. fs_h_jt_locrectcrtleftright + S (jt_right_locrectcrtleft) = S ((S (jt_index_locrectcrtleft)) * jt_c_locrect)) /\ exists fs_q_jt_locrectcrtleftright. jt_b_locrect = fs_q_jt_locrectcrtleftright * S ((S (jt_index_locrectcrtleft)) * jt_c_locrect) + (jt_right_locrectcrtleft))) -> (exists jt_left_locrectcrtleftmod jt_right_locrectcrtleftmod. (jt_left_locrectcrtleft)+(m)*jt_left_locrectcrtleftmod=(jt_right_locrectcrtleft)+(m)*jt_right_locrectcrtleftmod)) /\ (forall jt_index_locrectcrtright jt_left_locrectcrtright jt_right_locrectcrtright. (exists jt_gap_locrectcrtrightindex. jt_gap_locrectcrtrightindex+S (jt_index_locrectcrtright)=(k)) -> (((exists fs_h_jt_locrectcrtrightleft. fs_h_jt_locrectcrtrightleft + S (jt_left_locrectcrtright) = S ((S (jt_index_locrectcrtright)) * jt_g_locrect)) /\ exists fs_q_jt_locrectcrtrightleft. jt_f_locrect = fs_q_jt_locrectcrtrightleft * S ((S (jt_index_locrectcrtright)) * jt_g_locrect) + (jt_left_locrectcrtright))) -> (((exists fs_h_jt_locrectcrtrightright. fs_h_jt_locrectcrtrightright + S (jt_right_locrectcrtright) = S ((S (jt_index_locrectcrtright)) * jt_e_locrect)) /\ exists fs_q_jt_locrectcrtrightright. jt_d_locrect = fs_q_jt_locrectcrtrightright * S ((S (jt_index_locrectcrtright)) * jt_e_locrect) + (jt_right_locrectcrtright))) -> (exists jt_left_locrectcrtrightmod jt_right_locrectcrtrightmod. (jt_left_locrectcrtright)+(n)*jt_left_locrectcrtrightmod=(jt_right_locrectcrtright)+(n)*jt_right_locrectcrtrightmod)))))) /\ (forall jt_divisor_locrectprimitive. (exists jt_factor_locrectprimitivemodulus. (m*n)=(jt_divisor_locrectprimitive)*jt_factor_locrectprimitivemodulus) -> (forall jt_index_locrectprimitivecoordinates jt_value_locrectprimitivecoordinates. (exists jt_gap_locrectprimitivecoordinatesindex. jt_gap_locrectprimitivecoordinatesindex+S (jt_index_locrectprimitivecoordinates)=(k)) -> (((exists fs_h_jt_locrectprimitivecoordinatesat. fs_h_jt_locrectprimitivecoordinatesat + S (jt_value_locrectprimitivecoordinates) = S ((S (jt_index_locrectprimitivecoordinates)) * jt_g_locrect)) /\ exists fs_q_jt_locrectprimitivecoordinatesat. jt_f_locrect = fs_q_jt_locrectprimitivecoordinatesat * S ((S (jt_index_locrectprimitivecoordinates)) * jt_g_locrect) + (jt_value_locrectprimitivecoordinates))) -> (exists jt_factor_locrectprimitivecoordinatesdivides. (jt_value_locrectprimitivecoordinates)=(jt_divisor_locrectprimitive)*jt_factor_locrectprimitivecoordinatesdivides)) -> jt_divisor_locrectprimitive=1))))))))))))))) -> (exists jt_gap_locbound. jt_gap_locbound+S (p)=(q)) -> (((((exists fs_h_jt_locentrycode. fs_h_jt_locentrycode + S (f) = S ((S (p)) * Q)) /\ exists fs_q_jt_locentrycode. P = fs_q_jt_locentrycode * S ((S (p)) * Q) + (f))) /\ (((exists fs_h_jt_locentryscale. fs_h_jt_locentryscale + S (g) = S ((S (p)) * T)) /\ exists fs_q_jt_locentryscale. R = fs_q_jt_locentryscale * S ((S (p)) * T) + (g))))) -> exists i j b c d e. ((exists jt_gap_locresultrow. jt_gap_locresultrow+S (i)=(u)) /\ (((exists jt_gap_locresultcolumn. jt_gap_locresultcolumn+S (j)=(v)) /\ (((p=(v)*(i)+(j)) /\ (((((((exists fs_h_jt_locresultleftcode. fs_h_jt_locresultleftcode + S (b) = S ((S (i)) * B)) /\ exists fs_q_jt_locresultleftcode. A = fs_q_jt_locresultleftcode * S ((S (i)) * B) + (b))) /\ (((exists fs_h_jt_locresultleftscale. fs_h_jt_locresultleftscale + S (c) = S ((S (i)) * D)) /\ exists fs_q_jt_locresultleftscale. C = fs_q_jt_locresultleftscale * S ((S (i)) * D) + (c))))) /\ (((((((exists fs_h_jt_locresultrightcode. fs_h_jt_locresultrightcode + S (d) = S ((S (j)) * F)) /\ exists fs_q_jt_locresultrightcode. E = fs_q_jt_locresultrightcode * S ((S (j)) * F) + (d))) /\ (((exists fs_h_jt_locresultrightscale. fs_h_jt_locresultrightscale + S (e) = S ((S (j)) * H)) /\ exists fs_q_jt_locresultrightscale. G = fs_q_jt_locresultrightscale * S ((S (j)) * H) + (e))))) /\ (((((((exists fs_h_jt_locresultoutputcode. fs_h_jt_locresultoutputcode + S (f) = S ((S (p)) * Q)) /\ exists fs_q_jt_locresultoutputcode. P = fs_q_jt_locresultoutputcode * S ((S (p)) * Q) + (f))) /\ (((exists fs_h_jt_locresultoutputscale. fs_h_jt_locresultoutputscale + S (g) = S ((S (p)) * T)) /\ exists fs_q_jt_locresultoutputscale. R = fs_q_jt_locresultoutputscale * S ((S (p)) * T) + (g))))) /\ (((((forall jt_index_locresultcrtbound. (exists jt_gap_locresultcrtboundindex. jt_gap_locresultcrtboundindex+S (jt_index_locresultcrtbound)=(k)) -> exists jt_value_locresultcrtbound. ((((exists fs_h_jt_locresultcrtboundat. fs_h_jt_locresultcrtboundat + S (jt_value_locresultcrtbound) = S ((S (jt_index_locresultcrtbound)) * g)) /\ exists fs_q_jt_locresultcrtboundat. f = fs_q_jt_locresultcrtboundat * S ((S (jt_index_locresultcrtbound)) * g) + (jt_value_locresultcrtbound))) /\ (exists jt_gap_locresultcrtboundvalue. jt_gap_locresultcrtboundvalue+S (jt_value_locresultcrtbound)=(m*n)))) /\ (((forall jt_index_locresultcrtleft jt_left_locresultcrtleft jt_right_locresultcrtleft. (exists jt_gap_locresultcrtleftindex. jt_gap_locresultcrtleftindex+S (jt_index_locresultcrtleft)=(k)) -> (((exists fs_h_jt_locresultcrtleftleft. fs_h_jt_locresultcrtleftleft + S (jt_left_locresultcrtleft) = S ((S (jt_index_locresultcrtleft)) * g)) /\ exists fs_q_jt_locresultcrtleftleft. f = fs_q_jt_locresultcrtleftleft * S ((S (jt_index_locresultcrtleft)) * g) + (jt_left_locresultcrtleft))) -> (((exists fs_h_jt_locresultcrtleftright. fs_h_jt_locresultcrtleftright + S (jt_right_locresultcrtleft) = S ((S (jt_index_locresultcrtleft)) * c)) /\ exists fs_q_jt_locresultcrtleftright. b = fs_q_jt_locresultcrtleftright * S ((S (jt_index_locresultcrtleft)) * c) + (jt_right_locresultcrtleft))) -> (exists jt_left_locresultcrtleftmod jt_right_locresultcrtleftmod. (jt_left_locresultcrtleft)+(m)*jt_left_locresultcrtleftmod=(jt_right_locresultcrtleft)+(m)*jt_right_locresultcrtleftmod)) /\ (forall jt_index_locresultcrtright jt_left_locresultcrtright jt_right_locresultcrtright. (exists jt_gap_locresultcrtrightindex. jt_gap_locresultcrtrightindex+S (jt_index_locresultcrtright)=(k)) -> (((exists fs_h_jt_locresultcrtrightleft. fs_h_jt_locresultcrtrightleft + S (jt_left_locresultcrtright) = S ((S (jt_index_locresultcrtright)) * g)) /\ exists fs_q_jt_locresultcrtrightleft. f = fs_q_jt_locresultcrtrightleft * S ((S (jt_index_locresultcrtright)) * g) + (jt_left_locresultcrtright))) -> (((exists fs_h_jt_locresultcrtrightright. fs_h_jt_locresultcrtrightright + S (jt_right_locresultcrtright) = S ((S (jt_index_locresultcrtright)) * e)) /\ exists fs_q_jt_locresultcrtrightright. d = fs_q_jt_locresultcrtrightright * S ((S (jt_index_locresultcrtright)) * e) + (jt_right_locresultcrtright))) -> (exists jt_left_locresultcrtrightmod jt_right_locresultcrtrightmod. (jt_left_locresultcrtright)+(n)*jt_left_locresultcrtrightmod=(jt_right_locresultcrtright)+(n)*jt_right_locresultcrtrightmod)))))) /\ (forall jt_divisor_locresultprimitive. (exists jt_factor_locresultprimitivemodulus. (m*n)=(jt_divisor_locresultprimitive)*jt_factor_locresultprimitivemodulus) -> (forall jt_index_locresultprimitivecoordinates jt_value_locresultprimitivecoordinates. (exists jt_gap_locresultprimitivecoordinatesindex. jt_gap_locresultprimitivecoordinatesindex+S (jt_index_locresultprimitivecoordinates)=(k)) -> (((exists fs_h_jt_locresultprimitivecoordinatesat. fs_h_jt_locresultprimitivecoordinatesat + S (jt_value_locresultprimitivecoordinates) = S ((S (jt_index_locresultprimitivecoordinates)) * g)) /\ exists fs_q_jt_locresultprimitivecoordinatesat. f = fs_q_jt_locresultprimitivecoordinatesat * S ((S (jt_index_locresultprimitivecoordinates)) * g) + (jt_value_locresultprimitivecoordinates))) -> (exists jt_factor_locresultprimitivecoordinatesdivides. (jt_value_locresultprimitivecoordinates)=(jt_divisor_locresultprimitive)*jt_factor_locresultprimitivecoordinatesdivides)) -> jt_divisor_locresultprimitive=1))))))))))))))Constructive proof overview
Generated structural guide
Decode an arbitrary actual output entry without identifying distinct beta representations.
The unchanged tactic script uses 1 declared prerequisite and contains 98 exact native proof lines.
Alpha v35 checked-use · first admitted v35 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
beta_at_unique 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.
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–20
03Fix variables and assumptionsL21–24
04Establish hvL25–28
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply hr.
- L25
have hv : ∃ i. ∃ j. ∃ b. ∃ c. ∃ d. ∃ e. ∃ f. ∃ g. Lt(i,u) ∧ (Lt(j,v) ∧ (p = v · i + j ∧ (BetaAt(A,B,i,b) ∧ BetaAt(C,D,i,c) ∧ (BetaAt(E,F,j,d) ∧ BetaAt(G,H,j,e) ∧ (BetaAt(P,Q,p,f) ∧ BetaAt(R,T,p,g) ∧ (JordanCanonicalTupleCRT(m,n,b,c,d,e,f,g,k) ∧ JordanPrimitiveTuple(m · n,f,g,k)))))))Definitions: JordanPrimitiveTupleJordanCanonicalTupleCRTLtBetaAt - L26
specialize hr (p) - L27
apply hr - L28
exact hp
05Separate the logical casesL29–38
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L29
cases hv - L30
cases hv_witness - L31
cases hv_witness_witness - L32
cases hv_witness_witness_witness - L33
cases hv_witness_witness_witness_witness - L34
cases hv_witness_witness_witness_witness_witness - L35
cases hv_witness_witness_witness_witness_witness_witness - L36
cases hv_witness_witness_witness_witness_witness_witness_witness - L37
cases hv_witness_witness_witness_witness_witness_witness_witness_witness - L38
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right
06Separate the logical casesL39–45
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L39
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right - L40
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right - L41
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right - L42
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right - L43
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right - L44
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left - L45
cases he
07Establish hfL46–54
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta at unique.
- L46
have hf : x6=f - L47
specialize beta_at_unique (P) - L48
specialize beta_at_unique (Q) - L49
specialize beta_at_unique (p) - L50
specialize beta_at_unique (x6) - L51
specialize beta_at_unique (f) - L52
apply beta_at_unique - L53
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left_left - L54
exact he_left
08Establish hgL55–63
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta at unique.
- L55
have hg : x7=g - L56
specialize beta_at_unique (R) - L57
specialize beta_at_unique (T) - L58
specialize beta_at_unique (p) - L59
specialize beta_at_unique (x7) - L60
specialize beta_at_unique (g) - L61
apply beta_at_unique - L62
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left_right - L63
exact he_right
09Construct an explicit witnessL64–69
10Separate the logical casesL70–70
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L70
split
11Use earlier factsL71–71
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L71
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_left
12Separate the logical casesL72–72
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L72
split
13Use earlier factsL73–73
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L73
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_left
14Separate the logical casesL74–74
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L74
split
15Use earlier factsL75–75
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L75
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_left
16Separate the logical casesL76–76
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L76
split
17Use earlier factsL77–77
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L77
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_left
18Separate the logical casesL78–78
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L78
split
19Use earlier factsL79–79
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L79
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_left
20Separate the logical casesL80–81
21Use earlier factsL82–83
22Separate the logical casesL84–84
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L84
split
23Calculate and transport equalitiesL85–93
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L85
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L86
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L87
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L88
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L89
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L90
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L91
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L92
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L93
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left
24Use earlier factsL94–94
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L94
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left
25Calculate and transport equalitiesL95–97
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L95
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right - L96
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right - L97
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right
26Use earlier factsL98–98
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L98
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right
Original exact command ledger · 98 lines
- 0001
intro m - 0002
intro n - 0003
intro k - 0004
intro A - 0005
intro B - 0006
intro C - 0007
intro D - 0008
intro u - 0009
intro E - 0010
intro F - 0011
intro G - 0012
intro H - 0013
intro v - 0014
intro P - 0015
intro Q - 0016
intro R - 0017
intro T - 0018
intro q - 0019
intro p - 0020
intro f - 0021
intro g - 0022
intro hr - 0023
intro hp - 0024
intro he - 0025
have hv : exists i j b c d e f g. ((exists jt_gap_locatedrow. jt_gap_locatedrow+S (i)=(u)) /\ (((exists jt_gap_locatedcolumn. jt_gap_locatedcolumn+S (j)=(v)) /\ (((p=(v)*(i)+(j)) /\ (((((((exists fs_h_jt_locatedleftcode. fs_h_jt_locatedleftcode + S (b) = S ((S (i)) * B)) /\ exists fs_q_jt_locatedleftcode. A = fs_q_jt_locatedleftcode * S ((S (i)) * B) + (b))) /\ (((exists fs_h_jt_locatedleftscale. fs_h_jt_locatedleftscale + S (c) = S ((S (i)) * D)) /\ exists fs_q_jt_locatedleftscale. C = fs_q_jt_locatedleftscale * S ((S (i)) * D) + (c))))) /\ (((((((exists fs_h_jt_locatedrightcode. fs_h_jt_locatedrightcode + S (d) = S ((S (j)) * F)) /\ exists fs_q_jt_locatedrightcode. E = fs_q_jt_locatedrightcode * S ((S (j)) * F) + (d))) /\ (((exists fs_h_jt_locatedrightscale. fs_h_jt_locatedrightscale + S (e) = S ((S (j)) * H)) /\ exists fs_q_jt_locatedrightscale. G = fs_q_jt_locatedrightscale * S ((S (j)) * H) + (e))))) /\ (((((((exists fs_h_jt_locatedoutputcode. fs_h_jt_locatedoutputcode + S (f) = S ((S (p)) * Q)) /\ exists fs_q_jt_locatedoutputcode. P = fs_q_jt_locatedoutputcode * S ((S (p)) * Q) + (f))) /\ (((exists fs_h_jt_locatedoutputscale. fs_h_jt_locatedoutputscale + S (g) = S ((S (p)) * T)) /\ exists fs_q_jt_locatedoutputscale. R = fs_q_jt_locatedoutputscale * S ((S (p)) * T) + (g))))) /\ (((((forall jt_index_locatedcrtbound. (exists jt_gap_locatedcrtboundindex. jt_gap_locatedcrtboundindex+S (jt_index_locatedcrtbound)=(k)) -> exists jt_value_locatedcrtbound. ((((exists fs_h_jt_locatedcrtboundat. fs_h_jt_locatedcrtboundat + S (jt_value_locatedcrtbound) = S ((S (jt_index_locatedcrtbound)) * g)) /\ exists fs_q_jt_locatedcrtboundat. f = fs_q_jt_locatedcrtboundat * S ((S (jt_index_locatedcrtbound)) * g) + (jt_value_locatedcrtbound))) /\ (exists jt_gap_locatedcrtboundvalue. jt_gap_locatedcrtboundvalue+S (jt_value_locatedcrtbound)=(m*n)))) /\ (((forall jt_index_locatedcrtleft jt_left_locatedcrtleft jt_right_locatedcrtleft. (exists jt_gap_locatedcrtleftindex. jt_gap_locatedcrtleftindex+S (jt_index_locatedcrtleft)=(k)) -> (((exists fs_h_jt_locatedcrtleftleft. fs_h_jt_locatedcrtleftleft + S (jt_left_locatedcrtleft) = S ((S (jt_index_locatedcrtleft)) * g)) /\ exists fs_q_jt_locatedcrtleftleft. f = fs_q_jt_locatedcrtleftleft * S ((S (jt_index_locatedcrtleft)) * g) + (jt_left_locatedcrtleft))) -> (((exists fs_h_jt_locatedcrtleftright. fs_h_jt_locatedcrtleftright + S (jt_right_locatedcrtleft) = S ((S (jt_index_locatedcrtleft)) * c)) /\ exists fs_q_jt_locatedcrtleftright. b = fs_q_jt_locatedcrtleftright * S ((S (jt_index_locatedcrtleft)) * c) + (jt_right_locatedcrtleft))) -> (exists jt_left_locatedcrtleftmod jt_right_locatedcrtleftmod. (jt_left_locatedcrtleft)+(m)*jt_left_locatedcrtleftmod=(jt_right_locatedcrtleft)+(m)*jt_right_locatedcrtleftmod)) /\ (forall jt_index_locatedcrtright jt_left_locatedcrtright jt_right_locatedcrtright. (exists jt_gap_locatedcrtrightindex. jt_gap_locatedcrtrightindex+S (jt_index_locatedcrtright)=(k)) -> (((exists fs_h_jt_locatedcrtrightleft. fs_h_jt_locatedcrtrightleft + S (jt_left_locatedcrtright) = S ((S (jt_index_locatedcrtright)) * g)) /\ exists fs_q_jt_locatedcrtrightleft. f = fs_q_jt_locatedcrtrightleft * S ((S (jt_index_locatedcrtright)) * g) + (jt_left_locatedcrtright))) -> (((exists fs_h_jt_locatedcrtrightright. fs_h_jt_locatedcrtrightright + S (jt_right_locatedcrtright) = S ((S (jt_index_locatedcrtright)) * e)) /\ exists fs_q_jt_locatedcrtrightright. d = fs_q_jt_locatedcrtrightright * S ((S (jt_index_locatedcrtright)) * e) + (jt_right_locatedcrtright))) -> (exists jt_left_locatedcrtrightmod jt_right_locatedcrtrightmod. (jt_left_locatedcrtright)+(n)*jt_left_locatedcrtrightmod=(jt_right_locatedcrtright)+(n)*jt_right_locatedcrtrightmod)))))) /\ (forall jt_divisor_locatedprimitive. (exists jt_factor_locatedprimitivemodulus. (m*n)=(jt_divisor_locatedprimitive)*jt_factor_locatedprimitivemodulus) -> (forall jt_index_locatedprimitivecoordinates jt_value_locatedprimitivecoordinates. (exists jt_gap_locatedprimitivecoordinatesindex. jt_gap_locatedprimitivecoordinatesindex+S (jt_index_locatedprimitivecoordinates)=(k)) -> (((exists fs_h_jt_locatedprimitivecoordinatesat. fs_h_jt_locatedprimitivecoordinatesat + S (jt_value_locatedprimitivecoordinates) = S ((S (jt_index_locatedprimitivecoordinates)) * g)) /\ exists fs_q_jt_locatedprimitivecoordinatesat. f = fs_q_jt_locatedprimitivecoordinatesat * S ((S (jt_index_locatedprimitivecoordinates)) * g) + (jt_value_locatedprimitivecoordinates))) -> (exists jt_factor_locatedprimitivecoordinatesdivides. (jt_value_locatedprimitivecoordinates)=(jt_divisor_locatedprimitive)*jt_factor_locatedprimitivecoordinatesdivides)) -> jt_divisor_locatedprimitive=1)))))))))))))) - 0026
specialize hr (p) - 0027
apply hr - 0028
exact hp - 0029
cases hv - 0030
cases hv_witness - 0031
cases hv_witness_witness - 0032
cases hv_witness_witness_witness - 0033
cases hv_witness_witness_witness_witness - 0034
cases hv_witness_witness_witness_witness_witness - 0035
cases hv_witness_witness_witness_witness_witness_witness - 0036
cases hv_witness_witness_witness_witness_witness_witness_witness - 0037
cases hv_witness_witness_witness_witness_witness_witness_witness_witness - 0038
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right - 0039
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right - 0040
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right - 0041
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right - 0042
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right - 0043
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right - 0044
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left - 0045
cases he - 0046
have hf : x6=f - 0047
specialize beta_at_unique (P) - 0048
specialize beta_at_unique (Q) - 0049
specialize beta_at_unique (p) - 0050
specialize beta_at_unique (x6) - 0051
specialize beta_at_unique (f) - 0052
apply beta_at_unique - 0053
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left_left - 0054
exact he_left - 0055
have hg : x7=g - 0056
specialize beta_at_unique (R) - 0057
specialize beta_at_unique (T) - 0058
specialize beta_at_unique (p) - 0059
specialize beta_at_unique (x7) - 0060
specialize beta_at_unique (g) - 0061
apply beta_at_unique - 0062
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left_right - 0063
exact he_right - 0064
exists x - 0065
exists x1 - 0066
exists x2 - 0067
exists x3 - 0068
exists x4 - 0069
exists x5 - 0070
split - 0071
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_left - 0072
split - 0073
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_left - 0074
split - 0075
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_left - 0076
split - 0077
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_left - 0078
split - 0079
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_left - 0080
split - 0081
split - 0082
exact he_left - 0083
exact he_right - 0084
split - 0085
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0086
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0087
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0088
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0089
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0090
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0091
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0092
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0093
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0094
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0095
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right - 0096
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right - 0097
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right - 0098
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right