Exact expanded PA statement
forall p n b c d e f g l q r R s. (exists bcf_le_gap_bdqcpez_base. bcf_le_gap_bdqcpez_base + (1) = p) -> (exists bpvi_b_bdqcpez_square bpvi_c_bdqcpez_square. ((forall bpvi_i_bdqcpez_square. (exists bpvi_repeat_gap_bdqcpez_square. bpvi_repeat_gap_bdqcpez_square + S bpvi_i_bdqcpez_square = 2) -> (((exists bpvi_h_bdqcpez_square_repeat. bpvi_h_bdqcpez_square_repeat + S (p) = S ((S (bpvi_i_bdqcpez_square)) * bpvi_c_bdqcpez_square)) /\ exists bpvi_q_bdqcpez_square_repeat. bpvi_b_bdqcpez_square = bpvi_q_bdqcpez_square_repeat * S ((S (bpvi_i_bdqcpez_square)) * bpvi_c_bdqcpez_square) + (p)))) /\ (exists bpvi_u_bdqcpez_square bpvi_v_bdqcpez_square. ((((exists bpvi_h_bdqcpez_square_start. bpvi_h_bdqcpez_square_start + S (1) = S ((S (0)) * bpvi_v_bdqcpez_square)) /\ exists bpvi_q_bdqcpez_square_start. bpvi_u_bdqcpez_square = bpvi_q_bdqcpez_square_start * S ((S (0)) * bpvi_v_bdqcpez_square) + (1))) /\ ((((exists bpvi_h_bdqcpez_square_terminal. bpvi_h_bdqcpez_square_terminal + S (s) = S ((S (2)) * bpvi_v_bdqcpez_square)) /\ exists bpvi_q_bdqcpez_square_terminal. bpvi_u_bdqcpez_square = bpvi_q_bdqcpez_square_terminal * S ((S (2)) * bpvi_v_bdqcpez_square) + (s))) /\ forall bpvi_j_bdqcpez_square. (exists bpvi_product_gap_bdqcpez_square. bpvi_product_gap_bdqcpez_square + S bpvi_j_bdqcpez_square = 2) -> exists bpvi_factor_bdqcpez_square bpvi_partial_bdqcpez_square bpvi_successor_bdqcpez_square. ((((exists bpvi_h_bdqcpez_square_factor. bpvi_h_bdqcpez_square_factor + S (bpvi_factor_bdqcpez_square) = S ((S (bpvi_j_bdqcpez_square)) * bpvi_c_bdqcpez_square)) /\ exists bpvi_q_bdqcpez_square_factor. bpvi_b_bdqcpez_square = bpvi_q_bdqcpez_square_factor * S ((S (bpvi_j_bdqcpez_square)) * bpvi_c_bdqcpez_square) + (bpvi_factor_bdqcpez_square))) /\ ((((exists bpvi_h_bdqcpez_square_partial. bpvi_h_bdqcpez_square_partial + S (bpvi_partial_bdqcpez_square) = S ((S (bpvi_j_bdqcpez_square)) * bpvi_v_bdqcpez_square)) /\ exists bpvi_q_bdqcpez_square_partial. bpvi_u_bdqcpez_square = bpvi_q_bdqcpez_square_partial * S ((S (bpvi_j_bdqcpez_square)) * bpvi_v_bdqcpez_square) + (bpvi_partial_bdqcpez_square))) /\ ((((exists bpvi_h_bdqcpez_square_successor. bpvi_h_bdqcpez_square_successor + S (bpvi_successor_bdqcpez_square) = S ((S (S bpvi_j_bdqcpez_square)) * bpvi_v_bdqcpez_square)) /\ exists bpvi_q_bdqcpez_square_successor. bpvi_u_bdqcpez_square = bpvi_q_bdqcpez_square_successor * S ((S (S bpvi_j_bdqcpez_square)) * bpvi_v_bdqcpez_square) + (bpvi_successor_bdqcpez_square))) /\ bpvi_successor_bdqcpez_square = bpvi_partial_bdqcpez_square * bpvi_factor_bdqcpez_square)))))))) -> (exists bcf_lt_gap_bdqcpez_strict. bcf_lt_gap_bdqcpez_strict + S (n + n) = s) -> (forall bls_index_bdqcpez_left. (exists bls_gap_bdqcpez_left_bound. bls_gap_bdqcpez_left_bound + S (bls_index_bdqcpez_left) = (l)) -> exists bls_power_bdqcpez_left bls_quotient_bdqcpez_left bls_remainder_bdqcpez_left. ((exists bpvi_b_bls_bdqcpez_left_power bpvi_c_bls_bdqcpez_left_power. ((forall bpvi_i_bls_bdqcpez_left_power. (exists bpvi_repeat_gap_bls_bdqcpez_left_power. bpvi_repeat_gap_bls_bdqcpez_left_power + S bpvi_i_bls_bdqcpez_left_power = S bls_index_bdqcpez_left) -> (((exists bpvi_h_bls_bdqcpez_left_power_repeat. bpvi_h_bls_bdqcpez_left_power_repeat + S (p) = S ((S (bpvi_i_bls_bdqcpez_left_power)) * bpvi_c_bls_bdqcpez_left_power)) /\ exists bpvi_q_bls_bdqcpez_left_power_repeat. bpvi_b_bls_bdqcpez_left_power = bpvi_q_bls_bdqcpez_left_power_repeat * S ((S (bpvi_i_bls_bdqcpez_left_power)) * bpvi_c_bls_bdqcpez_left_power) + (p)))) /\ (exists bpvi_u_bls_bdqcpez_left_power bpvi_v_bls_bdqcpez_left_power. ((((exists bpvi_h_bls_bdqcpez_left_power_start. bpvi_h_bls_bdqcpez_left_power_start + S (1) = S ((S (0)) * bpvi_v_bls_bdqcpez_left_power)) /\ exists bpvi_q_bls_bdqcpez_left_power_start. bpvi_u_bls_bdqcpez_left_power = bpvi_q_bls_bdqcpez_left_power_start * S ((S (0)) * bpvi_v_bls_bdqcpez_left_power) + (1))) /\ ((((exists bpvi_h_bls_bdqcpez_left_power_terminal. bpvi_h_bls_bdqcpez_left_power_terminal + S (bls_power_bdqcpez_left) = S ((S (S bls_index_bdqcpez_left)) * bpvi_v_bls_bdqcpez_left_power)) /\ exists bpvi_q_bls_bdqcpez_left_power_terminal. bpvi_u_bls_bdqcpez_left_power = bpvi_q_bls_bdqcpez_left_power_terminal * S ((S (S bls_index_bdqcpez_left)) * bpvi_v_bls_bdqcpez_left_power) + (bls_power_bdqcpez_left))) /\ forall bpvi_j_bls_bdqcpez_left_power. (exists bpvi_product_gap_bls_bdqcpez_left_power. bpvi_product_gap_bls_bdqcpez_left_power + S bpvi_j_bls_bdqcpez_left_power = S bls_index_bdqcpez_left) -> exists bpvi_factor_bls_bdqcpez_left_power bpvi_partial_bls_bdqcpez_left_power bpvi_successor_bls_bdqcpez_left_power. ((((exists bpvi_h_bls_bdqcpez_left_power_factor. bpvi_h_bls_bdqcpez_left_power_factor + S (bpvi_factor_bls_bdqcpez_left_power) = S ((S (bpvi_j_bls_bdqcpez_left_power)) * bpvi_c_bls_bdqcpez_left_power)) /\ exists bpvi_q_bls_bdqcpez_left_power_factor. bpvi_b_bls_bdqcpez_left_power = bpvi_q_bls_bdqcpez_left_power_factor * S ((S (bpvi_j_bls_bdqcpez_left_power)) * bpvi_c_bls_bdqcpez_left_power) + (bpvi_factor_bls_bdqcpez_left_power))) /\ ((((exists bpvi_h_bls_bdqcpez_left_power_partial. bpvi_h_bls_bdqcpez_left_power_partial + S (bpvi_partial_bls_bdqcpez_left_power) = S ((S (bpvi_j_bls_bdqcpez_left_power)) * bpvi_v_bls_bdqcpez_left_power)) /\ exists bpvi_q_bls_bdqcpez_left_power_partial. bpvi_u_bls_bdqcpez_left_power = bpvi_q_bls_bdqcpez_left_power_partial * S ((S (bpvi_j_bls_bdqcpez_left_power)) * bpvi_v_bls_bdqcpez_left_power) + (bpvi_partial_bls_bdqcpez_left_power))) /\ ((((exists bpvi_h_bls_bdqcpez_left_power_successor. bpvi_h_bls_bdqcpez_left_power_successor + S (bpvi_successor_bls_bdqcpez_left_power) = S ((S (S bpvi_j_bls_bdqcpez_left_power)) * bpvi_v_bls_bdqcpez_left_power)) /\ exists bpvi_q_bls_bdqcpez_left_power_successor. bpvi_u_bls_bdqcpez_left_power = bpvi_q_bls_bdqcpez_left_power_successor * S ((S (S bpvi_j_bls_bdqcpez_left_power)) * bpvi_v_bls_bdqcpez_left_power) + (bpvi_successor_bls_bdqcpez_left_power))) /\ bpvi_successor_bls_bdqcpez_left_power = bpvi_partial_bls_bdqcpez_left_power * bpvi_factor_bls_bdqcpez_left_power)))))))) /\ ((((exists ff_h_bls_bdqcpez_left_quotient_entry. ff_h_bls_bdqcpez_left_quotient_entry + S (bls_quotient_bdqcpez_left) = S ((S (bls_index_bdqcpez_left)) * c)) /\ exists ff_q_bls_bdqcpez_left_quotient_entry. b = ff_q_bls_bdqcpez_left_quotient_entry * S ((S (bls_index_bdqcpez_left)) * c) + (bls_quotient_bdqcpez_left))) /\ ((n = bls_power_bdqcpez_left * bls_quotient_bdqcpez_left + bls_remainder_bdqcpez_left /\ exists bls_remainder_gap_bdqcpez_left_division. bls_remainder_gap_bdqcpez_left_division + S (bls_remainder_bdqcpez_left) = bls_power_bdqcpez_left))))) -> (forall bls_index_bdqcpez_right. (exists bls_gap_bdqcpez_right_bound. bls_gap_bdqcpez_right_bound + S (bls_index_bdqcpez_right) = (l)) -> exists bls_power_bdqcpez_right bls_quotient_bdqcpez_right bls_remainder_bdqcpez_right. ((exists bpvi_b_bls_bdqcpez_right_power bpvi_c_bls_bdqcpez_right_power. ((forall bpvi_i_bls_bdqcpez_right_power. (exists bpvi_repeat_gap_bls_bdqcpez_right_power. bpvi_repeat_gap_bls_bdqcpez_right_power + S bpvi_i_bls_bdqcpez_right_power = S bls_index_bdqcpez_right) -> (((exists bpvi_h_bls_bdqcpez_right_power_repeat. bpvi_h_bls_bdqcpez_right_power_repeat + S (p) = S ((S (bpvi_i_bls_bdqcpez_right_power)) * bpvi_c_bls_bdqcpez_right_power)) /\ exists bpvi_q_bls_bdqcpez_right_power_repeat. bpvi_b_bls_bdqcpez_right_power = bpvi_q_bls_bdqcpez_right_power_repeat * S ((S (bpvi_i_bls_bdqcpez_right_power)) * bpvi_c_bls_bdqcpez_right_power) + (p)))) /\ (exists bpvi_u_bls_bdqcpez_right_power bpvi_v_bls_bdqcpez_right_power. ((((exists bpvi_h_bls_bdqcpez_right_power_start. bpvi_h_bls_bdqcpez_right_power_start + S (1) = S ((S (0)) * bpvi_v_bls_bdqcpez_right_power)) /\ exists bpvi_q_bls_bdqcpez_right_power_start. bpvi_u_bls_bdqcpez_right_power = bpvi_q_bls_bdqcpez_right_power_start * S ((S (0)) * bpvi_v_bls_bdqcpez_right_power) + (1))) /\ ((((exists bpvi_h_bls_bdqcpez_right_power_terminal. bpvi_h_bls_bdqcpez_right_power_terminal + S (bls_power_bdqcpez_right) = S ((S (S bls_index_bdqcpez_right)) * bpvi_v_bls_bdqcpez_right_power)) /\ exists bpvi_q_bls_bdqcpez_right_power_terminal. bpvi_u_bls_bdqcpez_right_power = bpvi_q_bls_bdqcpez_right_power_terminal * S ((S (S bls_index_bdqcpez_right)) * bpvi_v_bls_bdqcpez_right_power) + (bls_power_bdqcpez_right))) /\ forall bpvi_j_bls_bdqcpez_right_power. (exists bpvi_product_gap_bls_bdqcpez_right_power. bpvi_product_gap_bls_bdqcpez_right_power + S bpvi_j_bls_bdqcpez_right_power = S bls_index_bdqcpez_right) -> exists bpvi_factor_bls_bdqcpez_right_power bpvi_partial_bls_bdqcpez_right_power bpvi_successor_bls_bdqcpez_right_power. ((((exists bpvi_h_bls_bdqcpez_right_power_factor. bpvi_h_bls_bdqcpez_right_power_factor + S (bpvi_factor_bls_bdqcpez_right_power) = S ((S (bpvi_j_bls_bdqcpez_right_power)) * bpvi_c_bls_bdqcpez_right_power)) /\ exists bpvi_q_bls_bdqcpez_right_power_factor. bpvi_b_bls_bdqcpez_right_power = bpvi_q_bls_bdqcpez_right_power_factor * S ((S (bpvi_j_bls_bdqcpez_right_power)) * bpvi_c_bls_bdqcpez_right_power) + (bpvi_factor_bls_bdqcpez_right_power))) /\ ((((exists bpvi_h_bls_bdqcpez_right_power_partial. bpvi_h_bls_bdqcpez_right_power_partial + S (bpvi_partial_bls_bdqcpez_right_power) = S ((S (bpvi_j_bls_bdqcpez_right_power)) * bpvi_v_bls_bdqcpez_right_power)) /\ exists bpvi_q_bls_bdqcpez_right_power_partial. bpvi_u_bls_bdqcpez_right_power = bpvi_q_bls_bdqcpez_right_power_partial * S ((S (bpvi_j_bls_bdqcpez_right_power)) * bpvi_v_bls_bdqcpez_right_power) + (bpvi_partial_bls_bdqcpez_right_power))) /\ ((((exists bpvi_h_bls_bdqcpez_right_power_successor. bpvi_h_bls_bdqcpez_right_power_successor + S (bpvi_successor_bls_bdqcpez_right_power) = S ((S (S bpvi_j_bls_bdqcpez_right_power)) * bpvi_v_bls_bdqcpez_right_power)) /\ exists bpvi_q_bls_bdqcpez_right_power_successor. bpvi_u_bls_bdqcpez_right_power = bpvi_q_bls_bdqcpez_right_power_successor * S ((S (S bpvi_j_bls_bdqcpez_right_power)) * bpvi_v_bls_bdqcpez_right_power) + (bpvi_successor_bls_bdqcpez_right_power))) /\ bpvi_successor_bls_bdqcpez_right_power = bpvi_partial_bls_bdqcpez_right_power * bpvi_factor_bls_bdqcpez_right_power)))))))) /\ ((((exists ff_h_bls_bdqcpez_right_quotient_entry. ff_h_bls_bdqcpez_right_quotient_entry + S (bls_quotient_bdqcpez_right) = S ((S (bls_index_bdqcpez_right)) * e)) /\ exists ff_q_bls_bdqcpez_right_quotient_entry. d = ff_q_bls_bdqcpez_right_quotient_entry * S ((S (bls_index_bdqcpez_right)) * e) + (bls_quotient_bdqcpez_right))) /\ ((n + n = bls_power_bdqcpez_right * bls_quotient_bdqcpez_right + bls_remainder_bdqcpez_right /\ exists bls_remainder_gap_bdqcpez_right_division. bls_remainder_gap_bdqcpez_right_division + S (bls_remainder_bdqcpez_right) = bls_power_bdqcpez_right))))) -> (forall b5cc_index_bdqcpez_carry. (exists bcf_lt_gap_bdqcpez_carry_bound. bcf_lt_gap_bdqcpez_carry_bound + S (b5cc_index_bdqcpez_carry) = l) -> exists b5cc_left_bdqcpez_carry b5cc_right_bdqcpez_carry b5cc_bit_bdqcpez_carry. (((exists fs_h_b5cc_bdqcpez_carry_left. fs_h_b5cc_bdqcpez_carry_left + S (b5cc_left_bdqcpez_carry) = S ((S (b5cc_index_bdqcpez_carry)) * c)) /\ exists fs_q_b5cc_bdqcpez_carry_left. b = fs_q_b5cc_bdqcpez_carry_left * S ((S (b5cc_index_bdqcpez_carry)) * c) + (b5cc_left_bdqcpez_carry))) /\ ((((exists fs_h_b5cc_bdqcpez_carry_right. fs_h_b5cc_bdqcpez_carry_right + S (b5cc_right_bdqcpez_carry) = S ((S (b5cc_index_bdqcpez_carry)) * e)) /\ exists fs_q_b5cc_bdqcpez_carry_right. d = fs_q_b5cc_bdqcpez_carry_right * S ((S (b5cc_index_bdqcpez_carry)) * e) + (b5cc_right_bdqcpez_carry))) /\ ((((exists fs_h_b5cc_bdqcpez_carry_bit. fs_h_b5cc_bdqcpez_carry_bit + S (b5cc_bit_bdqcpez_carry) = S ((S (b5cc_index_bdqcpez_carry)) * g)) /\ exists fs_q_b5cc_bdqcpez_carry_bit. f = fs_q_b5cc_bdqcpez_carry_bit * S ((S (b5cc_index_bdqcpez_carry)) * g) + (b5cc_bit_bdqcpez_carry))) /\ (((b5cc_bit_bdqcpez_carry = 0 /\ b5cc_right_bdqcpez_carry = b5cc_left_bdqcpez_carry + b5cc_left_bdqcpez_carry) \/ (b5cc_bit_bdqcpez_carry = 1 /\ b5cc_right_bdqcpez_carry = S (b5cc_left_bdqcpez_carry + b5cc_left_bdqcpez_carry))))))) -> (((n) = (p) * (q) + (r) /\ (exists bcf_lt_gap_bdqcpez_first_bound. bcf_lt_gap_bdqcpez_first_bound + S (r) = p))) -> (((n + n) = (p) * (q + q) + (R) /\ (exists bcf_lt_gap_bdqcpez_double_bound. bcf_lt_gap_bdqcpez_double_bound + S (R) = p))) -> forall i. (exists bcf_lt_gap_bdqcpez_bound. bcf_lt_gap_bdqcpez_bound + S (i) = l) -> (((exists fs_h_bdqcpez_result. fs_h_bdqcpez_result + S (0) = S ((S (i)) * g)) /\ exists fs_q_bdqcpez_result. f = fs_q_bdqcpez_result * S ((S (i)) * g) + (0)))Structural proof guide
Exact doubled quotients and a square tail force every carry to zero.
Direct prerequisites: zero_or_succ, pow_one, division_remainder_unique, beta_at_unique, zero_add, lt_irrefl_expanded, pow_tail_strict_of_square, division_zero_quotient_of_lt. The authored body proceeds by case analysis (30), intermediate claims (14), equality transport (18).
Proof neighborhood
Direct dependencies
BT000Q zero_or_succ BT0094 pow_one BT001U division_remainder_unique BT0042 beta_at_unique BT0000 zero_add BT001B lt_irrefl_expanded BT00XK pow_tail_strict_of_square BT00XF division_zero_quotient_of_ltDirect dependents
Formal native tactic body
Dependencies are hypotheses of this body receipt. The focused endpoint audits separately check the complete empty-context certificates.
- 0001
intro p - 0002
intro n - 0003
intro b - 0004
intro c - 0005
intro d - 0006
intro e - 0007
intro f - 0008
intro g - 0009
intro l - 0010
intro q - 0011
intro r - 0012
intro R - 0013
intro s - 0014
intro hbase - 0015
intro hsquare - 0016
intro hstrict - 0017
intro hleft - 0018
intro hright - 0019
intro hcarry - 0020
intro hfirst - 0021
intro hdouble - 0022
intro i - 0023
intro hi - 0024
have hleft_data : exists D u a. (exists bpvi_b_bdqcpez_left_power bpvi_c_bdqcpez_left_power. ((forall bpvi_i_bdqcpez_left_power. (exists bpvi_repeat_gap_bdqcpez_left_power. bpvi_repeat_gap_bdqcpez_left_power + S bpvi_i_bdqcpez_left_power = S i) -> (((exists bpvi_h_bdqcpez_left_power_repeat. bpvi_h_bdqcpez_left_power_repeat + S (p) = S ((S (bpvi_i_bdqcpez_left_power)) * bpvi_c_bdqcpez_left_power)) /\ exists bpvi_q_bdqcpez_left_power_repeat. bpvi_b_bdqcpez_left_power = bpvi_q_bdqcpez_left_power_repeat * S ((S (bpvi_i_bdqcpez_left_power)) * bpvi_c_bdqcpez_left_power) + (p)))) /\ (exists bpvi_u_bdqcpez_left_power bpvi_v_bdqcpez_left_power. ((((exists bpvi_h_bdqcpez_left_power_start. bpvi_h_bdqcpez_left_power_start + S (1) = S ((S (0)) * bpvi_v_bdqcpez_left_power)) /\ exists bpvi_q_bdqcpez_left_power_start. bpvi_u_bdqcpez_left_power = bpvi_q_bdqcpez_left_power_start * S ((S (0)) * bpvi_v_bdqcpez_left_power) + (1))) /\ ((((exists bpvi_h_bdqcpez_left_power_terminal. bpvi_h_bdqcpez_left_power_terminal + S (D) = S ((S (S i)) * bpvi_v_bdqcpez_left_power)) /\ exists bpvi_q_bdqcpez_left_power_terminal. bpvi_u_bdqcpez_left_power = bpvi_q_bdqcpez_left_power_terminal * S ((S (S i)) * bpvi_v_bdqcpez_left_power) + (D))) /\ forall bpvi_j_bdqcpez_left_power. (exists bpvi_product_gap_bdqcpez_left_power. bpvi_product_gap_bdqcpez_left_power + S bpvi_j_bdqcpez_left_power = S i) -> exists bpvi_factor_bdqcpez_left_power bpvi_partial_bdqcpez_left_power bpvi_successor_bdqcpez_left_power. ((((exists bpvi_h_bdqcpez_left_power_factor. bpvi_h_bdqcpez_left_power_factor + S (bpvi_factor_bdqcpez_left_power) = S ((S (bpvi_j_bdqcpez_left_power)) * bpvi_c_bdqcpez_left_power)) /\ exists bpvi_q_bdqcpez_left_power_factor. bpvi_b_bdqcpez_left_power = bpvi_q_bdqcpez_left_power_factor * S ((S (bpvi_j_bdqcpez_left_power)) * bpvi_c_bdqcpez_left_power) + (bpvi_factor_bdqcpez_left_power))) /\ ((((exists bpvi_h_bdqcpez_left_power_partial. bpvi_h_bdqcpez_left_power_partial + S (bpvi_partial_bdqcpez_left_power) = S ((S (bpvi_j_bdqcpez_left_power)) * bpvi_v_bdqcpez_left_power)) /\ exists bpvi_q_bdqcpez_left_power_partial. bpvi_u_bdqcpez_left_power = bpvi_q_bdqcpez_left_power_partial * S ((S (bpvi_j_bdqcpez_left_power)) * bpvi_v_bdqcpez_left_power) + (bpvi_partial_bdqcpez_left_power))) /\ ((((exists bpvi_h_bdqcpez_left_power_successor. bpvi_h_bdqcpez_left_power_successor + S (bpvi_successor_bdqcpez_left_power) = S ((S (S bpvi_j_bdqcpez_left_power)) * bpvi_v_bdqcpez_left_power)) /\ exists bpvi_q_bdqcpez_left_power_successor. bpvi_u_bdqcpez_left_power = bpvi_q_bdqcpez_left_power_successor * S ((S (S bpvi_j_bdqcpez_left_power)) * bpvi_v_bdqcpez_left_power) + (bpvi_successor_bdqcpez_left_power))) /\ bpvi_successor_bdqcpez_left_power = bpvi_partial_bdqcpez_left_power * bpvi_factor_bdqcpez_left_power)))))))) /\ ((((exists fs_h_bdqcpez_left_entry. fs_h_bdqcpez_left_entry + S (u) = S ((S (i)) * c)) /\ exists fs_q_bdqcpez_left_entry. b = fs_q_bdqcpez_left_entry * S ((S (i)) * c) + (u))) /\ (((n) = (D) * (u) + (a) /\ (exists bcf_lt_gap_bdqcpez_left_division_bound. bcf_lt_gap_bdqcpez_left_division_bound + S (a) = D)))) - 0025
specialize hleft i - 0026
apply hleft - 0027
exact hi - 0028
cases hleft_data - 0029
cases hleft_data_witness - 0030
cases hleft_data_witness_witness - 0031
cases hleft_data_witness_witness_witness - 0032
cases hleft_data_witness_witness_witness_right - 0033
have hright_data : exists D u a. (exists bpvi_b_bdqcpez_right_power bpvi_c_bdqcpez_right_power. ((forall bpvi_i_bdqcpez_right_power. (exists bpvi_repeat_gap_bdqcpez_right_power. bpvi_repeat_gap_bdqcpez_right_power + S bpvi_i_bdqcpez_right_power = S i) -> (((exists bpvi_h_bdqcpez_right_power_repeat. bpvi_h_bdqcpez_right_power_repeat + S (p) = S ((S (bpvi_i_bdqcpez_right_power)) * bpvi_c_bdqcpez_right_power)) /\ exists bpvi_q_bdqcpez_right_power_repeat. bpvi_b_bdqcpez_right_power = bpvi_q_bdqcpez_right_power_repeat * S ((S (bpvi_i_bdqcpez_right_power)) * bpvi_c_bdqcpez_right_power) + (p)))) /\ (exists bpvi_u_bdqcpez_right_power bpvi_v_bdqcpez_right_power. ((((exists bpvi_h_bdqcpez_right_power_start. bpvi_h_bdqcpez_right_power_start + S (1) = S ((S (0)) * bpvi_v_bdqcpez_right_power)) /\ exists bpvi_q_bdqcpez_right_power_start. bpvi_u_bdqcpez_right_power = bpvi_q_bdqcpez_right_power_start * S ((S (0)) * bpvi_v_bdqcpez_right_power) + (1))) /\ ((((exists bpvi_h_bdqcpez_right_power_terminal. bpvi_h_bdqcpez_right_power_terminal + S (D) = S ((S (S i)) * bpvi_v_bdqcpez_right_power)) /\ exists bpvi_q_bdqcpez_right_power_terminal. bpvi_u_bdqcpez_right_power = bpvi_q_bdqcpez_right_power_terminal * S ((S (S i)) * bpvi_v_bdqcpez_right_power) + (D))) /\ forall bpvi_j_bdqcpez_right_power. (exists bpvi_product_gap_bdqcpez_right_power. bpvi_product_gap_bdqcpez_right_power + S bpvi_j_bdqcpez_right_power = S i) -> exists bpvi_factor_bdqcpez_right_power bpvi_partial_bdqcpez_right_power bpvi_successor_bdqcpez_right_power. ((((exists bpvi_h_bdqcpez_right_power_factor. bpvi_h_bdqcpez_right_power_factor + S (bpvi_factor_bdqcpez_right_power) = S ((S (bpvi_j_bdqcpez_right_power)) * bpvi_c_bdqcpez_right_power)) /\ exists bpvi_q_bdqcpez_right_power_factor. bpvi_b_bdqcpez_right_power = bpvi_q_bdqcpez_right_power_factor * S ((S (bpvi_j_bdqcpez_right_power)) * bpvi_c_bdqcpez_right_power) + (bpvi_factor_bdqcpez_right_power))) /\ ((((exists bpvi_h_bdqcpez_right_power_partial. bpvi_h_bdqcpez_right_power_partial + S (bpvi_partial_bdqcpez_right_power) = S ((S (bpvi_j_bdqcpez_right_power)) * bpvi_v_bdqcpez_right_power)) /\ exists bpvi_q_bdqcpez_right_power_partial. bpvi_u_bdqcpez_right_power = bpvi_q_bdqcpez_right_power_partial * S ((S (bpvi_j_bdqcpez_right_power)) * bpvi_v_bdqcpez_right_power) + (bpvi_partial_bdqcpez_right_power))) /\ ((((exists bpvi_h_bdqcpez_right_power_successor. bpvi_h_bdqcpez_right_power_successor + S (bpvi_successor_bdqcpez_right_power) = S ((S (S bpvi_j_bdqcpez_right_power)) * bpvi_v_bdqcpez_right_power)) /\ exists bpvi_q_bdqcpez_right_power_successor. bpvi_u_bdqcpez_right_power = bpvi_q_bdqcpez_right_power_successor * S ((S (S bpvi_j_bdqcpez_right_power)) * bpvi_v_bdqcpez_right_power) + (bpvi_successor_bdqcpez_right_power))) /\ bpvi_successor_bdqcpez_right_power = bpvi_partial_bdqcpez_right_power * bpvi_factor_bdqcpez_right_power)))))))) /\ ((((exists fs_h_bdqcpez_right_entry. fs_h_bdqcpez_right_entry + S (u) = S ((S (i)) * e)) /\ exists fs_q_bdqcpez_right_entry. d = fs_q_bdqcpez_right_entry * S ((S (i)) * e) + (u))) /\ (((n + n) = (D) * (u) + (a) /\ (exists bcf_lt_gap_bdqcpez_right_division_bound. bcf_lt_gap_bdqcpez_right_division_bound + S (a) = D)))) - 0034
specialize hright i - 0035
apply hright - 0036
exact hi - 0037
cases hright_data - 0038
cases hright_data_witness - 0039
cases hright_data_witness_witness - 0040
cases hright_data_witness_witness_witness - 0041
cases hright_data_witness_witness_witness_right - 0042
have hsemantic : exists q Q bit. (((exists fs_h_bdqcpez_semantic_left. fs_h_bdqcpez_semantic_left + S (q) = S ((S (i)) * c)) /\ exists fs_q_bdqcpez_semantic_left. b = fs_q_bdqcpez_semantic_left * S ((S (i)) * c) + (q))) /\ ((((exists fs_h_bdqcpez_semantic_right. fs_h_bdqcpez_semantic_right + S (Q) = S ((S (i)) * e)) /\ exists fs_q_bdqcpez_semantic_right. d = fs_q_bdqcpez_semantic_right * S ((S (i)) * e) + (Q))) /\ ((((exists fs_h_bdqcpez_semantic_bit. fs_h_bdqcpez_semantic_bit + S (bit) = S ((S (i)) * g)) /\ exists fs_q_bdqcpez_semantic_bit. f = fs_q_bdqcpez_semantic_bit * S ((S (i)) * g) + (bit))) /\ (((bit = 0 /\ Q = q + q) \/ (bit = 1 /\ Q = S (q + q)))))) - 0043
specialize hcarry i - 0044
apply hcarry - 0045
exact hi - 0046
cases hsemantic - 0047
cases hsemantic_witness - 0048
cases hsemantic_witness_witness - 0049
cases hsemantic_witness_witness_witness - 0050
cases hsemantic_witness_witness_witness_right - 0051
cases hsemantic_witness_witness_witness_right_right - 0052
specialize zero_or_succ i - 0053
cases zero_or_succ - 0054
have hexponent_one : S i = 1 - 0055
rewrite zero_or_succ_left - 0056
refl - 0057
have hleft_power : x = p - 0058
specialize pow_one p - 0059
specialize pow_one (S i) - 0060
specialize pow_one x - 0061
apply pow_one - 0062
exact hexponent_one - 0063
exact hleft_data_witness_witness_witness_left - 0064
have hright_power : x3 = p - 0065
specialize pow_one p - 0066
specialize pow_one (S i) - 0067
specialize pow_one x3 - 0068
apply pow_one - 0069
exact hexponent_one - 0070
exact hright_data_witness_witness_witness_left - 0071
rewrite hleft_power at hleft_data_witness_witness_witness_right_right - 0072
rewrite hleft_power at hleft_data_witness_witness_witness_right_right - 0073
rewrite hright_power at hright_data_witness_witness_witness_right_right - 0074
rewrite hright_power at hright_data_witness_witness_witness_right_right - 0075
cases hleft_data_witness_witness_witness_right_right - 0076
cases hright_data_witness_witness_witness_right_right - 0077
cases hfirst - 0078
cases hdouble - 0079
have hleft_unique : x1 = q /\ x2 = r - 0080
specialize division_remainder_unique p - 0081
specialize division_remainder_unique n - 0082
specialize division_remainder_unique x1 - 0083
specialize division_remainder_unique x2 - 0084
specialize division_remainder_unique q - 0085
specialize division_remainder_unique r - 0086
apply division_remainder_unique - 0087
exact hleft_data_witness_witness_witness_right_right_left - 0088
exact hleft_data_witness_witness_witness_right_right_right - 0089
exact hfirst_left - 0090
exact hfirst_right - 0091
have hright_unique : x4 = q + q /\ x5 = R - 0092
specialize division_remainder_unique p - 0093
specialize division_remainder_unique (n + n) - 0094
specialize division_remainder_unique x4 - 0095
specialize division_remainder_unique x5 - 0096
specialize division_remainder_unique (q + q) - 0097
specialize division_remainder_unique R - 0098
apply division_remainder_unique - 0099
exact hright_data_witness_witness_witness_right_right_left - 0100
exact hright_data_witness_witness_witness_right_right_right - 0101
exact hdouble_left - 0102
exact hdouble_right - 0103
cases hleft_unique - 0104
cases hright_unique - 0105
have hleft_entry : x1 = x6 - 0106
specialize beta_at_unique b - 0107
specialize beta_at_unique c - 0108
specialize beta_at_unique i - 0109
specialize beta_at_unique x1 - 0110
specialize beta_at_unique x6 - 0111
apply beta_at_unique - 0112
exact hleft_data_witness_witness_witness_right_left - 0113
exact hsemantic_witness_witness_witness_left - 0114
have hright_entry : x4 = x7 - 0115
specialize beta_at_unique d - 0116
specialize beta_at_unique e - 0117
specialize beta_at_unique i - 0118
specialize beta_at_unique x4 - 0119
specialize beta_at_unique x7 - 0120
apply beta_at_unique - 0121
exact hright_data_witness_witness_witness_right_left - 0122
exact hsemantic_witness_witness_witness_right_left - 0123
cases hsemantic_witness_witness_witness_right_right_right - 0124
cases hsemantic_witness_witness_witness_right_right_right_left - 0125
rewrite hsemantic_witness_witness_witness_right_right_right_left_left at hsemantic_witness_witness_witness_right_right_left - 0126
rewrite hsemantic_witness_witness_witness_right_right_right_left_left at hsemantic_witness_witness_witness_right_right_left - 0127
exact hsemantic_witness_witness_witness_right_right_left - 0128
cases hsemantic_witness_witness_witness_right_right_right_right - 0129
rewrite <- hright_entry at hsemantic_witness_witness_witness_right_right_right_right_right - 0130
rewrite hright_unique_left at hsemantic_witness_witness_witness_right_right_right_right_right - 0131
rewrite <- hleft_entry at hsemantic_witness_witness_witness_right_right_right_right_right - 0132
rewrite <- hleft_entry at hsemantic_witness_witness_witness_right_right_right_right_right - 0133
rewrite hleft_unique_left at hsemantic_witness_witness_witness_right_right_right_right_right - 0134
rewrite hleft_unique_left at hsemantic_witness_witness_witness_right_right_right_right_right - 0135
exfalso - 0136
specialize lt_irrefl_expanded (q + q) - 0137
apply lt_irrefl_expanded - 0138
exists 0 - 0139
trans S (q + q) - 0140
specialize zero_add (S (q + q)) - 0141
exact zero_add - 0142
symm - 0143
exact hsemantic_witness_witness_witness_right_right_right_right_right - 0144
cases zero_or_succ_right - 0145
have hexponent_tail : exists bcf_le_gap_bdqcpez_tail_exponent. bcf_le_gap_bdqcpez_tail_exponent + (2) = S i - 0146
exists x9 - 0147
rewrite zero_or_succ_right_witness - 0148
simp - 0149
have htail : exists bcf_lt_gap_bdqcpez_tail_strict. bcf_lt_gap_bdqcpez_tail_strict + S (n + n) = x3 - 0150
specialize pow_tail_strict_of_square p - 0151
specialize pow_tail_strict_of_square (S i) - 0152
specialize pow_tail_strict_of_square x3 - 0153
specialize pow_tail_strict_of_square s - 0154
specialize pow_tail_strict_of_square (n + n) - 0155
apply pow_tail_strict_of_square - 0156
exact hbase - 0157
exact hexponent_tail - 0158
exact hsquare - 0159
exact hright_data_witness_witness_witness_left - 0160
exact hstrict - 0161
have hright_zero : x4 = 0 - 0162
specialize division_zero_quotient_of_lt x3 - 0163
specialize division_zero_quotient_of_lt (n + n) - 0164
specialize division_zero_quotient_of_lt x4 - 0165
specialize division_zero_quotient_of_lt x5 - 0166
apply division_zero_quotient_of_lt - 0167
exact hright_data_witness_witness_witness_right_right - 0168
exact htail - 0169
have hright_entry : x4 = x7 - 0170
specialize beta_at_unique d - 0171
specialize beta_at_unique e - 0172
specialize beta_at_unique i - 0173
specialize beta_at_unique x4 - 0174
specialize beta_at_unique x7 - 0175
apply beta_at_unique - 0176
exact hright_data_witness_witness_witness_right_left - 0177
exact hsemantic_witness_witness_witness_right_left - 0178
cases hsemantic_witness_witness_witness_right_right_right - 0179
cases hsemantic_witness_witness_witness_right_right_right_left - 0180
rewrite hsemantic_witness_witness_witness_right_right_right_left_left at hsemantic_witness_witness_witness_right_right_left - 0181
rewrite hsemantic_witness_witness_witness_right_right_right_left_left at hsemantic_witness_witness_witness_right_right_left - 0182
exact hsemantic_witness_witness_witness_right_right_left - 0183
cases hsemantic_witness_witness_witness_right_right_right_right - 0184
rewrite <- hright_entry at hsemantic_witness_witness_witness_right_right_right_right_right - 0185
rewrite hright_zero at hsemantic_witness_witness_witness_right_right_right_right_right - 0186
exfalso - 0187
apply PA1 - 0188
symm - 0189
exact hsemantic_witness_witness_witness_right_right_right_right_right