Current library: Alpha v34, 4,223 checked-use theorems; Stable remains 432. Historical first admissions, original proof editions, and non-admitted aliases are preserved. Exact original first-admission records.
Statement with defined notation
∀ p. ∀ r. ∀ d. ∀ e. ∀ C. Lt(d,p) → ¬r = 0 → Choose(p · 0 + d,p · r + e,C) → C = 0Every purple notation token opens its conservative definition. This reading surface never changes the unchanged intuitionistic kernel or confers checked-use authority.
Definitions used by this theorem
In the theorem statement
In local proof propositions
Exact expanded first-order statement
forall p r d e C. (exists lbd_gap_zero_upper_bound. lbd_gap_zero_upper_bound + S (d) = (p)) -> ~(r = 0) -> (((exists bcf_lt_gap_lucas_block_digit_zero_upper_choose_out_of_range. bcf_lt_gap_lucas_block_digit_zero_upper_choose_out_of_range + S (p * 0 + d) = p * r + e) /\ C = 0) \/ ((exists bcf_le_gap_lucas_block_digit_zero_upper_choose_in_range. bcf_le_gap_lucas_block_digit_zero_upper_choose_in_range + (p * r + e) = p * 0 + d) /\ (exists bcf_row_code_code_lucas_block_digit_zero_upper_choose bcf_row_code_scale_lucas_block_digit_zero_upper_choose bcf_row_scale_code_lucas_block_digit_zero_upper_choose bcf_row_scale_scale_lucas_block_digit_zero_upper_choose bcf_row_code_lucas_block_digit_zero_upper_choose bcf_row_scale_lucas_block_digit_zero_upper_choose. ((forall bcf_row_index_lucas_block_digit_zero_upper_choose_table. (exists bcf_lt_gap_lucas_block_digit_zero_upper_choose_table_row_bound. bcf_lt_gap_lucas_block_digit_zero_upper_choose_table_row_bound + S (bcf_row_index_lucas_block_digit_zero_upper_choose_table) = S (p * 0 + d)) -> exists bcf_row_code_lucas_block_digit_zero_upper_choose_table bcf_row_scale_lucas_block_digit_zero_upper_choose_table. ((((exists bcf_height_lucas_block_digit_zero_upper_choose_table_decoded_row_code. bcf_height_lucas_block_digit_zero_upper_choose_table_decoded_row_code + S (bcf_row_code_lucas_block_digit_zero_upper_choose_table) = S ((S (bcf_row_index_lucas_block_digit_zero_upper_choose_table)) * bcf_row_code_scale_lucas_block_digit_zero_upper_choose)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_table_decoded_row_code. bcf_row_code_code_lucas_block_digit_zero_upper_choose = bcf_quotient_lucas_block_digit_zero_upper_choose_table_decoded_row_code * S ((S (bcf_row_index_lucas_block_digit_zero_upper_choose_table)) * bcf_row_code_scale_lucas_block_digit_zero_upper_choose) + (bcf_row_code_lucas_block_digit_zero_upper_choose_table))) /\ ((((exists bcf_height_lucas_block_digit_zero_upper_choose_table_decoded_row_scale. bcf_height_lucas_block_digit_zero_upper_choose_table_decoded_row_scale + S (bcf_row_scale_lucas_block_digit_zero_upper_choose_table) = S ((S (bcf_row_index_lucas_block_digit_zero_upper_choose_table)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_choose)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_table_decoded_row_scale. bcf_row_scale_code_lucas_block_digit_zero_upper_choose = bcf_quotient_lucas_block_digit_zero_upper_choose_table_decoded_row_scale * S ((S (bcf_row_index_lucas_block_digit_zero_upper_choose_table)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_choose) + (bcf_row_scale_lucas_block_digit_zero_upper_choose_table))) /\ ((bcf_row_index_lucas_block_digit_zero_upper_choose_table = 0 /\ (forall bcf_index_lucas_block_digit_zero_upper_choose_table_zero_row. (exists bcf_lt_gap_lucas_block_digit_zero_upper_choose_table_zero_row_bound. bcf_lt_gap_lucas_block_digit_zero_upper_choose_table_zero_row_bound + S (bcf_index_lucas_block_digit_zero_upper_choose_table_zero_row) = S (p * 0 + d)) -> exists bcf_value_lucas_block_digit_zero_upper_choose_table_zero_row. ((((exists bcf_height_lucas_block_digit_zero_upper_choose_table_zero_row_entry. bcf_height_lucas_block_digit_zero_upper_choose_table_zero_row_entry + S (bcf_value_lucas_block_digit_zero_upper_choose_table_zero_row) = S ((S (bcf_index_lucas_block_digit_zero_upper_choose_table_zero_row)) * bcf_row_scale_lucas_block_digit_zero_upper_choose_table)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_table_zero_row_entry. bcf_row_code_lucas_block_digit_zero_upper_choose_table = bcf_quotient_lucas_block_digit_zero_upper_choose_table_zero_row_entry * S ((S (bcf_index_lucas_block_digit_zero_upper_choose_table_zero_row)) * bcf_row_scale_lucas_block_digit_zero_upper_choose_table) + (bcf_value_lucas_block_digit_zero_upper_choose_table_zero_row))) /\ ((bcf_index_lucas_block_digit_zero_upper_choose_table_zero_row = 0 /\ bcf_value_lucas_block_digit_zero_upper_choose_table_zero_row = 1) \/ exists bcf_predecessor_lucas_block_digit_zero_upper_choose_table_zero_row. bcf_index_lucas_block_digit_zero_upper_choose_table_zero_row = S bcf_predecessor_lucas_block_digit_zero_upper_choose_table_zero_row /\ bcf_value_lucas_block_digit_zero_upper_choose_table_zero_row = 0)))) \/ exists bcf_predecessor_lucas_block_digit_zero_upper_choose_table bcf_previous_code_lucas_block_digit_zero_upper_choose_table bcf_previous_scale_lucas_block_digit_zero_upper_choose_table. bcf_row_index_lucas_block_digit_zero_upper_choose_table = S bcf_predecessor_lucas_block_digit_zero_upper_choose_table /\ ((((exists bcf_height_lucas_block_digit_zero_upper_choose_table_decoded_previous_code. bcf_height_lucas_block_digit_zero_upper_choose_table_decoded_previous_code + S (bcf_previous_code_lucas_block_digit_zero_upper_choose_table) = S ((S (bcf_predecessor_lucas_block_digit_zero_upper_choose_table)) * bcf_row_code_scale_lucas_block_digit_zero_upper_choose)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_table_decoded_previous_code. bcf_row_code_code_lucas_block_digit_zero_upper_choose = bcf_quotient_lucas_block_digit_zero_upper_choose_table_decoded_previous_code * S ((S (bcf_predecessor_lucas_block_digit_zero_upper_choose_table)) * bcf_row_code_scale_lucas_block_digit_zero_upper_choose) + (bcf_previous_code_lucas_block_digit_zero_upper_choose_table))) /\ ((((exists bcf_height_lucas_block_digit_zero_upper_choose_table_decoded_previous_scale. bcf_height_lucas_block_digit_zero_upper_choose_table_decoded_previous_scale + S (bcf_previous_scale_lucas_block_digit_zero_upper_choose_table) = S ((S (bcf_predecessor_lucas_block_digit_zero_upper_choose_table)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_choose)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_table_decoded_previous_scale. bcf_row_scale_code_lucas_block_digit_zero_upper_choose = bcf_quotient_lucas_block_digit_zero_upper_choose_table_decoded_previous_scale * S ((S (bcf_predecessor_lucas_block_digit_zero_upper_choose_table)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_choose) + (bcf_previous_scale_lucas_block_digit_zero_upper_choose_table))) /\ (forall bcf_index_lucas_block_digit_zero_upper_choose_table_row_step. (exists bcf_lt_gap_lucas_block_digit_zero_upper_choose_table_row_step_bound. bcf_lt_gap_lucas_block_digit_zero_upper_choose_table_row_step_bound + S (bcf_index_lucas_block_digit_zero_upper_choose_table_row_step) = S (p * 0 + d)) -> exists bcf_value_lucas_block_digit_zero_upper_choose_table_row_step. ((((exists bcf_height_lucas_block_digit_zero_upper_choose_table_row_step_entry. bcf_height_lucas_block_digit_zero_upper_choose_table_row_step_entry + S (bcf_value_lucas_block_digit_zero_upper_choose_table_row_step) = S ((S (bcf_index_lucas_block_digit_zero_upper_choose_table_row_step)) * bcf_row_scale_lucas_block_digit_zero_upper_choose_table)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_table_row_step_entry. bcf_row_code_lucas_block_digit_zero_upper_choose_table = bcf_quotient_lucas_block_digit_zero_upper_choose_table_row_step_entry * S ((S (bcf_index_lucas_block_digit_zero_upper_choose_table_row_step)) * bcf_row_scale_lucas_block_digit_zero_upper_choose_table) + (bcf_value_lucas_block_digit_zero_upper_choose_table_row_step))) /\ ((bcf_index_lucas_block_digit_zero_upper_choose_table_row_step = 0 /\ bcf_value_lucas_block_digit_zero_upper_choose_table_row_step = 1) \/ exists bcf_predecessor_lucas_block_digit_zero_upper_choose_table_row_step bcf_left_lucas_block_digit_zero_upper_choose_table_row_step bcf_right_lucas_block_digit_zero_upper_choose_table_row_step. bcf_index_lucas_block_digit_zero_upper_choose_table_row_step = S bcf_predecessor_lucas_block_digit_zero_upper_choose_table_row_step /\ ((((exists bcf_height_lucas_block_digit_zero_upper_choose_table_row_step_previous_left. bcf_height_lucas_block_digit_zero_upper_choose_table_row_step_previous_left + S (bcf_left_lucas_block_digit_zero_upper_choose_table_row_step) = S ((S (bcf_predecessor_lucas_block_digit_zero_upper_choose_table_row_step)) * bcf_previous_scale_lucas_block_digit_zero_upper_choose_table)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_table_row_step_previous_left. bcf_previous_code_lucas_block_digit_zero_upper_choose_table = bcf_quotient_lucas_block_digit_zero_upper_choose_table_row_step_previous_left * S ((S (bcf_predecessor_lucas_block_digit_zero_upper_choose_table_row_step)) * bcf_previous_scale_lucas_block_digit_zero_upper_choose_table) + (bcf_left_lucas_block_digit_zero_upper_choose_table_row_step))) /\ ((((exists bcf_height_lucas_block_digit_zero_upper_choose_table_row_step_previous_right. bcf_height_lucas_block_digit_zero_upper_choose_table_row_step_previous_right + S (bcf_right_lucas_block_digit_zero_upper_choose_table_row_step) = S ((S (S (bcf_predecessor_lucas_block_digit_zero_upper_choose_table_row_step))) * bcf_previous_scale_lucas_block_digit_zero_upper_choose_table)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_table_row_step_previous_right. bcf_previous_code_lucas_block_digit_zero_upper_choose_table = bcf_quotient_lucas_block_digit_zero_upper_choose_table_row_step_previous_right * S ((S (S (bcf_predecessor_lucas_block_digit_zero_upper_choose_table_row_step))) * bcf_previous_scale_lucas_block_digit_zero_upper_choose_table) + (bcf_right_lucas_block_digit_zero_upper_choose_table_row_step))) /\ bcf_value_lucas_block_digit_zero_upper_choose_table_row_step = bcf_left_lucas_block_digit_zero_upper_choose_table_row_step + bcf_right_lucas_block_digit_zero_upper_choose_table_row_step))))))))))) /\ ((((exists bcf_height_lucas_block_digit_zero_upper_choose_decoded_row_code. bcf_height_lucas_block_digit_zero_upper_choose_decoded_row_code + S (bcf_row_code_lucas_block_digit_zero_upper_choose) = S ((S (p * 0 + d)) * bcf_row_code_scale_lucas_block_digit_zero_upper_choose)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_decoded_row_code. bcf_row_code_code_lucas_block_digit_zero_upper_choose = bcf_quotient_lucas_block_digit_zero_upper_choose_decoded_row_code * S ((S (p * 0 + d)) * bcf_row_code_scale_lucas_block_digit_zero_upper_choose) + (bcf_row_code_lucas_block_digit_zero_upper_choose))) /\ ((((exists bcf_height_lucas_block_digit_zero_upper_choose_decoded_row_scale. bcf_height_lucas_block_digit_zero_upper_choose_decoded_row_scale + S (bcf_row_scale_lucas_block_digit_zero_upper_choose) = S ((S (p * 0 + d)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_choose)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_decoded_row_scale. bcf_row_scale_code_lucas_block_digit_zero_upper_choose = bcf_quotient_lucas_block_digit_zero_upper_choose_decoded_row_scale * S ((S (p * 0 + d)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_choose) + (bcf_row_scale_lucas_block_digit_zero_upper_choose))) /\ (((exists bcf_height_lucas_block_digit_zero_upper_choose_decoded_value. bcf_height_lucas_block_digit_zero_upper_choose_decoded_value + S (C) = S ((S (p * r + e)) * bcf_row_scale_lucas_block_digit_zero_upper_choose)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_choose_decoded_value. bcf_row_code_lucas_block_digit_zero_upper_choose = bcf_quotient_lucas_block_digit_zero_upper_choose_decoded_value * S ((S (p * r + e)) * bcf_row_scale_lucas_block_digit_zero_upper_choose) + (C))))))))) -> C = 0Proof neighborhood
Direct theorem prerequisites
LU0010 lucas_prime_block_zero_reassociation LU000K lucas_positive_lower_quotient_digit_coefficient_zeroDirect theorem dependents
Definition-aware tactic body
Only propositions whose conservative expansion has been checked for exact first-order equivalence are compacted. Every changed line retains its immutable exact replay command.
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–8
02Establish hnormalizedL9–18
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply choose upper eq transport.
- L9
have hnormalized : Choose(d,p · r + e,C)Definitions: Choose(d,p · r + e,C)Original native command in the exact edition - L10
specialize choose_upper_eq_transport (p * 0 + d) - L11
specialize choose_upper_eq_transport d - L12
specialize choose_upper_eq_transport (p * r + e) - L13
specialize choose_upper_eq_transport C - L14
apply choose_upper_eq_transport - L15
apply lucas_prime_block_zero_reassociation - L16
exact hchoose - L17
specialize lucas_positive_lower_quotient_digit_coefficient_zero p - L18
specialize lucas_positive_lower_quotient_digit_coefficient_zero r
03Use earlier factsL19–25
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L19
specialize lucas_positive_lower_quotient_digit_coefficient_zero d - L20
specialize lucas_positive_lower_quotient_digit_coefficient_zero e - L21
specialize lucas_positive_lower_quotient_digit_coefficient_zero C - L22
apply lucas_positive_lower_quotient_digit_coefficient_zero - L23
exact hdigit - L24
exact hpositive - L25
exact hnormalized
Original defined command ledger · 25 lines
- 0001
intro p - 0002
intro r - 0003
intro d - 0004
intro e - 0005
intro C - 0006
intro hdigit - 0007
intro hpositive - 0008
intro hchoose - 0009
have hnormalized : Choose(d,p · r + e,C)Exact native replay line
have hnormalized : ((exists bcf_lt_gap_lucas_block_digit_zero_upper_normalized_out_of_range. bcf_lt_gap_lucas_block_digit_zero_upper_normalized_out_of_range + S (d) = p * r + e) /\ C = 0) \/ ((exists bcf_le_gap_lucas_block_digit_zero_upper_normalized_in_range. bcf_le_gap_lucas_block_digit_zero_upper_normalized_in_range + (p * r + e) = d) /\ (exists bcf_row_code_code_lucas_block_digit_zero_upper_normalized bcf_row_code_scale_lucas_block_digit_zero_upper_normalized bcf_row_scale_code_lucas_block_digit_zero_upper_normalized bcf_row_scale_scale_lucas_block_digit_zero_upper_normalized bcf_row_code_lucas_block_digit_zero_upper_normalized bcf_row_scale_lucas_block_digit_zero_upper_normalized. ((forall bcf_row_index_lucas_block_digit_zero_upper_normalized_table. (exists bcf_lt_gap_lucas_block_digit_zero_upper_normalized_table_row_bound. bcf_lt_gap_lucas_block_digit_zero_upper_normalized_table_row_bound + S (bcf_row_index_lucas_block_digit_zero_upper_normalized_table) = S (d)) -> exists bcf_row_code_lucas_block_digit_zero_upper_normalized_table bcf_row_scale_lucas_block_digit_zero_upper_normalized_table. ((((exists bcf_height_lucas_block_digit_zero_upper_normalized_table_decoded_row_code. bcf_height_lucas_block_digit_zero_upper_normalized_table_decoded_row_code + S (bcf_row_code_lucas_block_digit_zero_upper_normalized_table) = S ((S (bcf_row_index_lucas_block_digit_zero_upper_normalized_table)) * bcf_row_code_scale_lucas_block_digit_zero_upper_normalized)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_table_decoded_row_code. bcf_row_code_code_lucas_block_digit_zero_upper_normalized = bcf_quotient_lucas_block_digit_zero_upper_normalized_table_decoded_row_code * S ((S (bcf_row_index_lucas_block_digit_zero_upper_normalized_table)) * bcf_row_code_scale_lucas_block_digit_zero_upper_normalized) + (bcf_row_code_lucas_block_digit_zero_upper_normalized_table))) /\ ((((exists bcf_height_lucas_block_digit_zero_upper_normalized_table_decoded_row_scale. bcf_height_lucas_block_digit_zero_upper_normalized_table_decoded_row_scale + S (bcf_row_scale_lucas_block_digit_zero_upper_normalized_table) = S ((S (bcf_row_index_lucas_block_digit_zero_upper_normalized_table)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_normalized)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_table_decoded_row_scale. bcf_row_scale_code_lucas_block_digit_zero_upper_normalized = bcf_quotient_lucas_block_digit_zero_upper_normalized_table_decoded_row_scale * S ((S (bcf_row_index_lucas_block_digit_zero_upper_normalized_table)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_normalized) + (bcf_row_scale_lucas_block_digit_zero_upper_normalized_table))) /\ ((bcf_row_index_lucas_block_digit_zero_upper_normalized_table = 0 /\ (forall bcf_index_lucas_block_digit_zero_upper_normalized_table_zero_row. (exists bcf_lt_gap_lucas_block_digit_zero_upper_normalized_table_zero_row_bound. bcf_lt_gap_lucas_block_digit_zero_upper_normalized_table_zero_row_bound + S (bcf_index_lucas_block_digit_zero_upper_normalized_table_zero_row) = S (d)) -> exists bcf_value_lucas_block_digit_zero_upper_normalized_table_zero_row. ((((exists bcf_height_lucas_block_digit_zero_upper_normalized_table_zero_row_entry. bcf_height_lucas_block_digit_zero_upper_normalized_table_zero_row_entry + S (bcf_value_lucas_block_digit_zero_upper_normalized_table_zero_row) = S ((S (bcf_index_lucas_block_digit_zero_upper_normalized_table_zero_row)) * bcf_row_scale_lucas_block_digit_zero_upper_normalized_table)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_table_zero_row_entry. bcf_row_code_lucas_block_digit_zero_upper_normalized_table = bcf_quotient_lucas_block_digit_zero_upper_normalized_table_zero_row_entry * S ((S (bcf_index_lucas_block_digit_zero_upper_normalized_table_zero_row)) * bcf_row_scale_lucas_block_digit_zero_upper_normalized_table) + (bcf_value_lucas_block_digit_zero_upper_normalized_table_zero_row))) /\ ((bcf_index_lucas_block_digit_zero_upper_normalized_table_zero_row = 0 /\ bcf_value_lucas_block_digit_zero_upper_normalized_table_zero_row = 1) \/ exists bcf_predecessor_lucas_block_digit_zero_upper_normalized_table_zero_row. bcf_index_lucas_block_digit_zero_upper_normalized_table_zero_row = S bcf_predecessor_lucas_block_digit_zero_upper_normalized_table_zero_row /\ bcf_value_lucas_block_digit_zero_upper_normalized_table_zero_row = 0)))) \/ exists bcf_predecessor_lucas_block_digit_zero_upper_normalized_table bcf_previous_code_lucas_block_digit_zero_upper_normalized_table bcf_previous_scale_lucas_block_digit_zero_upper_normalized_table. bcf_row_index_lucas_block_digit_zero_upper_normalized_table = S bcf_predecessor_lucas_block_digit_zero_upper_normalized_table /\ ((((exists bcf_height_lucas_block_digit_zero_upper_normalized_table_decoded_previous_code. bcf_height_lucas_block_digit_zero_upper_normalized_table_decoded_previous_code + S (bcf_previous_code_lucas_block_digit_zero_upper_normalized_table) = S ((S (bcf_predecessor_lucas_block_digit_zero_upper_normalized_table)) * bcf_row_code_scale_lucas_block_digit_zero_upper_normalized)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_table_decoded_previous_code. bcf_row_code_code_lucas_block_digit_zero_upper_normalized = bcf_quotient_lucas_block_digit_zero_upper_normalized_table_decoded_previous_code * S ((S (bcf_predecessor_lucas_block_digit_zero_upper_normalized_table)) * bcf_row_code_scale_lucas_block_digit_zero_upper_normalized) + (bcf_previous_code_lucas_block_digit_zero_upper_normalized_table))) /\ ((((exists bcf_height_lucas_block_digit_zero_upper_normalized_table_decoded_previous_scale. bcf_height_lucas_block_digit_zero_upper_normalized_table_decoded_previous_scale + S (bcf_previous_scale_lucas_block_digit_zero_upper_normalized_table) = S ((S (bcf_predecessor_lucas_block_digit_zero_upper_normalized_table)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_normalized)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_table_decoded_previous_scale. bcf_row_scale_code_lucas_block_digit_zero_upper_normalized = bcf_quotient_lucas_block_digit_zero_upper_normalized_table_decoded_previous_scale * S ((S (bcf_predecessor_lucas_block_digit_zero_upper_normalized_table)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_normalized) + (bcf_previous_scale_lucas_block_digit_zero_upper_normalized_table))) /\ (forall bcf_index_lucas_block_digit_zero_upper_normalized_table_row_step. (exists bcf_lt_gap_lucas_block_digit_zero_upper_normalized_table_row_step_bound. bcf_lt_gap_lucas_block_digit_zero_upper_normalized_table_row_step_bound + S (bcf_index_lucas_block_digit_zero_upper_normalized_table_row_step) = S (d)) -> exists bcf_value_lucas_block_digit_zero_upper_normalized_table_row_step. ((((exists bcf_height_lucas_block_digit_zero_upper_normalized_table_row_step_entry. bcf_height_lucas_block_digit_zero_upper_normalized_table_row_step_entry + S (bcf_value_lucas_block_digit_zero_upper_normalized_table_row_step) = S ((S (bcf_index_lucas_block_digit_zero_upper_normalized_table_row_step)) * bcf_row_scale_lucas_block_digit_zero_upper_normalized_table)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_table_row_step_entry. bcf_row_code_lucas_block_digit_zero_upper_normalized_table = bcf_quotient_lucas_block_digit_zero_upper_normalized_table_row_step_entry * S ((S (bcf_index_lucas_block_digit_zero_upper_normalized_table_row_step)) * bcf_row_scale_lucas_block_digit_zero_upper_normalized_table) + (bcf_value_lucas_block_digit_zero_upper_normalized_table_row_step))) /\ ((bcf_index_lucas_block_digit_zero_upper_normalized_table_row_step = 0 /\ bcf_value_lucas_block_digit_zero_upper_normalized_table_row_step = 1) \/ exists bcf_predecessor_lucas_block_digit_zero_upper_normalized_table_row_step bcf_left_lucas_block_digit_zero_upper_normalized_table_row_step bcf_right_lucas_block_digit_zero_upper_normalized_table_row_step. bcf_index_lucas_block_digit_zero_upper_normalized_table_row_step = S bcf_predecessor_lucas_block_digit_zero_upper_normalized_table_row_step /\ ((((exists bcf_height_lucas_block_digit_zero_upper_normalized_table_row_step_previous_left. bcf_height_lucas_block_digit_zero_upper_normalized_table_row_step_previous_left + S (bcf_left_lucas_block_digit_zero_upper_normalized_table_row_step) = S ((S (bcf_predecessor_lucas_block_digit_zero_upper_normalized_table_row_step)) * bcf_previous_scale_lucas_block_digit_zero_upper_normalized_table)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_table_row_step_previous_left. bcf_previous_code_lucas_block_digit_zero_upper_normalized_table = bcf_quotient_lucas_block_digit_zero_upper_normalized_table_row_step_previous_left * S ((S (bcf_predecessor_lucas_block_digit_zero_upper_normalized_table_row_step)) * bcf_previous_scale_lucas_block_digit_zero_upper_normalized_table) + (bcf_left_lucas_block_digit_zero_upper_normalized_table_row_step))) /\ ((((exists bcf_height_lucas_block_digit_zero_upper_normalized_table_row_step_previous_right. bcf_height_lucas_block_digit_zero_upper_normalized_table_row_step_previous_right + S (bcf_right_lucas_block_digit_zero_upper_normalized_table_row_step) = S ((S (S (bcf_predecessor_lucas_block_digit_zero_upper_normalized_table_row_step))) * bcf_previous_scale_lucas_block_digit_zero_upper_normalized_table)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_table_row_step_previous_right. bcf_previous_code_lucas_block_digit_zero_upper_normalized_table = bcf_quotient_lucas_block_digit_zero_upper_normalized_table_row_step_previous_right * S ((S (S (bcf_predecessor_lucas_block_digit_zero_upper_normalized_table_row_step))) * bcf_previous_scale_lucas_block_digit_zero_upper_normalized_table) + (bcf_right_lucas_block_digit_zero_upper_normalized_table_row_step))) /\ bcf_value_lucas_block_digit_zero_upper_normalized_table_row_step = bcf_left_lucas_block_digit_zero_upper_normalized_table_row_step + bcf_right_lucas_block_digit_zero_upper_normalized_table_row_step))))))))))) /\ ((((exists bcf_height_lucas_block_digit_zero_upper_normalized_decoded_row_code. bcf_height_lucas_block_digit_zero_upper_normalized_decoded_row_code + S (bcf_row_code_lucas_block_digit_zero_upper_normalized) = S ((S (d)) * bcf_row_code_scale_lucas_block_digit_zero_upper_normalized)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_decoded_row_code. bcf_row_code_code_lucas_block_digit_zero_upper_normalized = bcf_quotient_lucas_block_digit_zero_upper_normalized_decoded_row_code * S ((S (d)) * bcf_row_code_scale_lucas_block_digit_zero_upper_normalized) + (bcf_row_code_lucas_block_digit_zero_upper_normalized))) /\ ((((exists bcf_height_lucas_block_digit_zero_upper_normalized_decoded_row_scale. bcf_height_lucas_block_digit_zero_upper_normalized_decoded_row_scale + S (bcf_row_scale_lucas_block_digit_zero_upper_normalized) = S ((S (d)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_normalized)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_decoded_row_scale. bcf_row_scale_code_lucas_block_digit_zero_upper_normalized = bcf_quotient_lucas_block_digit_zero_upper_normalized_decoded_row_scale * S ((S (d)) * bcf_row_scale_scale_lucas_block_digit_zero_upper_normalized) + (bcf_row_scale_lucas_block_digit_zero_upper_normalized))) /\ (((exists bcf_height_lucas_block_digit_zero_upper_normalized_decoded_value. bcf_height_lucas_block_digit_zero_upper_normalized_decoded_value + S (C) = S ((S (p * r + e)) * bcf_row_scale_lucas_block_digit_zero_upper_normalized)) /\ exists bcf_quotient_lucas_block_digit_zero_upper_normalized_decoded_value. bcf_row_code_lucas_block_digit_zero_upper_normalized = bcf_quotient_lucas_block_digit_zero_upper_normalized_decoded_value * S ((S (p * r + e)) * bcf_row_scale_lucas_block_digit_zero_upper_normalized) + (C)))))))) - 0010
specialize choose_upper_eq_transport (p * 0 + d) - 0011
specialize choose_upper_eq_transport d - 0012
specialize choose_upper_eq_transport (p * r + e) - 0013
specialize choose_upper_eq_transport C - 0014
apply choose_upper_eq_transport - 0015
apply lucas_prime_block_zero_reassociation - 0016
exact hchoose - 0017
specialize lucas_positive_lower_quotient_digit_coefficient_zero p - 0018
specialize lucas_positive_lower_quotient_digit_coefficient_zero r - 0019
specialize lucas_positive_lower_quotient_digit_coefficient_zero d - 0020
specialize lucas_positive_lower_quotient_digit_coefficient_zero e - 0021
specialize lucas_positive_lower_quotient_digit_coefficient_zero C - 0022
apply lucas_positive_lower_quotient_digit_coefficient_zero - 0023
exact hdigit - 0024
exact hpositive - 0025
exact hnormalized