DU0007

dirichlet_constant_one_table_exists

Alpha v34 independently verified · alpha_closed; checked-use authorized; not Stable

For every finite bound, construct a genuine constant-one table retaining any prescribed signed value at zero, including the empty positive domain.

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 expanded first-order arithmetic statement

forall N w. exists U. (((exists dst_positive_code_one_exists_tabletable dst_positive_scale_one_exists_tabletable dst_negative_code_one_exists_tabletable dst_negative_scale_one_exists_tabletable. (((U) = (((((dst_positive_code_one_exists_tabletable) + (dst_positive_scale_one_exists_tabletable)) * S ((dst_positive_code_one_exists_tabletable) + (dst_positive_scale_one_exists_tabletable)) + ((dst_positive_scale_one_exists_tabletable) + (dst_positive_scale_one_exists_tabletable))) + (((dst_negative_code_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)) * S ((dst_negative_code_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)) + ((dst_negative_scale_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)))) * S ((((dst_positive_code_one_exists_tabletable) + (dst_positive_scale_one_exists_tabletable)) * S ((dst_positive_code_one_exists_tabletable) + (dst_positive_scale_one_exists_tabletable)) + ((dst_positive_scale_one_exists_tabletable) + (dst_positive_scale_one_exists_tabletable))) + (((dst_negative_code_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)) * S ((dst_negative_code_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)) + ((dst_negative_scale_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)))) + ((((dst_negative_code_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)) * S ((dst_negative_code_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)) + ((dst_negative_scale_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable))) + (((dst_negative_code_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)) * S ((dst_negative_code_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)) + ((dst_negative_scale_one_exists_tabletable) + (dst_negative_scale_one_exists_tabletable)))))) /\ (forall dst_index_one_exists_tabletable. (exists pvs_le_gap_one_exists_tabletabledomain. pvs_le_gap_one_exists_tabletabledomain + (dst_index_one_exists_tabletable) = (N)) -> exists dst_positive_one_exists_tabletable dst_negative_one_exists_tabletable dst_value_one_exists_tabletable. ((((exists ff_h_pvs_one_exists_tabletableentrypositive. ff_h_pvs_one_exists_tabletableentrypositive + S (dst_positive_one_exists_tabletable) = S ((S (dst_index_one_exists_tabletable)) * dst_positive_scale_one_exists_tabletable)) /\ exists ff_q_pvs_one_exists_tabletableentrypositive. dst_positive_code_one_exists_tabletable = ff_q_pvs_one_exists_tabletableentrypositive * S ((S (dst_index_one_exists_tabletable)) * dst_positive_scale_one_exists_tabletable) + (dst_positive_one_exists_tabletable))) /\ (((((exists ff_h_pvs_one_exists_tabletableentrynegative. ff_h_pvs_one_exists_tabletableentrynegative + S (dst_negative_one_exists_tabletable) = S ((S (dst_index_one_exists_tabletable)) * dst_negative_scale_one_exists_tabletable)) /\ exists ff_q_pvs_one_exists_tabletableentrynegative. dst_negative_code_one_exists_tabletable = ff_q_pvs_one_exists_tabletableentrynegative * S ((S (dst_index_one_exists_tabletable)) * dst_negative_scale_one_exists_tabletable) + (dst_negative_one_exists_tabletable))) /\ (exists ge_balance_positive_one_exists_tabletableentryvalue ge_balance_negative_one_exists_tabletableentryvalue. (((((dst_value_one_exists_tabletable) = 2 * (ge_balance_positive_one_exists_tabletableentryvalue) /\ (ge_balance_negative_one_exists_tabletableentryvalue) = 0) \/ exists ge_signed_half_one_exists_tabletableentryvaluedecode. (((dst_value_one_exists_tabletable) = 2 * ge_signed_half_one_exists_tabletableentryvaluedecode + 1 /\ (ge_balance_positive_one_exists_tabletableentryvalue) = 0) /\ (ge_balance_negative_one_exists_tabletableentryvalue) = S ge_signed_half_one_exists_tabletableentryvaluedecode))) /\ ((dst_positive_one_exists_tabletable) + ge_balance_negative_one_exists_tabletableentryvalue = (dst_negative_one_exists_tabletable) + ge_balance_positive_one_exists_tabletableentryvalue))))))))) /\ (forall du_index_one_exists_table du_value_one_exists_table. ~(du_index_one_exists_table=0) -> (exists pvs_le_gap_one_exists_tablebound. pvs_le_gap_one_exists_tablebound + (du_index_one_exists_table) = (N)) -> (exists dst_positive_code_one_exists_tableentry dst_positive_scale_one_exists_tableentry dst_negative_code_one_exists_tableentry dst_negative_scale_one_exists_tableentry dst_positive_one_exists_tableentry dst_negative_one_exists_tableentry. (((U) = (((((dst_positive_code_one_exists_tableentry) + (dst_positive_scale_one_exists_tableentry)) * S ((dst_positive_code_one_exists_tableentry) + (dst_positive_scale_one_exists_tableentry)) + ((dst_positive_scale_one_exists_tableentry) + (dst_positive_scale_one_exists_tableentry))) + (((dst_negative_code_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)) * S ((dst_negative_code_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)) + ((dst_negative_scale_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)))) * S ((((dst_positive_code_one_exists_tableentry) + (dst_positive_scale_one_exists_tableentry)) * S ((dst_positive_code_one_exists_tableentry) + (dst_positive_scale_one_exists_tableentry)) + ((dst_positive_scale_one_exists_tableentry) + (dst_positive_scale_one_exists_tableentry))) + (((dst_negative_code_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)) * S ((dst_negative_code_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)) + ((dst_negative_scale_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)))) + ((((dst_negative_code_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)) * S ((dst_negative_code_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)) + ((dst_negative_scale_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry))) + (((dst_negative_code_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)) * S ((dst_negative_code_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)) + ((dst_negative_scale_one_exists_tableentry) + (dst_negative_scale_one_exists_tableentry)))))) /\ (((((exists ff_h_pvs_one_exists_tableentrypositive. ff_h_pvs_one_exists_tableentrypositive + S (dst_positive_one_exists_tableentry) = S ((S (du_index_one_exists_table)) * dst_positive_scale_one_exists_tableentry)) /\ exists ff_q_pvs_one_exists_tableentrypositive. dst_positive_code_one_exists_tableentry = ff_q_pvs_one_exists_tableentrypositive * S ((S (du_index_one_exists_table)) * dst_positive_scale_one_exists_tableentry) + (dst_positive_one_exists_tableentry))) /\ (((((exists ff_h_pvs_one_exists_tableentrynegative. ff_h_pvs_one_exists_tableentrynegative + S (dst_negative_one_exists_tableentry) = S ((S (du_index_one_exists_table)) * dst_negative_scale_one_exists_tableentry)) /\ exists ff_q_pvs_one_exists_tableentrynegative. dst_negative_code_one_exists_tableentry = ff_q_pvs_one_exists_tableentrynegative * S ((S (du_index_one_exists_table)) * dst_negative_scale_one_exists_tableentry) + (dst_negative_one_exists_tableentry))) /\ (exists ge_balance_positive_one_exists_tableentryvalue ge_balance_negative_one_exists_tableentryvalue. (((((du_value_one_exists_table) = 2 * (ge_balance_positive_one_exists_tableentryvalue) /\ (ge_balance_negative_one_exists_tableentryvalue) = 0) \/ exists ge_signed_half_one_exists_tableentryvaluedecode. (((du_value_one_exists_table) = 2 * ge_signed_half_one_exists_tableentryvaluedecode + 1 /\ (ge_balance_positive_one_exists_tableentryvalue) = 0) /\ (ge_balance_negative_one_exists_tableentryvalue) = S ge_signed_half_one_exists_tableentryvaluedecode))) /\ ((dst_positive_one_exists_tableentry) + ge_balance_negative_one_exists_tableentryvalue = (dst_negative_one_exists_tableentry) + ge_balance_positive_one_exists_tableentryvalue))))))))) -> du_value_one_exists_table=2))) /\ (exists dst_positive_code_one_exists_zero dst_positive_scale_one_exists_zero dst_negative_code_one_exists_zero dst_negative_scale_one_exists_zero dst_positive_one_exists_zero dst_negative_one_exists_zero. (((U) = (((((dst_positive_code_one_exists_zero) + (dst_positive_scale_one_exists_zero)) * S ((dst_positive_code_one_exists_zero) + (dst_positive_scale_one_exists_zero)) + ((dst_positive_scale_one_exists_zero) + (dst_positive_scale_one_exists_zero))) + (((dst_negative_code_one_exists_zero) + (dst_negative_scale_one_exists_zero)) * S ((dst_negative_code_one_exists_zero) + (dst_negative_scale_one_exists_zero)) + ((dst_negative_scale_one_exists_zero) + (dst_negative_scale_one_exists_zero)))) * S ((((dst_positive_code_one_exists_zero) + (dst_positive_scale_one_exists_zero)) * S ((dst_positive_code_one_exists_zero) + (dst_positive_scale_one_exists_zero)) + ((dst_positive_scale_one_exists_zero) + (dst_positive_scale_one_exists_zero))) + (((dst_negative_code_one_exists_zero) + (dst_negative_scale_one_exists_zero)) * S ((dst_negative_code_one_exists_zero) + (dst_negative_scale_one_exists_zero)) + ((dst_negative_scale_one_exists_zero) + (dst_negative_scale_one_exists_zero)))) + ((((dst_negative_code_one_exists_zero) + (dst_negative_scale_one_exists_zero)) * S ((dst_negative_code_one_exists_zero) + (dst_negative_scale_one_exists_zero)) + ((dst_negative_scale_one_exists_zero) + (dst_negative_scale_one_exists_zero))) + (((dst_negative_code_one_exists_zero) + (dst_negative_scale_one_exists_zero)) * S ((dst_negative_code_one_exists_zero) + (dst_negative_scale_one_exists_zero)) + ((dst_negative_scale_one_exists_zero) + (dst_negative_scale_one_exists_zero)))))) /\ (((((exists ff_h_pvs_one_exists_zeropositive. ff_h_pvs_one_exists_zeropositive + S (dst_positive_one_exists_zero) = S ((S (0)) * dst_positive_scale_one_exists_zero)) /\ exists ff_q_pvs_one_exists_zeropositive. dst_positive_code_one_exists_zero = ff_q_pvs_one_exists_zeropositive * S ((S (0)) * dst_positive_scale_one_exists_zero) + (dst_positive_one_exists_zero))) /\ (((((exists ff_h_pvs_one_exists_zeronegative. ff_h_pvs_one_exists_zeronegative + S (dst_negative_one_exists_zero) = S ((S (0)) * dst_negative_scale_one_exists_zero)) /\ exists ff_q_pvs_one_exists_zeronegative. dst_negative_code_one_exists_zero = ff_q_pvs_one_exists_zeronegative * S ((S (0)) * dst_negative_scale_one_exists_zero) + (dst_negative_one_exists_zero))) /\ (exists ge_balance_positive_one_exists_zerovalue ge_balance_negative_one_exists_zerovalue. (((((w) = 2 * (ge_balance_positive_one_exists_zerovalue) /\ (ge_balance_negative_one_exists_zerovalue) = 0) \/ exists ge_signed_half_one_exists_zerovaluedecode. (((w) = 2 * ge_signed_half_one_exists_zerovaluedecode + 1 /\ (ge_balance_positive_one_exists_zerovalue) = 0) /\ (ge_balance_negative_one_exists_zerovalue) = S ge_signed_half_one_exists_zerovaluedecode))) /\ ((dst_positive_one_exists_zero) + ge_balance_negative_one_exists_zerovalue = (dst_negative_one_exists_zero) + ge_balance_positive_one_exists_zerovalue)))))))))

