Exact expanded PA statement
forall p n b c z d l. (forall bls_index_bls_transport_source. (exists bls_gap_bls_transport_source_bound. bls_gap_bls_transport_source_bound + S (bls_index_bls_transport_source) = (l)) -> exists bls_power_bls_transport_source bls_quotient_bls_transport_source bls_remainder_bls_transport_source. ((exists bpvi_b_bls_bls_transport_source_power bpvi_c_bls_bls_transport_source_power. ((forall bpvi_i_bls_bls_transport_source_power. (exists bpvi_repeat_gap_bls_bls_transport_source_power. bpvi_repeat_gap_bls_bls_transport_source_power + S bpvi_i_bls_bls_transport_source_power = S bls_index_bls_transport_source) -> (((exists bpvi_h_bls_bls_transport_source_power_repeat. bpvi_h_bls_bls_transport_source_power_repeat + S (p) = S ((S (bpvi_i_bls_bls_transport_source_power)) * bpvi_c_bls_bls_transport_source_power)) /\ exists bpvi_q_bls_bls_transport_source_power_repeat. bpvi_b_bls_bls_transport_source_power = bpvi_q_bls_bls_transport_source_power_repeat * S ((S (bpvi_i_bls_bls_transport_source_power)) * bpvi_c_bls_bls_transport_source_power) + (p)))) /\ (exists bpvi_u_bls_bls_transport_source_power bpvi_v_bls_bls_transport_source_power. ((((exists bpvi_h_bls_bls_transport_source_power_start. bpvi_h_bls_bls_transport_source_power_start + S (1) = S ((S (0)) * bpvi_v_bls_bls_transport_source_power)) /\ exists bpvi_q_bls_bls_transport_source_power_start. bpvi_u_bls_bls_transport_source_power = bpvi_q_bls_bls_transport_source_power_start * S ((S (0)) * bpvi_v_bls_bls_transport_source_power) + (1))) /\ ((((exists bpvi_h_bls_bls_transport_source_power_terminal. bpvi_h_bls_bls_transport_source_power_terminal + S (bls_power_bls_transport_source) = S ((S (S bls_index_bls_transport_source)) * bpvi_v_bls_bls_transport_source_power)) /\ exists bpvi_q_bls_bls_transport_source_power_terminal. bpvi_u_bls_bls_transport_source_power = bpvi_q_bls_bls_transport_source_power_terminal * S ((S (S bls_index_bls_transport_source)) * bpvi_v_bls_bls_transport_source_power) + (bls_power_bls_transport_source))) /\ forall bpvi_j_bls_bls_transport_source_power. (exists bpvi_product_gap_bls_bls_transport_source_power. bpvi_product_gap_bls_bls_transport_source_power + S bpvi_j_bls_bls_transport_source_power = S bls_index_bls_transport_source) -> exists bpvi_factor_bls_bls_transport_source_power bpvi_partial_bls_bls_transport_source_power bpvi_successor_bls_bls_transport_source_power. ((((exists bpvi_h_bls_bls_transport_source_power_factor. bpvi_h_bls_bls_transport_source_power_factor + S (bpvi_factor_bls_bls_transport_source_power) = S ((S (bpvi_j_bls_bls_transport_source_power)) * bpvi_c_bls_bls_transport_source_power)) /\ exists bpvi_q_bls_bls_transport_source_power_factor. bpvi_b_bls_bls_transport_source_power = bpvi_q_bls_bls_transport_source_power_factor * S ((S (bpvi_j_bls_bls_transport_source_power)) * bpvi_c_bls_bls_transport_source_power) + (bpvi_factor_bls_bls_transport_source_power))) /\ ((((exists bpvi_h_bls_bls_transport_source_power_partial. bpvi_h_bls_bls_transport_source_power_partial + S (bpvi_partial_bls_bls_transport_source_power) = S ((S (bpvi_j_bls_bls_transport_source_power)) * bpvi_v_bls_bls_transport_source_power)) /\ exists bpvi_q_bls_bls_transport_source_power_partial. bpvi_u_bls_bls_transport_source_power = bpvi_q_bls_bls_transport_source_power_partial * S ((S (bpvi_j_bls_bls_transport_source_power)) * bpvi_v_bls_bls_transport_source_power) + (bpvi_partial_bls_bls_transport_source_power))) /\ ((((exists bpvi_h_bls_bls_transport_source_power_successor. bpvi_h_bls_bls_transport_source_power_successor + S (bpvi_successor_bls_bls_transport_source_power) = S ((S (S bpvi_j_bls_bls_transport_source_power)) * bpvi_v_bls_bls_transport_source_power)) /\ exists bpvi_q_bls_bls_transport_source_power_successor. bpvi_u_bls_bls_transport_source_power = bpvi_q_bls_bls_transport_source_power_successor * S ((S (S bpvi_j_bls_bls_transport_source_power)) * bpvi_v_bls_bls_transport_source_power) + (bpvi_successor_bls_bls_transport_source_power))) /\ bpvi_successor_bls_bls_transport_source_power = bpvi_partial_bls_bls_transport_source_power * bpvi_factor_bls_bls_transport_source_power)))))))) /\ ((((exists ff_h_bls_bls_transport_source_quotient_entry. ff_h_bls_bls_transport_source_quotient_entry + S (bls_quotient_bls_transport_source) = S ((S (bls_index_bls_transport_source)) * c)) /\ exists ff_q_bls_bls_transport_source_quotient_entry. b = ff_q_bls_bls_transport_source_quotient_entry * S ((S (bls_index_bls_transport_source)) * c) + (bls_quotient_bls_transport_source))) /\ ((n = bls_power_bls_transport_source * bls_quotient_bls_transport_source + bls_remainder_bls_transport_source /\ exists bls_remainder_gap_bls_transport_source_division. bls_remainder_gap_bls_transport_source_division + S (bls_remainder_bls_transport_source) = bls_power_bls_transport_source))))) -> (forall bls_index_bls_transport_target. (exists bls_gap_bls_transport_target_bound. bls_gap_bls_transport_target_bound + S (bls_index_bls_transport_target) = (l)) -> exists bls_power_bls_transport_target bls_quotient_bls_transport_target bls_remainder_bls_transport_target. ((exists bpvi_b_bls_bls_transport_target_power bpvi_c_bls_bls_transport_target_power. ((forall bpvi_i_bls_bls_transport_target_power. (exists bpvi_repeat_gap_bls_bls_transport_target_power. bpvi_repeat_gap_bls_bls_transport_target_power + S bpvi_i_bls_bls_transport_target_power = S bls_index_bls_transport_target) -> (((exists bpvi_h_bls_bls_transport_target_power_repeat. bpvi_h_bls_bls_transport_target_power_repeat + S (p) = S ((S (bpvi_i_bls_bls_transport_target_power)) * bpvi_c_bls_bls_transport_target_power)) /\ exists bpvi_q_bls_bls_transport_target_power_repeat. bpvi_b_bls_bls_transport_target_power = bpvi_q_bls_bls_transport_target_power_repeat * S ((S (bpvi_i_bls_bls_transport_target_power)) * bpvi_c_bls_bls_transport_target_power) + (p)))) /\ (exists bpvi_u_bls_bls_transport_target_power bpvi_v_bls_bls_transport_target_power. ((((exists bpvi_h_bls_bls_transport_target_power_start. bpvi_h_bls_bls_transport_target_power_start + S (1) = S ((S (0)) * bpvi_v_bls_bls_transport_target_power)) /\ exists bpvi_q_bls_bls_transport_target_power_start. bpvi_u_bls_bls_transport_target_power = bpvi_q_bls_bls_transport_target_power_start * S ((S (0)) * bpvi_v_bls_bls_transport_target_power) + (1))) /\ ((((exists bpvi_h_bls_bls_transport_target_power_terminal. bpvi_h_bls_bls_transport_target_power_terminal + S (bls_power_bls_transport_target) = S ((S (S bls_index_bls_transport_target)) * bpvi_v_bls_bls_transport_target_power)) /\ exists bpvi_q_bls_bls_transport_target_power_terminal. bpvi_u_bls_bls_transport_target_power = bpvi_q_bls_bls_transport_target_power_terminal * S ((S (S bls_index_bls_transport_target)) * bpvi_v_bls_bls_transport_target_power) + (bls_power_bls_transport_target))) /\ forall bpvi_j_bls_bls_transport_target_power. (exists bpvi_product_gap_bls_bls_transport_target_power. bpvi_product_gap_bls_bls_transport_target_power + S bpvi_j_bls_bls_transport_target_power = S bls_index_bls_transport_target) -> exists bpvi_factor_bls_bls_transport_target_power bpvi_partial_bls_bls_transport_target_power bpvi_successor_bls_bls_transport_target_power. ((((exists bpvi_h_bls_bls_transport_target_power_factor. bpvi_h_bls_bls_transport_target_power_factor + S (bpvi_factor_bls_bls_transport_target_power) = S ((S (bpvi_j_bls_bls_transport_target_power)) * bpvi_c_bls_bls_transport_target_power)) /\ exists bpvi_q_bls_bls_transport_target_power_factor. bpvi_b_bls_bls_transport_target_power = bpvi_q_bls_bls_transport_target_power_factor * S ((S (bpvi_j_bls_bls_transport_target_power)) * bpvi_c_bls_bls_transport_target_power) + (bpvi_factor_bls_bls_transport_target_power))) /\ ((((exists bpvi_h_bls_bls_transport_target_power_partial. bpvi_h_bls_bls_transport_target_power_partial + S (bpvi_partial_bls_bls_transport_target_power) = S ((S (bpvi_j_bls_bls_transport_target_power)) * bpvi_v_bls_bls_transport_target_power)) /\ exists bpvi_q_bls_bls_transport_target_power_partial. bpvi_u_bls_bls_transport_target_power = bpvi_q_bls_bls_transport_target_power_partial * S ((S (bpvi_j_bls_bls_transport_target_power)) * bpvi_v_bls_bls_transport_target_power) + (bpvi_partial_bls_bls_transport_target_power))) /\ ((((exists bpvi_h_bls_bls_transport_target_power_successor. bpvi_h_bls_bls_transport_target_power_successor + S (bpvi_successor_bls_bls_transport_target_power) = S ((S (S bpvi_j_bls_bls_transport_target_power)) * bpvi_v_bls_bls_transport_target_power)) /\ exists bpvi_q_bls_bls_transport_target_power_successor. bpvi_u_bls_bls_transport_target_power = bpvi_q_bls_bls_transport_target_power_successor * S ((S (S bpvi_j_bls_bls_transport_target_power)) * bpvi_v_bls_bls_transport_target_power) + (bpvi_successor_bls_bls_transport_target_power))) /\ bpvi_successor_bls_bls_transport_target_power = bpvi_partial_bls_bls_transport_target_power * bpvi_factor_bls_bls_transport_target_power)))))))) /\ ((((exists ff_h_bls_bls_transport_target_quotient_entry. ff_h_bls_bls_transport_target_quotient_entry + S (bls_quotient_bls_transport_target) = S ((S (bls_index_bls_transport_target)) * d)) /\ exists ff_q_bls_bls_transport_target_quotient_entry. z = ff_q_bls_bls_transport_target_quotient_entry * S ((S (bls_index_bls_transport_target)) * d) + (bls_quotient_bls_transport_target))) /\ ((n = bls_power_bls_transport_target * bls_quotient_bls_transport_target + bls_remainder_bls_transport_target /\ exists bls_remainder_gap_bls_transport_target_division. bls_remainder_gap_bls_transport_target_division + S (bls_remainder_bls_transport_target) = bls_power_bls_transport_target))))) -> forall i q. (exists bls_gap_bls_transport_bound. bls_gap_bls_transport_bound + S (i) = (l)) -> (((exists ff_h_bls_transport_given. ff_h_bls_transport_given + S (q) = S ((S (i)) * c)) /\ exists ff_q_bls_transport_given. b = ff_q_bls_transport_given * S ((S (i)) * c) + (q))) -> (((exists ff_h_bls_transport_result. ff_h_bls_transport_result + S (q) = S ((S (i)) * d)) /\ exists ff_q_bls_transport_result. z = ff_q_bls_transport_result * S ((S (i)) * d) + (q)))Structural proof guide
Equivalent power-quotient prefixes transport decoded quotients pointwise.
Direct prerequisites: beta_at_unique, pow_functional, division_remainder_unique. The authored body proceeds by case analysis (13), intermediate claims (6), equality transport (6).
Proof neighborhood
Direct dependencies
Direct 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 z - 0006
intro d - 0007
intro l - 0008
intro hsource - 0009
intro htarget - 0010
intro i - 0011
intro q - 0012
intro hi - 0013
intro hq - 0014
have hs : exists D u r. ((exists bpvi_b_bls_transport_source_power bpvi_c_bls_transport_source_power. ((forall bpvi_i_bls_transport_source_power. (exists bpvi_repeat_gap_bls_transport_source_power. bpvi_repeat_gap_bls_transport_source_power + S bpvi_i_bls_transport_source_power = S i) -> (((exists bpvi_h_bls_transport_source_power_repeat. bpvi_h_bls_transport_source_power_repeat + S (p) = S ((S (bpvi_i_bls_transport_source_power)) * bpvi_c_bls_transport_source_power)) /\ exists bpvi_q_bls_transport_source_power_repeat. bpvi_b_bls_transport_source_power = bpvi_q_bls_transport_source_power_repeat * S ((S (bpvi_i_bls_transport_source_power)) * bpvi_c_bls_transport_source_power) + (p)))) /\ (exists bpvi_u_bls_transport_source_power bpvi_v_bls_transport_source_power. ((((exists bpvi_h_bls_transport_source_power_start. bpvi_h_bls_transport_source_power_start + S (1) = S ((S (0)) * bpvi_v_bls_transport_source_power)) /\ exists bpvi_q_bls_transport_source_power_start. bpvi_u_bls_transport_source_power = bpvi_q_bls_transport_source_power_start * S ((S (0)) * bpvi_v_bls_transport_source_power) + (1))) /\ ((((exists bpvi_h_bls_transport_source_power_terminal. bpvi_h_bls_transport_source_power_terminal + S (D) = S ((S (S i)) * bpvi_v_bls_transport_source_power)) /\ exists bpvi_q_bls_transport_source_power_terminal. bpvi_u_bls_transport_source_power = bpvi_q_bls_transport_source_power_terminal * S ((S (S i)) * bpvi_v_bls_transport_source_power) + (D))) /\ forall bpvi_j_bls_transport_source_power. (exists bpvi_product_gap_bls_transport_source_power. bpvi_product_gap_bls_transport_source_power + S bpvi_j_bls_transport_source_power = S i) -> exists bpvi_factor_bls_transport_source_power bpvi_partial_bls_transport_source_power bpvi_successor_bls_transport_source_power. ((((exists bpvi_h_bls_transport_source_power_factor. bpvi_h_bls_transport_source_power_factor + S (bpvi_factor_bls_transport_source_power) = S ((S (bpvi_j_bls_transport_source_power)) * bpvi_c_bls_transport_source_power)) /\ exists bpvi_q_bls_transport_source_power_factor. bpvi_b_bls_transport_source_power = bpvi_q_bls_transport_source_power_factor * S ((S (bpvi_j_bls_transport_source_power)) * bpvi_c_bls_transport_source_power) + (bpvi_factor_bls_transport_source_power))) /\ ((((exists bpvi_h_bls_transport_source_power_partial. bpvi_h_bls_transport_source_power_partial + S (bpvi_partial_bls_transport_source_power) = S ((S (bpvi_j_bls_transport_source_power)) * bpvi_v_bls_transport_source_power)) /\ exists bpvi_q_bls_transport_source_power_partial. bpvi_u_bls_transport_source_power = bpvi_q_bls_transport_source_power_partial * S ((S (bpvi_j_bls_transport_source_power)) * bpvi_v_bls_transport_source_power) + (bpvi_partial_bls_transport_source_power))) /\ ((((exists bpvi_h_bls_transport_source_power_successor. bpvi_h_bls_transport_source_power_successor + S (bpvi_successor_bls_transport_source_power) = S ((S (S bpvi_j_bls_transport_source_power)) * bpvi_v_bls_transport_source_power)) /\ exists bpvi_q_bls_transport_source_power_successor. bpvi_u_bls_transport_source_power = bpvi_q_bls_transport_source_power_successor * S ((S (S bpvi_j_bls_transport_source_power)) * bpvi_v_bls_transport_source_power) + (bpvi_successor_bls_transport_source_power))) /\ bpvi_successor_bls_transport_source_power = bpvi_partial_bls_transport_source_power * bpvi_factor_bls_transport_source_power)))))))) /\ ((((exists ff_h_bls_transport_source_stored. ff_h_bls_transport_source_stored + S (u) = S ((S (i)) * c)) /\ exists ff_q_bls_transport_source_stored. b = ff_q_bls_transport_source_stored * S ((S (i)) * c) + (u))) /\ ((n = D * u + r /\ exists bls_remainder_gap_bls_transport_source_division. bls_remainder_gap_bls_transport_source_division + S (r) = D)))) - 0015
specialize hsource i - 0016
apply hsource - 0017
exact hi - 0018
have ht : exists E v s. ((exists bpvi_b_bls_transport_target_power bpvi_c_bls_transport_target_power. ((forall bpvi_i_bls_transport_target_power. (exists bpvi_repeat_gap_bls_transport_target_power. bpvi_repeat_gap_bls_transport_target_power + S bpvi_i_bls_transport_target_power = S i) -> (((exists bpvi_h_bls_transport_target_power_repeat. bpvi_h_bls_transport_target_power_repeat + S (p) = S ((S (bpvi_i_bls_transport_target_power)) * bpvi_c_bls_transport_target_power)) /\ exists bpvi_q_bls_transport_target_power_repeat. bpvi_b_bls_transport_target_power = bpvi_q_bls_transport_target_power_repeat * S ((S (bpvi_i_bls_transport_target_power)) * bpvi_c_bls_transport_target_power) + (p)))) /\ (exists bpvi_u_bls_transport_target_power bpvi_v_bls_transport_target_power. ((((exists bpvi_h_bls_transport_target_power_start. bpvi_h_bls_transport_target_power_start + S (1) = S ((S (0)) * bpvi_v_bls_transport_target_power)) /\ exists bpvi_q_bls_transport_target_power_start. bpvi_u_bls_transport_target_power = bpvi_q_bls_transport_target_power_start * S ((S (0)) * bpvi_v_bls_transport_target_power) + (1))) /\ ((((exists bpvi_h_bls_transport_target_power_terminal. bpvi_h_bls_transport_target_power_terminal + S (E) = S ((S (S i)) * bpvi_v_bls_transport_target_power)) /\ exists bpvi_q_bls_transport_target_power_terminal. bpvi_u_bls_transport_target_power = bpvi_q_bls_transport_target_power_terminal * S ((S (S i)) * bpvi_v_bls_transport_target_power) + (E))) /\ forall bpvi_j_bls_transport_target_power. (exists bpvi_product_gap_bls_transport_target_power. bpvi_product_gap_bls_transport_target_power + S bpvi_j_bls_transport_target_power = S i) -> exists bpvi_factor_bls_transport_target_power bpvi_partial_bls_transport_target_power bpvi_successor_bls_transport_target_power. ((((exists bpvi_h_bls_transport_target_power_factor. bpvi_h_bls_transport_target_power_factor + S (bpvi_factor_bls_transport_target_power) = S ((S (bpvi_j_bls_transport_target_power)) * bpvi_c_bls_transport_target_power)) /\ exists bpvi_q_bls_transport_target_power_factor. bpvi_b_bls_transport_target_power = bpvi_q_bls_transport_target_power_factor * S ((S (bpvi_j_bls_transport_target_power)) * bpvi_c_bls_transport_target_power) + (bpvi_factor_bls_transport_target_power))) /\ ((((exists bpvi_h_bls_transport_target_power_partial. bpvi_h_bls_transport_target_power_partial + S (bpvi_partial_bls_transport_target_power) = S ((S (bpvi_j_bls_transport_target_power)) * bpvi_v_bls_transport_target_power)) /\ exists bpvi_q_bls_transport_target_power_partial. bpvi_u_bls_transport_target_power = bpvi_q_bls_transport_target_power_partial * S ((S (bpvi_j_bls_transport_target_power)) * bpvi_v_bls_transport_target_power) + (bpvi_partial_bls_transport_target_power))) /\ ((((exists bpvi_h_bls_transport_target_power_successor. bpvi_h_bls_transport_target_power_successor + S (bpvi_successor_bls_transport_target_power) = S ((S (S bpvi_j_bls_transport_target_power)) * bpvi_v_bls_transport_target_power)) /\ exists bpvi_q_bls_transport_target_power_successor. bpvi_u_bls_transport_target_power = bpvi_q_bls_transport_target_power_successor * S ((S (S bpvi_j_bls_transport_target_power)) * bpvi_v_bls_transport_target_power) + (bpvi_successor_bls_transport_target_power))) /\ bpvi_successor_bls_transport_target_power = bpvi_partial_bls_transport_target_power * bpvi_factor_bls_transport_target_power)))))))) /\ ((((exists ff_h_bls_transport_target_stored. ff_h_bls_transport_target_stored + S (v) = S ((S (i)) * d)) /\ exists ff_q_bls_transport_target_stored. z = ff_q_bls_transport_target_stored * S ((S (i)) * d) + (v))) /\ ((n = E * v + s /\ exists bls_remainder_gap_bls_transport_target_division. bls_remainder_gap_bls_transport_target_division + S (s) = E)))) - 0019
specialize htarget i - 0020
apply htarget - 0021
exact hi - 0022
cases hs - 0023
cases hs_witness - 0024
cases hs_witness_witness - 0025
cases hs_witness_witness_witness - 0026
cases hs_witness_witness_witness_right - 0027
cases hs_witness_witness_witness_right_right - 0028
cases ht - 0029
cases ht_witness - 0030
cases ht_witness_witness - 0031
cases ht_witness_witness_witness - 0032
cases ht_witness_witness_witness_right - 0033
cases ht_witness_witness_witness_right_right - 0034
have hD : x = x3 - 0035
specialize pow_functional p - 0036
specialize pow_functional (S i) - 0037
specialize pow_functional x - 0038
specialize pow_functional x3 - 0039
apply pow_functional - 0040
exact hs_witness_witness_witness_left - 0041
exact ht_witness_witness_witness_left - 0042
rewrite <- hD at ht_witness_witness_witness_right_right_left - 0043
rewrite <- hD at ht_witness_witness_witness_right_right_right - 0044
have hquotients : x1 = x4 - 0045
specialize division_remainder_unique x - 0046
specialize division_remainder_unique n - 0047
specialize division_remainder_unique x1 - 0048
specialize division_remainder_unique x2 - 0049
specialize division_remainder_unique x4 - 0050
specialize division_remainder_unique x5 - 0051
have hdivision_unique : x1 = x4 /\ x2 = x5 - 0052
apply division_remainder_unique - 0053
exact hs_witness_witness_witness_right_right_left - 0054
exact hs_witness_witness_witness_right_right_right - 0055
exact ht_witness_witness_witness_right_right_left - 0056
exact ht_witness_witness_witness_right_right_right - 0057
cases hdivision_unique - 0058
exact hdivision_unique_left - 0059
have hstored : x1 = q - 0060
specialize beta_at_unique b - 0061
specialize beta_at_unique c - 0062
specialize beta_at_unique i - 0063
specialize beta_at_unique x1 - 0064
specialize beta_at_unique q - 0065
apply beta_at_unique - 0066
exact hs_witness_witness_witness_right_left - 0067
exact hq - 0068
rewrite <- hstored - 0069
rewrite hquotients - 0070
rewrite <- hstored - 0071
rewrite hquotients - 0072
exact ht_witness_witness_witness_right_left