Constructive proof overview

Generated structural guide

For every finite bound, construct a genuine constant-one table retaining any prescribed signed value at zero, including the empty positive domain.

The unchanged tactic script uses 6 declared prerequisites and contains 57 exact native proof lines.

Alpha v34 checked-use · first admitted v31 · independently kernel and Lean verified; not Stable

Proof neighborhood

Direct dependencies

arithmetic_signed_table_singleton Alpha theorem; checked-use authorized le_zero Stable theorem; checked-use authorized DU0005 dirichlet_constant_one_table_append arithmetic_signed_table_equal_entry_transport Alpha theorem; checked-use authorized zero_le Stable theorem; checked-use authorized succ_le_succ Stable theorem; checked-use authorized

Direct dependents

DU0019 dirichlet_constant_one_realizes_divisor_sum

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

57 script commands · 19 reading checkpoints · 3 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.

Named ingredients (1)
dirichlet constant one table append

Long local formulas use this family’s existing definitions. Each new abbreviation was expanded back to the identical native formula, including its free-variable context. The original edition is preserved below.

01Fix variables and assumptionsL1–1

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

  1. L1
    intro N
02Induction on NL2–3

Split the argument into the base and successor obligations. The induction hypothesis is available only in the successor branch.

  1. L2
    induction N
  2. L3
    intro w
03Establish hzL4–6

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply arithmetic signed table singleton.

  1. L4
    have hz : ∃ F. ArithTable(0,F) ∧ ArithAt(F,0,w)Definitions: ArithTableArithAt
  2. L5
    specialize arithmetic_signed_table_singleton (w)
  3. L6
    apply arithmetic_signed_table_singleton
04Separate the logical casesL7–8

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

  1. L7
    cases hz
  2. L8
    cases hz_witness
05Construct an explicit witnessL9–9

Supply the displayed value, then prove that it has the required property.

  1. L9
    exists x
06Separate the logical casesL10–11

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

  1. L10
    split
  2. L11
    split
07Use earlier factsL12–12

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

  1. L12
    exact hz_witness_left
08Fix variables and assumptionsL13–17

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

  1. L13
    intro i
  2. L14
    intro z
  3. L15
    intro hi
  4. L16
    intro hb
  5. L17
    intro he
09Separate the logical casesL18–18

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

  1. L18
    exfalso
10Use earlier factsL19–23

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

  1. L19
    apply hi
  2. L20
    specialize le_zero (i)
  3. L21
    apply le_zero
  4. L22
    exact hb
  5. L23
    exact hz_witness_right
11Fix variables and assumptionsL24–24

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

  1. L24
    intro w
12Establish hpL25–27

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

  1. L25
    have hp : ∃ F. ConstantOneTable(N,F) ∧ ArithAt(F,0,w)Definitions: ArithAtConstantOneTable
  2. L26
    specialize IH (w)
  3. L27
    apply IH
13Separate the logical casesL28–29

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

  1. L28
    cases hp
  2. L29
    cases hp_witness
14Establish heL30–34

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply dirichlet constant one table append.

  1. L30
    have he : ∃ G. ConstantOneTable(S N,G) ∧ (∀ y. ∀ z. ∀ n. Lt(y,S N) → ArithAt(x,y,z) → ArithAt(G,y,n) → z = n)Definitions: ArithAtConstantOneTableLt
  2. L31
    specialize dirichlet_constant_one_table_append (N)
  3. L32
    specialize dirichlet_constant_one_table_append (x)
  4. L33
    apply dirichlet_constant_one_table_append
  5. L34
    exact hp_witness_left
15Separate the logical casesL35–37

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

  1. L35
    cases he
  2. L36
    cases he_witness
  3. L37
    cases he_witness_left
16Construct an explicit witnessL38–38

Supply the displayed value, then prove that it has the required property.

  1. L38
    exists x1
17Separate the logical casesL39–39

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

  1. L39
    split
18Use earlier factsL40–49

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

  1. L40
    exact he_witness_left
  2. L41
    specialize arithmetic_signed_table_equal_entry_transport (S N)
  3. L42
    specialize arithmetic_signed_table_equal_entry_transport (x)
  4. L43
    specialize arithmetic_signed_table_equal_entry_transport (x1)
  5. L44
    specialize arithmetic_signed_table_equal_entry_transport (S N)
  6. L45
    specialize arithmetic_signed_table_equal_entry_transport (0)
  7. L46
    specialize arithmetic_signed_table_equal_entry_transport (w)
  8. L47
    apply arithmetic_signed_table_equal_entry_transport
  9. L48
    exact he_witness_left_left
  10. L49
    exact he_witness_right
19Use earlier factsL50–57

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

  1. L50
    specialize zero_le (S N)
  2. L51
    apply zero_le
  3. L52
    specialize succ_le_succ (0)
  4. L53
    specialize succ_le_succ (N)
  5. L54
    apply succ_le_succ
  6. L55
    specialize zero_le (N)
  7. L56
    apply zero_le
  8. L57
    exact hp_witness_right

Library-wide reading audit

Original exact command ledger · 57 lines
  1. 0001intro N
  2. 0002induction N
  3. 0003intro w
  4. 0004have hz : exists F. (exists dst_positive_code_base_actual dst_positive_scale_base_actual dst_negative_code_base_actual dst_negative_scale_base_actual. (((F) = (((((dst_positive_code_base_actual) + (dst_positive_scale_base_actual)) * S ((dst_positive_code_base_actual) + (dst_positive_scale_base_actual)) + ((dst_positive_scale_base_actual) + (dst_positive_scale_base_actual))) + (((dst_negative_code_base_actual) + (dst_negative_scale_base_actual)) * S ((dst_negative_code_base_actual) + (dst_negative_scale_base_actual)) + ((dst_negative_scale_base_actual) + (dst_negative_scale_base_actual)))) * S ((((dst_positive_code_base_actual) + (dst_positive_scale_base_actual)) * S ((dst_positive_code_base_actual) + (dst_positive_scale_base_actual)) + ((dst_positive_scale_base_actual) + (dst_positive_scale_base_actual))) + (((dst_negative_code_base_actual) + (dst_negative_scale_base_actual)) * S ((dst_negative_code_base_actual) + (dst_negative_scale_base_actual)) + ((dst_negative_scale_base_actual) + (dst_negative_scale_base_actual)))) + ((((dst_negative_code_base_actual) + (dst_negative_scale_base_actual)) * S ((dst_negative_code_base_actual) + (dst_negative_scale_base_actual)) + ((dst_negative_scale_base_actual) + (dst_negative_scale_base_actual))) + (((dst_negative_code_base_actual) + (dst_negative_scale_base_actual)) * S ((dst_negative_code_base_actual) + (dst_negative_scale_base_actual)) + ((dst_negative_scale_base_actual) + (dst_negative_scale_base_actual)))))) /\ (forall dst_index_base_actual. (exists pvs_le_gap_base_actualdomain. pvs_le_gap_base_actualdomain + (dst_index_base_actual) = (0)) -> exists dst_positive_base_actual dst_negative_base_actual dst_value_base_actual. ((((exists ff_h_pvs_base_actualentrypositive. ff_h_pvs_base_actualentrypositive + S (dst_positive_base_actual) = S ((S (dst_index_base_actual)) * dst_positive_scale_base_actual)) /\ exists ff_q_pvs_base_actualentrypositive. dst_positive_code_base_actual = ff_q_pvs_base_actualentrypositive * S ((S (dst_index_base_actual)) * dst_positive_scale_base_actual) + (dst_positive_base_actual))) /\ (((((exists ff_h_pvs_base_actualentrynegative. ff_h_pvs_base_actualentrynegative + S (dst_negative_base_actual) = S ((S (dst_index_base_actual)) * dst_negative_scale_base_actual)) /\ exists ff_q_pvs_base_actualentrynegative. dst_negative_code_base_actual = ff_q_pvs_base_actualentrynegative * S ((S (dst_index_base_actual)) * dst_negative_scale_base_actual) + (dst_negative_base_actual))) /\ (exists ge_balance_positive_base_actualentryvalue ge_balance_negative_base_actualentryvalue. (((((dst_value_base_actual) = 2 * (ge_balance_positive_base_actualentryvalue) /\ (ge_balance_negative_base_actualentryvalue) = 0) \/ exists ge_signed_half_base_actualentryvaluedecode. (((dst_value_base_actual) = 2 * ge_signed_half_base_actualentryvaluedecode + 1 /\ (ge_balance_positive_base_actualentryvalue) = 0) /\ (ge_balance_negative_base_actualentryvalue) = S ge_signed_half_base_actualentryvaluedecode))) /\ ((dst_positive_base_actual) + ge_balance_negative_base_actualentryvalue = (dst_negative_base_actual) + ge_balance_positive_base_actualentryvalue))))))))) /\ (exists dst_positive_code_base_zero dst_positive_scale_base_zero dst_negative_code_base_zero dst_negative_scale_base_zero dst_positive_base_zero dst_negative_base_zero. (((F) = (((((dst_positive_code_base_zero) + (dst_positive_scale_base_zero)) * S ((dst_positive_code_base_zero) + (dst_positive_scale_base_zero)) + ((dst_positive_scale_base_zero) + (dst_positive_scale_base_zero))) + (((dst_negative_code_base_zero) + (dst_negative_scale_base_zero)) * S ((dst_negative_code_base_zero) + (dst_negative_scale_base_zero)) + ((dst_negative_scale_base_zero) + (dst_negative_scale_base_zero)))) * S ((((dst_positive_code_base_zero) + (dst_positive_scale_base_zero)) * S ((dst_positive_code_base_zero) + (dst_positive_scale_base_zero)) + ((dst_positive_scale_base_zero) + (dst_positive_scale_base_zero))) + (((dst_negative_code_base_zero) + (dst_negative_scale_base_zero)) * S ((dst_negative_code_base_zero) + (dst_negative_scale_base_zero)) + ((dst_negative_scale_base_zero) + (dst_negative_scale_base_zero)))) + ((((dst_negative_code_base_zero) + (dst_negative_scale_base_zero)) * S ((dst_negative_code_base_zero) + (dst_negative_scale_base_zero)) + ((dst_negative_scale_base_zero) + (dst_negative_scale_base_zero))) + (((dst_negative_code_base_zero) + (dst_negative_scale_base_zero)) * S ((dst_negative_code_base_zero) + (dst_negative_scale_base_zero)) + ((dst_negative_scale_base_zero) + (dst_negative_scale_base_zero)))))) /\ (((((exists ff_h_pvs_base_zeropositive. ff_h_pvs_base_zeropositive + S (dst_positive_base_zero) = S ((S (0)) * dst_positive_scale_base_zero)) /\ exists ff_q_pvs_base_zeropositive. dst_positive_code_base_zero = ff_q_pvs_base_zeropositive * S ((S (0)) * dst_positive_scale_base_zero) + (dst_positive_base_zero))) /\ (((((exists ff_h_pvs_base_zeronegative. ff_h_pvs_base_zeronegative + S (dst_negative_base_zero) = S ((S (0)) * dst_negative_scale_base_zero)) /\ exists ff_q_pvs_base_zeronegative. dst_negative_code_base_zero = ff_q_pvs_base_zeronegative * S ((S (0)) * dst_negative_scale_base_zero) + (dst_negative_base_zero))) /\ (exists ge_balance_positive_base_zerovalue ge_balance_negative_base_zerovalue. (((((w) = 2 * (ge_balance_positive_base_zerovalue) /\ (ge_balance_negative_base_zerovalue) = 0) \/ exists ge_signed_half_base_zerovaluedecode. (((w) = 2 * ge_signed_half_base_zerovaluedecode + 1 /\ (ge_balance_positive_base_zerovalue) = 0) /\ (ge_balance_negative_base_zerovalue) = S ge_signed_half_base_zerovaluedecode))) /\ ((dst_positive_base_zero) + ge_balance_negative_base_zerovalue = (dst_negative_base_zero) + ge_balance_positive_base_zerovalue)))))))))
  5. 0005specialize arithmetic_signed_table_singleton (w)
  6. 0006apply arithmetic_signed_table_singleton
  7. 0007cases hz
  8. 0008cases hz_witness
  9. 0009exists x
  10. 0010split
  11. 0011split
  12. 0012exact hz_witness_left
  13. 0013intro i
  14. 0014intro z
  15. 0015intro hi
  16. 0016intro hb
  17. 0017intro he
  18. 0018exfalso
  19. 0019apply hi
  20. 0020specialize le_zero (i)
  21. 0021apply le_zero
  22. 0022exact hb
  23. 0023exact hz_witness_right
  24. 0024intro w
  25. 0025have hp : exists F. (((((exists dst_positive_code_exists_previoustable dst_positive_scale_exists_previoustable dst_negative_code_exists_previoustable dst_negative_scale_exists_previoustable. (((F) = (((((dst_positive_code_exists_previoustable) + (dst_positive_scale_exists_previoustable)) * S ((dst_positive_code_exists_previoustable) + (dst_positive_scale_exists_previoustable)) + ((dst_positive_scale_exists_previoustable) + (dst_positive_scale_exists_previoustable))) + (((dst_negative_code_exists_previoustable) + (dst_negative_scale_exists_previoustable)) * S ((dst_negative_code_exists_previoustable) + (dst_negative_scale_exists_previoustable)) + ((dst_negative_scale_exists_previoustable) + (dst_negative_scale_exists_previoustable)))) * S ((((dst_positive_code_exists_previoustable) + (dst_positive_scale_exists_previoustable)) * S ((dst_positive_code_exists_previoustable) + (dst_positive_scale_exists_previoustable)) + ((dst_positive_scale_exists_previoustable) + (dst_positive_scale_exists_previoustable))) + (((dst_negative_code_exists_previoustable) + (dst_negative_scale_exists_previoustable)) * S ((dst_negative_code_exists_previoustable) + (dst_negative_scale_exists_previoustable)) + ((dst_negative_scale_exists_previoustable) + (dst_negative_scale_exists_previoustable)))) + ((((dst_negative_code_exists_previoustable) + (dst_negative_scale_exists_previoustable)) * S ((dst_negative_code_exists_previoustable) + (dst_negative_scale_exists_previoustable)) + ((dst_negative_scale_exists_previoustable) + (dst_negative_scale_exists_previoustable))) + (((dst_negative_code_exists_previoustable) + (dst_negative_scale_exists_previoustable)) * S ((dst_negative_code_exists_previoustable) + (dst_negative_scale_exists_previoustable)) + ((dst_negative_scale_exists_previoustable) + (dst_negative_scale_exists_previoustable)))))) /\ (forall dst_index_exists_previoustable. (exists pvs_le_gap_exists_previoustabledomain. pvs_le_gap_exists_previoustabledomain + (dst_index_exists_previoustable) = (N)) -> exists dst_positive_exists_previoustable dst_negative_exists_previoustable dst_value_exists_previoustable. ((((exists ff_h_pvs_exists_previoustableentrypositive. ff_h_pvs_exists_previoustableentrypositive + S (dst_positive_exists_previoustable) = S ((S (dst_index_exists_previoustable)) * dst_positive_scale_exists_previoustable)) /\ exists ff_q_pvs_exists_previoustableentrypositive. dst_positive_code_exists_previoustable = ff_q_pvs_exists_previoustableentrypositive * S ((S (dst_index_exists_previoustable)) * dst_positive_scale_exists_previoustable) + (dst_positive_exists_previoustable))) /\ (((((exists ff_h_pvs_exists_previoustableentrynegative. ff_h_pvs_exists_previoustableentrynegative + S (dst_negative_exists_previoustable) = S ((S (dst_index_exists_previoustable)) * dst_negative_scale_exists_previoustable)) /\ exists ff_q_pvs_exists_previoustableentrynegative. dst_negative_code_exists_previoustable = ff_q_pvs_exists_previoustableentrynegative * S ((S (dst_index_exists_previoustable)) * dst_negative_scale_exists_previoustable) + (dst_negative_exists_previoustable))) /\ (exists ge_balance_positive_exists_previoustableentryvalue ge_balance_negative_exists_previoustableentryvalue. (((((dst_value_exists_previoustable) = 2 * (ge_balance_positive_exists_previoustableentryvalue) /\ (ge_balance_negative_exists_previoustableentryvalue) = 0) \/ exists ge_signed_half_exists_previoustableentryvaluedecode. (((dst_value_exists_previoustable) = 2 * ge_signed_half_exists_previoustableentryvaluedecode + 1 /\ (ge_balance_positive_exists_previoustableentryvalue) = 0) /\ (ge_balance_negative_exists_previoustableentryvalue) = S ge_signed_half_exists_previoustableentryvaluedecode))) /\ ((dst_positive_exists_previoustable) + ge_balance_negative_exists_previoustableentryvalue = (dst_negative_exists_previoustable) + ge_balance_positive_exists_previoustableentryvalue))))))))) /\ (forall du_index_exists_previous du_value_exists_previous. ~(du_index_exists_previous=0) -> (exists pvs_le_gap_exists_previousbound. pvs_le_gap_exists_previousbound + (du_index_exists_previous) = (N)) -> (exists dst_positive_code_exists_previousentry dst_positive_scale_exists_previousentry dst_negative_code_exists_previousentry dst_negative_scale_exists_previousentry dst_positive_exists_previousentry dst_negative_exists_previousentry. (((F) = (((((dst_positive_code_exists_previousentry) + (dst_positive_scale_exists_previousentry)) * S ((dst_positive_code_exists_previousentry) + (dst_positive_scale_exists_previousentry)) + ((dst_positive_scale_exists_previousentry) + (dst_positive_scale_exists_previousentry))) + (((dst_negative_code_exists_previousentry) + (dst_negative_scale_exists_previousentry)) * S ((dst_negative_code_exists_previousentry) + (dst_negative_scale_exists_previousentry)) + ((dst_negative_scale_exists_previousentry) + (dst_negative_scale_exists_previousentry)))) * S ((((dst_positive_code_exists_previousentry) + (dst_positive_scale_exists_previousentry)) * S ((dst_positive_code_exists_previousentry) + (dst_positive_scale_exists_previousentry)) + ((dst_positive_scale_exists_previousentry) + (dst_positive_scale_exists_previousentry))) + (((dst_negative_code_exists_previousentry) + (dst_negative_scale_exists_previousentry)) * S ((dst_negative_code_exists_previousentry) + (dst_negative_scale_exists_previousentry)) + ((dst_negative_scale_exists_previousentry) + (dst_negative_scale_exists_previousentry)))) + ((((dst_negative_code_exists_previousentry) + (dst_negative_scale_exists_previousentry)) * S ((dst_negative_code_exists_previousentry) + (dst_negative_scale_exists_previousentry)) + ((dst_negative_scale_exists_previousentry) + (dst_negative_scale_exists_previousentry))) + (((dst_negative_code_exists_previousentry) + (dst_negative_scale_exists_previousentry)) * S ((dst_negative_code_exists_previousentry) + (dst_negative_scale_exists_previousentry)) + ((dst_negative_scale_exists_previousentry) + (dst_negative_scale_exists_previousentry)))))) /\ (((((exists ff_h_pvs_exists_previousentrypositive. ff_h_pvs_exists_previousentrypositive + S (dst_positive_exists_previousentry) = S ((S (du_index_exists_previous)) * dst_positive_scale_exists_previousentry)) /\ exists ff_q_pvs_exists_previousentrypositive. dst_positive_code_exists_previousentry = ff_q_pvs_exists_previousentrypositive * S ((S (du_index_exists_previous)) * dst_positive_scale_exists_previousentry) + (dst_positive_exists_previousentry))) /\ (((((exists ff_h_pvs_exists_previousentrynegative. ff_h_pvs_exists_previousentrynegative + S (dst_negative_exists_previousentry) = S ((S (du_index_exists_previous)) * dst_negative_scale_exists_previousentry)) /\ exists ff_q_pvs_exists_previousentrynegative. dst_negative_code_exists_previousentry = ff_q_pvs_exists_previousentrynegative * S ((S (du_index_exists_previous)) * dst_negative_scale_exists_previousentry) + (dst_negative_exists_previousentry))) /\ (exists ge_balance_positive_exists_previousentryvalue ge_balance_negative_exists_previousentryvalue. (((((du_value_exists_previous) = 2 * (ge_balance_positive_exists_previousentryvalue) /\ (ge_balance_negative_exists_previousentryvalue) = 0) \/ exists ge_signed_half_exists_previousentryvaluedecode. (((du_value_exists_previous) = 2 * ge_signed_half_exists_previousentryvaluedecode + 1 /\ (ge_balance_positive_exists_previousentryvalue) = 0) /\ (ge_balance_negative_exists_previousentryvalue) = S ge_signed_half_exists_previousentryvaluedecode))) /\ ((dst_positive_exists_previousentry) + ge_balance_negative_exists_previousentryvalue = (dst_negative_exists_previousentry) + ge_balance_positive_exists_previousentryvalue))))))))) -> du_value_exists_previous=2))) /\ (exists dst_positive_code_exists_zero dst_positive_scale_exists_zero dst_negative_code_exists_zero dst_negative_scale_exists_zero dst_positive_exists_zero dst_negative_exists_zero. (((F) = (((((dst_positive_code_exists_zero) + (dst_positive_scale_exists_zero)) * S ((dst_positive_code_exists_zero) + (dst_positive_scale_exists_zero)) + ((dst_positive_scale_exists_zero) + (dst_positive_scale_exists_zero))) + (((dst_negative_code_exists_zero) + (dst_negative_scale_exists_zero)) * S ((dst_negative_code_exists_zero) + (dst_negative_scale_exists_zero)) + ((dst_negative_scale_exists_zero) + (dst_negative_scale_exists_zero)))) * S ((((dst_positive_code_exists_zero) + (dst_positive_scale_exists_zero)) * S ((dst_positive_code_exists_zero) + (dst_positive_scale_exists_zero)) + ((dst_positive_scale_exists_zero) + (dst_positive_scale_exists_zero))) + (((dst_negative_code_exists_zero) + (dst_negative_scale_exists_zero)) * S ((dst_negative_code_exists_zero) + (dst_negative_scale_exists_zero)) + ((dst_negative_scale_exists_zero) + (dst_negative_scale_exists_zero)))) + ((((dst_negative_code_exists_zero) + (dst_negative_scale_exists_zero)) * S ((dst_negative_code_exists_zero) + (dst_negative_scale_exists_zero)) + ((dst_negative_scale_exists_zero) + (dst_negative_scale_exists_zero))) + (((dst_negative_code_exists_zero) + (dst_negative_scale_exists_zero)) * S ((dst_negative_code_exists_zero) + (dst_negative_scale_exists_zero)) + ((dst_negative_scale_exists_zero) + (dst_negative_scale_exists_zero)))))) /\ (((((exists ff_h_pvs_exists_zeropositive. ff_h_pvs_exists_zeropositive + S (dst_positive_exists_zero) = S ((S (0)) * dst_positive_scale_exists_zero)) /\ exists ff_q_pvs_exists_zeropositive. dst_positive_code_exists_zero = ff_q_pvs_exists_zeropositive * S ((S (0)) * dst_positive_scale_exists_zero) + (dst_positive_exists_zero))) /\ (((((exists ff_h_pvs_exists_zeronegative. ff_h_pvs_exists_zeronegative + S (dst_negative_exists_zero) = S ((S (0)) * dst_negative_scale_exists_zero)) /\ exists ff_q_pvs_exists_zeronegative. dst_negative_code_exists_zero = ff_q_pvs_exists_zeronegative * S ((S (0)) * dst_negative_scale_exists_zero) + (dst_negative_exists_zero))) /\ (exists ge_balance_positive_exists_zerovalue ge_balance_negative_exists_zerovalue. (((((w) = 2 * (ge_balance_positive_exists_zerovalue) /\ (ge_balance_negative_exists_zerovalue) = 0) \/ exists ge_signed_half_exists_zerovaluedecode. (((w) = 2 * ge_signed_half_exists_zerovaluedecode + 1 /\ (ge_balance_positive_exists_zerovalue) = 0) /\ (ge_balance_negative_exists_zerovalue) = S ge_signed_half_exists_zerovaluedecode))) /\ ((dst_positive_exists_zero) + ge_balance_negative_exists_zerovalue = (dst_negative_exists_zero) + ge_balance_positive_exists_zerovalue)))))))))))
  26. 0026specialize IH (w)
  27. 0027apply IH
  28. 0028cases hp
  29. 0029cases hp_witness
  30. 0030have he : exists G. (((((exists dst_positive_code_exists_nexttable dst_positive_scale_exists_nexttable dst_negative_code_exists_nexttable dst_negative_scale_exists_nexttable. (((G) = (((((dst_positive_code_exists_nexttable) + (dst_positive_scale_exists_nexttable)) * S ((dst_positive_code_exists_nexttable) + (dst_positive_scale_exists_nexttable)) + ((dst_positive_scale_exists_nexttable) + (dst_positive_scale_exists_nexttable))) + (((dst_negative_code_exists_nexttable) + (dst_negative_scale_exists_nexttable)) * S ((dst_negative_code_exists_nexttable) + (dst_negative_scale_exists_nexttable)) + ((dst_negative_scale_exists_nexttable) + (dst_negative_scale_exists_nexttable)))) * S ((((dst_positive_code_exists_nexttable) + (dst_positive_scale_exists_nexttable)) * S ((dst_positive_code_exists_nexttable) + (dst_positive_scale_exists_nexttable)) + ((dst_positive_scale_exists_nexttable) + (dst_positive_scale_exists_nexttable))) + (((dst_negative_code_exists_nexttable) + (dst_negative_scale_exists_nexttable)) * S ((dst_negative_code_exists_nexttable) + (dst_negative_scale_exists_nexttable)) + ((dst_negative_scale_exists_nexttable) + (dst_negative_scale_exists_nexttable)))) + ((((dst_negative_code_exists_nexttable) + (dst_negative_scale_exists_nexttable)) * S ((dst_negative_code_exists_nexttable) + (dst_negative_scale_exists_nexttable)) + ((dst_negative_scale_exists_nexttable) + (dst_negative_scale_exists_nexttable))) + (((dst_negative_code_exists_nexttable) + (dst_negative_scale_exists_nexttable)) * S ((dst_negative_code_exists_nexttable) + (dst_negative_scale_exists_nexttable)) + ((dst_negative_scale_exists_nexttable) + (dst_negative_scale_exists_nexttable)))))) /\ (forall dst_index_exists_nexttable. (exists pvs_le_gap_exists_nexttabledomain. pvs_le_gap_exists_nexttabledomain + (dst_index_exists_nexttable) = (S N)) -> exists dst_positive_exists_nexttable dst_negative_exists_nexttable dst_value_exists_nexttable. ((((exists ff_h_pvs_exists_nexttableentrypositive. ff_h_pvs_exists_nexttableentrypositive + S (dst_positive_exists_nexttable) = S ((S (dst_index_exists_nexttable)) * dst_positive_scale_exists_nexttable)) /\ exists ff_q_pvs_exists_nexttableentrypositive. dst_positive_code_exists_nexttable = ff_q_pvs_exists_nexttableentrypositive * S ((S (dst_index_exists_nexttable)) * dst_positive_scale_exists_nexttable) + (dst_positive_exists_nexttable))) /\ (((((exists ff_h_pvs_exists_nexttableentrynegative. ff_h_pvs_exists_nexttableentrynegative + S (dst_negative_exists_nexttable) = S ((S (dst_index_exists_nexttable)) * dst_negative_scale_exists_nexttable)) /\ exists ff_q_pvs_exists_nexttableentrynegative. dst_negative_code_exists_nexttable = ff_q_pvs_exists_nexttableentrynegative * S ((S (dst_index_exists_nexttable)) * dst_negative_scale_exists_nexttable) + (dst_negative_exists_nexttable))) /\ (exists ge_balance_positive_exists_nexttableentryvalue ge_balance_negative_exists_nexttableentryvalue. (((((dst_value_exists_nexttable) = 2 * (ge_balance_positive_exists_nexttableentryvalue) /\ (ge_balance_negative_exists_nexttableentryvalue) = 0) \/ exists ge_signed_half_exists_nexttableentryvaluedecode. (((dst_value_exists_nexttable) = 2 * ge_signed_half_exists_nexttableentryvaluedecode + 1 /\ (ge_balance_positive_exists_nexttableentryvalue) = 0) /\ (ge_balance_negative_exists_nexttableentryvalue) = S ge_signed_half_exists_nexttableentryvaluedecode))) /\ ((dst_positive_exists_nexttable) + ge_balance_negative_exists_nexttableentryvalue = (dst_negative_exists_nexttable) + ge_balance_positive_exists_nexttableentryvalue))))))))) /\ (forall du_index_exists_next du_value_exists_next. ~(du_index_exists_next=0) -> (exists pvs_le_gap_exists_nextbound. pvs_le_gap_exists_nextbound + (du_index_exists_next) = (S N)) -> (exists dst_positive_code_exists_nextentry dst_positive_scale_exists_nextentry dst_negative_code_exists_nextentry dst_negative_scale_exists_nextentry dst_positive_exists_nextentry dst_negative_exists_nextentry. (((G) = (((((dst_positive_code_exists_nextentry) + (dst_positive_scale_exists_nextentry)) * S ((dst_positive_code_exists_nextentry) + (dst_positive_scale_exists_nextentry)) + ((dst_positive_scale_exists_nextentry) + (dst_positive_scale_exists_nextentry))) + (((dst_negative_code_exists_nextentry) + (dst_negative_scale_exists_nextentry)) * S ((dst_negative_code_exists_nextentry) + (dst_negative_scale_exists_nextentry)) + ((dst_negative_scale_exists_nextentry) + (dst_negative_scale_exists_nextentry)))) * S ((((dst_positive_code_exists_nextentry) + (dst_positive_scale_exists_nextentry)) * S ((dst_positive_code_exists_nextentry) + (dst_positive_scale_exists_nextentry)) + ((dst_positive_scale_exists_nextentry) + (dst_positive_scale_exists_nextentry))) + (((dst_negative_code_exists_nextentry) + (dst_negative_scale_exists_nextentry)) * S ((dst_negative_code_exists_nextentry) + (dst_negative_scale_exists_nextentry)) + ((dst_negative_scale_exists_nextentry) + (dst_negative_scale_exists_nextentry)))) + ((((dst_negative_code_exists_nextentry) + (dst_negative_scale_exists_nextentry)) * S ((dst_negative_code_exists_nextentry) + (dst_negative_scale_exists_nextentry)) + ((dst_negative_scale_exists_nextentry) + (dst_negative_scale_exists_nextentry))) + (((dst_negative_code_exists_nextentry) + (dst_negative_scale_exists_nextentry)) * S ((dst_negative_code_exists_nextentry) + (dst_negative_scale_exists_nextentry)) + ((dst_negative_scale_exists_nextentry) + (dst_negative_scale_exists_nextentry)))))) /\ (((((exists ff_h_pvs_exists_nextentrypositive. ff_h_pvs_exists_nextentrypositive + S (dst_positive_exists_nextentry) = S ((S (du_index_exists_next)) * dst_positive_scale_exists_nextentry)) /\ exists ff_q_pvs_exists_nextentrypositive. dst_positive_code_exists_nextentry = ff_q_pvs_exists_nextentrypositive * S ((S (du_index_exists_next)) * dst_positive_scale_exists_nextentry) + (dst_positive_exists_nextentry))) /\ (((((exists ff_h_pvs_exists_nextentrynegative. ff_h_pvs_exists_nextentrynegative + S (dst_negative_exists_nextentry) = S ((S (du_index_exists_next)) * dst_negative_scale_exists_nextentry)) /\ exists ff_q_pvs_exists_nextentrynegative. dst_negative_code_exists_nextentry = ff_q_pvs_exists_nextentrynegative * S ((S (du_index_exists_next)) * dst_negative_scale_exists_nextentry) + (dst_negative_exists_nextentry))) /\ (exists ge_balance_positive_exists_nextentryvalue ge_balance_negative_exists_nextentryvalue. (((((du_value_exists_next) = 2 * (ge_balance_positive_exists_nextentryvalue) /\ (ge_balance_negative_exists_nextentryvalue) = 0) \/ exists ge_signed_half_exists_nextentryvaluedecode. (((du_value_exists_next) = 2 * ge_signed_half_exists_nextentryvaluedecode + 1 /\ (ge_balance_positive_exists_nextentryvalue) = 0) /\ (ge_balance_negative_exists_nextentryvalue) = S ge_signed_half_exists_nextentryvaluedecode))) /\ ((dst_positive_exists_nextentry) + ge_balance_negative_exists_nextentryvalue = (dst_negative_exists_nextentry) + ge_balance_positive_exists_nextentryvalue))))))))) -> du_value_exists_next=2))) /\ (forall dst_index_exists_preserved dst_first_exists_preserved dst_second_exists_preserved. (exists pvs_gap_exists_preservedbound. pvs_gap_exists_preservedbound + S (dst_index_exists_preserved) = (S N)) -> (exists dst_positive_code_exists_preservedfirst dst_positive_scale_exists_preservedfirst dst_negative_code_exists_preservedfirst dst_negative_scale_exists_preservedfirst dst_positive_exists_preservedfirst dst_negative_exists_preservedfirst. (((x) = (((((dst_positive_code_exists_preservedfirst) + (dst_positive_scale_exists_preservedfirst)) * S ((dst_positive_code_exists_preservedfirst) + (dst_positive_scale_exists_preservedfirst)) + ((dst_positive_scale_exists_preservedfirst) + (dst_positive_scale_exists_preservedfirst))) + (((dst_negative_code_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)) * S ((dst_negative_code_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)) + ((dst_negative_scale_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)))) * S ((((dst_positive_code_exists_preservedfirst) + (dst_positive_scale_exists_preservedfirst)) * S ((dst_positive_code_exists_preservedfirst) + (dst_positive_scale_exists_preservedfirst)) + ((dst_positive_scale_exists_preservedfirst) + (dst_positive_scale_exists_preservedfirst))) + (((dst_negative_code_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)) * S ((dst_negative_code_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)) + ((dst_negative_scale_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)))) + ((((dst_negative_code_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)) * S ((dst_negative_code_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)) + ((dst_negative_scale_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst))) + (((dst_negative_code_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)) * S ((dst_negative_code_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)) + ((dst_negative_scale_exists_preservedfirst) + (dst_negative_scale_exists_preservedfirst)))))) /\ (((((exists ff_h_pvs_exists_preservedfirstpositive. ff_h_pvs_exists_preservedfirstpositive + S (dst_positive_exists_preservedfirst) = S ((S (dst_index_exists_preserved)) * dst_positive_scale_exists_preservedfirst)) /\ exists ff_q_pvs_exists_preservedfirstpositive. dst_positive_code_exists_preservedfirst = ff_q_pvs_exists_preservedfirstpositive * S ((S (dst_index_exists_preserved)) * dst_positive_scale_exists_preservedfirst) + (dst_positive_exists_preservedfirst))) /\ (((((exists ff_h_pvs_exists_preservedfirstnegative. ff_h_pvs_exists_preservedfirstnegative + S (dst_negative_exists_preservedfirst) = S ((S (dst_index_exists_preserved)) * dst_negative_scale_exists_preservedfirst)) /\ exists ff_q_pvs_exists_preservedfirstnegative. dst_negative_code_exists_preservedfirst = ff_q_pvs_exists_preservedfirstnegative * S ((S (dst_index_exists_preserved)) * dst_negative_scale_exists_preservedfirst) + (dst_negative_exists_preservedfirst))) /\ (exists ge_balance_positive_exists_preservedfirstvalue ge_balance_negative_exists_preservedfirstvalue. (((((dst_first_exists_preserved) = 2 * (ge_balance_positive_exists_preservedfirstvalue) /\ (ge_balance_negative_exists_preservedfirstvalue) = 0) \/ exists ge_signed_half_exists_preservedfirstvaluedecode. (((dst_first_exists_preserved) = 2 * ge_signed_half_exists_preservedfirstvaluedecode + 1 /\ (ge_balance_positive_exists_preservedfirstvalue) = 0) /\ (ge_balance_negative_exists_preservedfirstvalue) = S ge_signed_half_exists_preservedfirstvaluedecode))) /\ ((dst_positive_exists_preservedfirst) + ge_balance_negative_exists_preservedfirstvalue = (dst_negative_exists_preservedfirst) + ge_balance_positive_exists_preservedfirstvalue))))))))) -> (exists dst_positive_code_exists_preservedsecond dst_positive_scale_exists_preservedsecond dst_negative_code_exists_preservedsecond dst_negative_scale_exists_preservedsecond dst_positive_exists_preservedsecond dst_negative_exists_preservedsecond. (((G) = (((((dst_positive_code_exists_preservedsecond) + (dst_positive_scale_exists_preservedsecond)) * S ((dst_positive_code_exists_preservedsecond) + (dst_positive_scale_exists_preservedsecond)) + ((dst_positive_scale_exists_preservedsecond) + (dst_positive_scale_exists_preservedsecond))) + (((dst_negative_code_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)) * S ((dst_negative_code_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)) + ((dst_negative_scale_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)))) * S ((((dst_positive_code_exists_preservedsecond) + (dst_positive_scale_exists_preservedsecond)) * S ((dst_positive_code_exists_preservedsecond) + (dst_positive_scale_exists_preservedsecond)) + ((dst_positive_scale_exists_preservedsecond) + (dst_positive_scale_exists_preservedsecond))) + (((dst_negative_code_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)) * S ((dst_negative_code_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)) + ((dst_negative_scale_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)))) + ((((dst_negative_code_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)) * S ((dst_negative_code_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)) + ((dst_negative_scale_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond))) + (((dst_negative_code_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)) * S ((dst_negative_code_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)) + ((dst_negative_scale_exists_preservedsecond) + (dst_negative_scale_exists_preservedsecond)))))) /\ (((((exists ff_h_pvs_exists_preservedsecondpositive. ff_h_pvs_exists_preservedsecondpositive + S (dst_positive_exists_preservedsecond) = S ((S (dst_index_exists_preserved)) * dst_positive_scale_exists_preservedsecond)) /\ exists ff_q_pvs_exists_preservedsecondpositive. dst_positive_code_exists_preservedsecond = ff_q_pvs_exists_preservedsecondpositive * S ((S (dst_index_exists_preserved)) * dst_positive_scale_exists_preservedsecond) + (dst_positive_exists_preservedsecond))) /\ (((((exists ff_h_pvs_exists_preservedsecondnegative. ff_h_pvs_exists_preservedsecondnegative + S (dst_negative_exists_preservedsecond) = S ((S (dst_index_exists_preserved)) * dst_negative_scale_exists_preservedsecond)) /\ exists ff_q_pvs_exists_preservedsecondnegative. dst_negative_code_exists_preservedsecond = ff_q_pvs_exists_preservedsecondnegative * S ((S (dst_index_exists_preserved)) * dst_negative_scale_exists_preservedsecond) + (dst_negative_exists_preservedsecond))) /\ (exists ge_balance_positive_exists_preservedsecondvalue ge_balance_negative_exists_preservedsecondvalue. (((((dst_second_exists_preserved) = 2 * (ge_balance_positive_exists_preservedsecondvalue) /\ (ge_balance_negative_exists_preservedsecondvalue) = 0) \/ exists ge_signed_half_exists_preservedsecondvaluedecode. (((dst_second_exists_preserved) = 2 * ge_signed_half_exists_preservedsecondvaluedecode + 1 /\ (ge_balance_positive_exists_preservedsecondvalue) = 0) /\ (ge_balance_negative_exists_preservedsecondvalue) = S ge_signed_half_exists_preservedsecondvaluedecode))) /\ ((dst_positive_exists_preservedsecond) + ge_balance_negative_exists_preservedsecondvalue = (dst_negative_exists_preservedsecond) + ge_balance_positive_exists_preservedsecondvalue))))))))) -> dst_first_exists_preserved = dst_second_exists_preserved)))
  31. 0031specialize dirichlet_constant_one_table_append (N)
  32. 0032specialize dirichlet_constant_one_table_append (x)
  33. 0033apply dirichlet_constant_one_table_append
  34. 0034exact hp_witness_left
  35. 0035cases he
  36. 0036cases he_witness
  37. 0037cases he_witness_left
  38. 0038exists x1
  39. 0039split
  40. 0040exact he_witness_left
  41. 0041specialize arithmetic_signed_table_equal_entry_transport (S N)
  42. 0042specialize arithmetic_signed_table_equal_entry_transport (x)
  43. 0043specialize arithmetic_signed_table_equal_entry_transport (x1)
  44. 0044specialize arithmetic_signed_table_equal_entry_transport (S N)
  45. 0045specialize arithmetic_signed_table_equal_entry_transport (0)
  46. 0046specialize arithmetic_signed_table_equal_entry_transport (w)
  47. 0047apply arithmetic_signed_table_equal_entry_transport
  48. 0048exact he_witness_left_left
  49. 0049exact he_witness_right
  50. 0050specialize zero_le (S N)
  51. 0051apply zero_le
  52. 0052specialize succ_le_succ (0)
  53. 0053specialize succ_le_succ (N)
  54. 0054apply succ_le_succ
  55. 0055specialize zero_le (N)
  56. 0056apply zero_le
  57. 0057exact hp_witness_right